Mercurial > emacs
annotate lisp/progmodes/idlwave.el @ 52589:fc78d0eb33d4
*** empty log message ***
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 23 Sep 2003 10:46:15 +0000 |
parents | 695cf19ef79e |
children | f0eb34e60705 79093b308520 375f2633d815 |
rev | line source |
---|---|
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1 ;;; idlwave.el --- IDL editing mode for GNU Emacs |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2 ;; Copyright (c) 1999, 2000, 2001,2002 Free Software Foundation |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4 ;; Author: Carsten Dominik <dominik@astro.uva.nl> |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5 ;; Chris Chase <chase@att.com> |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu> |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
7 ;; Version: 4.15 |
52401 | 8 ;; Date: $Date: 2003/07/21 21:36:29 $ |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
9 ;; Keywords: languages |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
10 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
11 ;; This file is part of GNU Emacs. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
12 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
15 ;; the Free Software Foundation; either version 2, or (at your option) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
16 ;; any later version. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
17 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
21 ;; GNU General Public License for more details. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
22 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
26 ;; Boston, MA 02111-1307, USA. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
27 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
28 ;;; Commentary: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
29 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
30 ;; In distant past, based on pascal.el. Though bears little |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
31 ;; resemblance to that now. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
32 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
33 ;; Incorporates many ideas, such as abbrevs, action routines, and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
34 ;; continuation line indenting, from wave.el. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
35 ;; wave.el original written by Lubos Pochman, Precision Visuals, Boulder. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
36 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
37 ;; See the mode description ("C-h m" in idlwave-mode or "C-h f idlwave-mode") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
38 ;; for features, key bindings, and info. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
39 ;; Also, Info format documentation is available with `M-x idlwave-info' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
40 ;; |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
41 ;; New versions of IDLWAVE, documentation, and more information |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
42 ;; available from: |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
43 ;; http://idlwave.org |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
44 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
45 ;; INSTALLATION |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
46 ;; ============ |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
47 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
48 ;; Follow the instructions in the INSTALL file of the distribution. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
49 ;; In short, put this file on your load path and add the following |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
50 ;; lines to your .emacs file: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
51 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
52 ;; (autoload 'idlwave-mode "idlwave" "IDLWAVE Mode" t) |
27107
7b2b73f13427
Renamed idlwave-*.el into idlw-*.el.
Eli Zaretskii <eliz@gnu.org>
parents:
26956
diff
changeset
|
53 ;; (autoload 'idlwave-shell "idlw-shell" "IDLWAVE Shell" t) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
54 ;; (setq auto-mode-alist (cons '("\\.pro\\'" . idlwave-mode) auto-mode-alist)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
55 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
56 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
57 ;; SOURCE |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
58 ;; ====== |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
59 ;; |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
60 ;; The newest version of this file is available from the maintainer's |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
61 ;; Webpage. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
62 ;; |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
63 ;; http://idlwave.org |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
64 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
65 ;; DOCUMENTATION |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
66 ;; ============= |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
67 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
68 ;; IDLWAVE is documented online in info format. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
69 ;; A printable version of the documentation is available from the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
70 ;; maintainers webpage (see under SOURCE) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
71 ;; |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
72 ;; |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
73 ;; ACKNOWLEDGMENTS |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
74 ;; =============== |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
75 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
76 ;; Thanks to the following people for their contributions and comments: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
77 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
78 ;; Ulrik Dickow <dickow@nbi.dk> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
79 ;; Eric E. Dors <edors@lanl.gov> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
80 ;; Stein Vidar H. Haugan <s.v.h.haugan@astro.uio.no> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
81 ;; David Huenemoerder <dph@space.mit.edu> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
82 ;; Kevin Ivory <Kevin.Ivory@linmpi.mpg.de> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
83 ;; Xuyong Liu <liu@stsci.edu> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
84 ;; Simon Marshall <Simon.Marshall@esrin.esa.it> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
85 ;; Laurent Mugnier <mugnier@onera.fr> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
86 ;; Lubos Pochman <lubos@rsinc.com> |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
87 ;; Bob Portmann <portmann@al.noaa.gov> |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
88 ;; Patrick M. Ryan <pat@jaameri.gsfc.nasa.gov> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
89 ;; Marty Ryba <ryba@ll.mit.edu> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
90 ;; Phil Williams <williams@irc.chmcc.org> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
91 ;; Phil Sterne <sterne@dublin.llnl.gov> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
92 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
93 ;; CUSTOMIZATION: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
94 ;; ============= |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
95 ;; |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
96 ;; IDLWAVE has extensive customize support - so if you want to learn |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
97 ;; about the variables which control the behavior of the mode, use |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
98 ;; `M-x idlwave-customize'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
99 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
100 ;; You can set your own preferred values with Customize, or with Lisp |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
101 ;; code in .emacs. For an example of what to put into .emacs, check |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
102 ;; the TexInfo documentation or see a complete .emacs at |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
103 ;; http://idlwave.org. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
104 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
105 ;; KNOWN PROBLEMS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
106 ;; ============== |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
107 ;; |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
108 ;; IDLWAVE support for the IDL-derived PV-WAVE CL language of Visual |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
109 ;; Numerics, Inc. is growing less and less complete as the two |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
110 ;; languages grow increasingly apart. The mode probably shouldn't |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
111 ;; even have "WAVE" in it's title, but it's catchy, and required to |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
112 ;; avoid conflict with the CORBA idl.el mode. Caveat WAVEor. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
113 ;; |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
114 ;; Moving the point backwards in conjunction with abbrev expansion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
115 ;; does not work as I would like it, but this is a problem with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
116 ;; emacs abbrev expansion done by the self-insert-command. It ends |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
117 ;; up inserting the character that expanded the abbrev after moving |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
118 ;; point backward, e.g., "\cl" expanded with a space becomes |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
119 ;; "LONG( )" with point before the close paren. This is solved by |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
120 ;; using a temporary function in `post-command-hook' - not pretty, |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
121 ;; but it works. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
122 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
123 ;; Tabs and spaces are treated equally as whitespace when filling a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
124 ;; comment paragraph. To accomplish this, tabs are permanently |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
125 ;; replaced by spaces in the text surrounding the paragraph, which |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
126 ;; may be an undesirable side-effect. Replacing tabs with spaces is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
127 ;; limited to comments only and occurs only when a comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
128 ;; paragraph is filled via `idlwave-fill-paragraph'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
129 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
130 ;; Avoid muti-statement lines (using "&") on block begin and end |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
131 ;; lines. Multi-statement lines can mess up the formatting, for |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
132 ;; example, multiple end statements on a line: endif & endif. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
133 ;; Using "&" outside of block begin/end lines should be okay. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
134 ;; |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
135 ;; Determining the expression at point for printing and other |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
136 ;; examination commands is somewhat rough: currently only fairly |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
137 ;; simple entities are found. You can always drag-select or examine |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
138 ;; a region. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
139 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
140 ;; When forcing completion of method keywords, the initial |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
141 ;; query for a method has multiple entries for some methods. Would |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
142 ;; be too difficult to fix this hardly used case. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
143 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
144 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
145 ;;; Code: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
146 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
147 (eval-when-compile (require 'cl)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
148 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
149 (eval-and-compile |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
150 ;; Kludge to allow `defcustom' for Emacs 19. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
151 (condition-case () (require 'custom) (error nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
152 (if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
153 nil ;; We've got what we needed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
154 ;; We have the old or no custom-library, hack around it! |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
155 (defmacro defgroup (&rest args) nil) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
156 (defmacro defcustom (var value doc &rest args) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
157 `(defvar ,var ,value ,doc)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
158 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
159 (defgroup idlwave nil |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
160 "Major mode for editing IDL .pro files" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
161 :tag "IDLWAVE" |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
162 :link '(url-link :tag "Home Page" |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
163 "http://idlwave.org") |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
164 :link '(emacs-commentary-link :tag "Commentary in idlw-shell.el" |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
165 "idlw-shell.el") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
166 :link '(emacs-commentary-link :tag "Commentary in idlwave.el" "idlwave.el") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
167 :link '(custom-manual "(idlwave)Top") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
168 :prefix "idlwave" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
169 :group 'languages) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
170 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
171 ;;; Variables for indentation behavior --------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
172 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
173 (defgroup idlwave-code-formatting nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
174 "Indentation and formatting options for IDLWAVE mode." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
175 :group 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
176 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
177 (defcustom idlwave-main-block-indent 0 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
178 "*Extra indentation for the main block of code. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
179 That is the block between the FUNCTION/PRO statement and the END |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
180 statement for that program unit." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
181 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
182 :type 'integer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
183 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
184 (defcustom idlwave-block-indent 4 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
185 "*Extra indentation applied to block lines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
186 If you change this, you probably also want to change `idlwave-end-offset'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
187 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
188 :type 'integer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
189 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
190 (defcustom idlwave-end-offset -4 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
191 "*Extra indentation applied to block END lines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
192 A value equal to negative `idlwave-block-indent' will make END lines |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
193 line up with the block BEGIN lines." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
194 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
195 :type 'integer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
196 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
197 (defcustom idlwave-continuation-indent 2 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
198 "*Extra indentation applied to continuation lines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
199 This extra offset applies to the first of a set of continuation lines. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
200 The following lines receive the same indentation as the first." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
201 :group 'idlwave-code-formatting |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
202 :type 'integer) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
203 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
204 (defcustom idlwave-max-extra-continuation-indent 20 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
205 "*Maximum additional indentation for special continuation indent. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
206 Several special indentations are tried to help line up continuation |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
207 lines in routine calls or definitions, other statements with |
47125
8eeb03f91048
(idlwave-max-extra-continuation-indent): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
46529
diff
changeset
|
208 parentheses, or assignment statements. This variable specifies a |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
209 maximum amount by which this special indentation can exceed the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
210 standard continuation indentation, otherwise defaulting to a fixed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
211 offset. Set to 0 to effectively disable all special continuation |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
212 indentation, or to a large number (like 100) to enable it in all |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
213 cases. See also `idlwave-indent-top-open-paren', which can override |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
214 this variable." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
215 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
216 :type 'integer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
217 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
218 (defcustom idlwave-indent-to-open-paren t |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
219 "*Non-nil means, indent continuation lines to innermost open |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
220 parenthesis. This indentation occurs even if otherwise disallowed by |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
221 `idlwave-max-extra-continuation-indent'. Matching parens and the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
222 interleaving args are lined up. Example: |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
223 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
224 x = function_a(function_b(function_c( a, b, [1,2,3, $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
225 4,5,6 $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
226 ], $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
227 c, d $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
228 ))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
229 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
230 When this variable is nil, paren alignment may still occur, based on |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
231 the value of `max-extra-continuation-indent', which, if zero, would |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
232 yield: |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
233 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
234 x = function_a(function_b(function_c( a, b, [1,2,3, $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
235 4,5,6 $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
236 ], $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
237 c, d $ |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
238 )))" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
239 :group 'idlwave-code-formatting |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
240 :type 'boolean) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
241 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
242 (defcustom idlwave-hanging-indent t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
243 "*If set non-nil then comment paragraphs are indented under the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
244 hanging indent given by `idlwave-hang-indent-regexp' match in the first line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
245 of the paragraph." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
246 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
247 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
248 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
249 (defcustom idlwave-hang-indent-regexp "- " |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
250 "*Regular expression matching the position of the hanging indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
251 in the first line of a comment paragraph. The size of the indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
252 extends to the end of the match for the regular expression." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
253 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
254 :type 'regexp) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
255 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
256 (defcustom idlwave-use-last-hang-indent nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
257 "*If non-nil then use last match on line for `idlwave-indent-regexp'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
258 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
259 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
260 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
261 (defcustom idlwave-fill-comment-line-only t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
262 "*If non-nil then auto fill will only operate on comment lines." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
263 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
264 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
265 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
266 (defcustom idlwave-auto-fill-split-string t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
267 "*If non-nil then auto fill will split strings with the IDL `+' operator. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
268 When the line end falls within a string, string concatenation with the |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
269 '+' operator will be used to distribute a long string over lines. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
270 If nil and a string is split then a terminal beep and warning are issued. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
271 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
272 This variable is ignored when `idlwave-fill-comment-line-only' is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
273 non-nil, since in this case code is not auto-filled." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
274 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
275 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
276 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
277 (defcustom idlwave-split-line-string t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
278 "*If non-nil then `idlwave-split-line' will split strings with `+'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
279 When the splitting point of a line falls inside a string, split the string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
280 using the `+' string concatenation operator. If nil and a string is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
281 split then a terminal beep and warning are issued." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
282 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
283 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
284 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
285 (defcustom idlwave-no-change-comment ";;;" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
286 "*The indentation of a comment that starts with this regular |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
287 expression will not be changed. Note that the indentation of a comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
288 at the beginning of a line is never changed." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
289 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
290 :type 'string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
291 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
292 (defcustom idlwave-begin-line-comment nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
293 "*A comment anchored at the beginning of line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
294 A comment matching this regular expression will not have its |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
295 indentation changed. If nil the default is \"^;\", i.e., any line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
296 beginning with a \";\". Expressions for comments at the beginning of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
297 the line should begin with \"^\"." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
298 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
299 :type '(choice (const :tag "Any line beginning with `;'" nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
300 'regexp)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
301 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
302 (defcustom idlwave-code-comment ";;[^;]" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
303 "*A comment that starts with this regular expression on a line by |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
304 itself is indented as if it is a part of IDL code. As a result if |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
305 the comment is not preceded by whitespace it is unchanged." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
306 :group 'idlwave-code-formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
307 :type 'regexp) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
308 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
309 ;; Comments not matching any of the above will be indented as a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
310 ;; right-margin comment, i.e., to a minimum of `comment-column'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
311 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
312 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
313 ;;; Routine Info and Completion --------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
314 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
315 (defgroup idlwave-routine-info nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
316 "Routine Info options for IDLWAVE mode." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
317 :group 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
318 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
319 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
320 (defcustom idlwave-init-rinfo-when-idle-after 10 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
321 "*Seconds of idle time before routine info is automatically initialized. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
322 Initializing the routine info can take long, in particular if a large |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
323 library catalog is involved. When Emacs is idle for more than the number |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
324 of seconds specified by this variable, it starts the initialization. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
325 The process is split into five steps, in order to keep possible work |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
326 interruption as short as possible. If one of the steps finishes, and no |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
327 user input has arrived in the mean time, initialization proceeds immediately |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
328 to the next step. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
329 A good value for this variable is about 1/3 of the time initialization |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
330 take in you setup. So if you have a fast machine and no problems with a slow network connection, don't hesitate to set this to 2 seconds. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
331 A Value of 0 means, don't initialize automatically." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
332 :group 'idlwave-routine-info |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
333 :type 'number) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
334 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
335 (defcustom idlwave-scan-all-buffers-for-routine-info t |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
336 "*Non-nil means, scan buffers for IDL programs when updating info. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
337 The scanning is done by the command `idlwave-update-routine-info'. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
338 The following values are allowed: |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
339 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
340 nil Don't scan any buffers. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
341 t Scan all idlwave-mode buffers in the current editing session. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
342 current Scan only the current buffer, but no other buffers." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
343 :group 'idlwave-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
344 :type '(choice |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
345 (const :tag "No buffer" nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
346 (const :tag "All buffers" t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
347 (const :tag "Current buffer only" 'current))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
348 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
349 (defcustom idlwave-query-shell-for-routine-info t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
350 "*Non-nil means query the shell for info about compiled routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
351 Querying the shell is useful to get information about compiled modules, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
352 and it is turned on by default. However, when you have a complete library |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
353 scan, this is not necessary." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
354 :group 'idlwave-routine-info |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
355 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
356 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
357 (defcustom idlwave-auto-routine-info-updates |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
358 '(find-file save-buffer kill-buffer compile-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
359 "*Controls under what circumstances routine info is updated automatically. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
360 Possible values: |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
361 nil Never |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
362 t All available |
47479 | 363 \(...) A list of circumstances. Allowed members are: |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
364 find-file Add info for new IDLWAVE buffers. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
365 save-buffer Update buffer info when buffer is saved |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
366 kill-buffer Remove buffer info when buffer gets killed |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
367 compile-buffer Update shell info after `idlwave-shell-save-and...'" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
368 :group 'idlwave-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
369 :type '(choice |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
370 (const :tag "Never" nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
371 (const :tag "As often as possible" t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
372 (set :tag "Checklist" :greedy t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
373 (const :tag "When visiting a file" find-file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
374 (const :tag "When saving a buffer" save-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
375 (const :tag "After a buffer was killed" kill-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
376 (const :tag "After a buffer was compiled successfully, update shell info" compile-buffer)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
377 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
378 (defcustom idlwave-rinfo-max-source-lines 5 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
379 "*Maximum number of source files displayed in the Routine Info window. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
380 When an integer, it is the maximum number of source files displayed. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
381 t means to show all source files." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
382 :group 'idlwave-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
383 :type 'integer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
384 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
385 (defcustom idlwave-library-path nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
386 "Library path for Windows and MacOS. Not needed under Unix. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
387 When selecting the directories to scan for IDL library routine info, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
388 IDLWAVE can under UNIX query the shell for the exact search path. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
389 However, under Windows and MacOS, the IDLWAVE shell does not work. In this |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
390 case, this variable specifies the path where IDLWAVE can find library files. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
391 The shell will only be asked when this variable is nil. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
392 The value is a list of directories. A directory preceeded by a `+' will |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
393 be searched recursively. If you set this variable on a UNIX system, the shell |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
394 will not be asked. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
395 See also `idlwave-system-directory'." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
396 :group 'idlwave-routine-info |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
397 :type '(repeat (directory))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
398 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
399 (defcustom idlwave-system-directory "" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
400 "The IDL system directory for Windows and MacOS. Not needed under UNIX. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
401 Set this to the value of the `!DIR' system variable in IDL. IDLWAVE uses |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
402 this to find out which of the library routines belong to the official system |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
403 library. All files inside the `lib' subdirectory are considered system |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
404 library files - so don't install private stuff in this directory. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
405 On UNIX systems, IDLWAVE queries the shell for the value of `!DIR'. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
406 See also `idlwave-library-path'." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
407 :group 'idlwave-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
408 :type 'directory) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
409 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
410 (defcustom idlwave-libinfo-file "~/.idlcat.el" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
411 "*File for routine information of the IDL library. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
412 When this points to a file, the file will be loaded when IDLWAVE first |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
413 accesses routine info (or does completion). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
414 When you scan the library with `idlwave-create-libinfo-file', this file |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
415 will be used to store the result." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
416 :group 'idlwave-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
417 :type 'file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
418 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
419 (defcustom idlwave-special-lib-alist nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
420 "Alist of regular expressions matching special library directories. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
421 When listing routine source locations, IDLWAVE gives a short hint where |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
422 the file defining the routine is located. By default it lists `SystemLib' |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
423 for routines in the system library `!DIR/lib' and `Library' for anything |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
424 else. This variable can define additional types. The car of each entry |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
425 is a regular expression matching the file name (they normally will match |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
426 on the path). The cdr is the string to be used as identifier. Max 10 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
427 chars are allowed." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
428 :group 'idlwave-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
429 :type '(repeat |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
430 (cons regexp string))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
431 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
432 (defgroup idlwave-online-help nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
433 "Online Help options for IDLWAVE mode." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
434 :group 'idlwave) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
435 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
436 (defcustom idlwave-help-directory "" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
437 "The directory where idlw-help.txt and idlw-help.el are stored." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
438 :group 'idlwave-online-help |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
439 :type 'file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
440 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
441 (defcustom idlwave-help-use-dedicated-frame t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
442 "*Non-nil means, use a separate frame for Online Help if possible." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
443 :group 'idlwave-online-help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
444 :type 'boolean) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
445 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
446 (defcustom idlwave-help-frame-parameters |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
447 '((height . 20) (unsplittable . t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
448 "The frame parameters for the special Online Help frame. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
449 See also `idlwave-help-use-dedicated-frame'. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
450 If you do not set the frame width here, the value specified in |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
451 `idlw-help.el' will be used." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
452 :group 'idlwave-online-help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
453 :type '(repeat |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
454 (cons symbol sexp))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
455 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
456 (defcustom idlwave-max-popup-menu-items 20 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
457 "Maximum number of items per pane in popup menus. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
458 Currently only used for class selection during completion help." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
459 :group 'idlwave-online-help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
460 :type 'integer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
461 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
462 (defcustom idlwave-extra-help-function 'idlwave-help-with-source |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
463 "The function to call for online help if the normal help fails. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
464 Online help works only for system routines which are described in the |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
465 IDL manuals. A function may be specified to access help from other sources. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
466 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
467 The function must accept four arguments: NAME, TYPE, CLASS, KEYWORD. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
468 The Help buffer is current when this function is called, and the help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
469 text should be loaded into this buffer. If help is found, the function |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
470 should return the buffer position which should be used as `window-start' |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
471 in the help window. Also, the variable `idlwave-help-mode-line-indicator' |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
472 should be set to a useful string, which will be displayed in the mode line |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
473 of the help window. If should also set the variable `idlwave-min-frame-width' |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
474 to a positive integer. IDLWAVE will ensure that the help frame is at |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
475 least that many columns wide. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
476 Failure to find help should be indicated by throwing an error. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
477 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
478 When this variable is non-nil, IDLWAVE will allow the mouse-3 help click |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
479 for every routine and keyword, even though the item may not be highlighted |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
480 in blue (indicating the availability of system documentation). |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
481 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
482 The default value for this function is `idlwave-help-with-source' which |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
483 loads the routine source file into the help buffer. If you try to write |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
484 a different function which accesses a special help file or so, it is |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
485 probably a good idea to still call this function as a fallback." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
486 :group 'idlwave-online-help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
487 :type 'symbol) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
488 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
489 (defcustom idlwave-help-fontify-source-code nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
490 "*Non-nil means, fontify source code displayed as help like normal code." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
491 :group 'idlwave-online-help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
492 :type 'boolean) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
493 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
494 (defcustom idlwave-help-source-try-header t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
495 "*Non-nil means, try to find help in routine header when displaying source. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
496 Routines which are not documented in the system manual use their source as |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
497 help text. When this variable is non-nil, we try to find a description of |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
498 the help item in the first routine doclib header above the routine definition. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
499 If the variable is nil, or if we cannot find/parse the header, the routine |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
500 definition is displayed instead." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
501 :group 'idlwave-online-help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
502 :type 'boolean) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
503 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
504 (defface idlwave-help-link-face |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
505 '((((class color)) (:foreground "Blue")) |
42456
8a4077ab418c
(various face definitions): Use :weight, not :bold.
Richard M. Stallman <rms@gnu.org>
parents:
42444
diff
changeset
|
506 (t (:weight bold))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
507 "Face for highlighting links into IDLWAVE online help." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
508 :group 'idlwave-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
509 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
510 (defcustom idlwave-help-activate-links-aggressively t |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
511 "*Non-nil means, make all possible links in help active. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
512 This just activates all words which are also a help topic - some links may |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
513 be misleading." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
514 :group 'idlwave-online-help |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
515 :type 'boolean) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
516 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
517 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
518 (defgroup idlwave-completion nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
519 "Completion options for IDLWAVE mode." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
520 :prefix "idlwave" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
521 :group 'idlwave) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
522 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
523 (eval-and-compile |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
524 (defconst idlwave-tmp |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
525 '(choice :tag "by applying the function" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
526 (const upcase) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
527 (const downcase) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
528 (const capitalize) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
529 (const preserve) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
530 (symbol :tag "Other")))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
531 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
532 (defcustom idlwave-completion-case '((routine . upcase) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
533 (keyword . upcase) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
534 (class . preserve) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
535 (method . preserve)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
536 "Association list setting the case of completed words. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
537 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
538 This variable determines the case (UPPER/lower/Capitalized...) of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
539 words inserted into the buffer by completion. The preferred case can |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
540 be specified separately for routine names, keywords, classes and |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
541 methods. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
542 This alist should therefore have entries for `routine' (normal |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
543 functions and procedures, i.e. non-methods), `keyword', `class', and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
544 `method'. Plausible values are |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
545 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
546 upcase upcase whole word, like `BOX_CURSOR' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
547 downcase downcase whole word, like `read_ppm' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
548 capitalize capitalize each part, like `Widget_Control' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
549 preserve preserve case as is, like `IDLgrView' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
550 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
551 The value can also be any Emacs Lisp function which transforms the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
552 case of characters in a string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
553 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
554 A value of `preserve' means that the case of the completed word is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
555 identical to the way it was written in the definition statement of the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
556 routine. This was implemented to allow for mixed-case completion, in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
557 particular of object classes and methods. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
558 If a completable word is defined in multiple locations, the meaning of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
559 `preserve' is not unique since the different definitions might be |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
560 cased differently. Therefore IDLWAVE always takes the case of the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
561 *first* definition it encounters during routine info collection and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
562 uses the case derived from it consistently. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
563 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
564 Note that a lowercase-only string in the buffer will always be completed in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
565 lower case (but see the variable `idlwave-completion-force-default-case'). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
566 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
567 After changing this variable, you need to either restart Emacs or press |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
568 `C-u C-c C-i' to update the internal lists." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
569 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
570 :type `(repeat |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
571 (cons (symbol :tag "Derive completion case for") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
572 ,idlwave-tmp))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
573 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
574 (defcustom idlwave-completion-force-default-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
575 "*Non-nil means, completion will always honor `idlwave-completion-case'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
576 When nil, only the completion of a mixed case or upper case string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
577 will honor the default settings in `idlwave-completion-case', while |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
578 the completion of lower case strings will be completed entirely in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
579 lower case." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
580 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
581 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
582 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
583 (defcustom idlwave-complete-empty-string-as-lower-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
584 "*Non-nil means, the empty string is considered downcase for completion. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
585 The case of what is already in the buffer determines the case of completions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
586 When this variable is non-nil, the empty string is considered to be downcase. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
587 Completing on the empty string then offers downcase versions of the possible |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
588 completions." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
589 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
590 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
591 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
592 (defvar idlwave-default-completion-case-is-down nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
593 "Obsolete variable. See `idlwave-complete-empty-string-as-lower-case' and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
594 `idlwave-completion-case'.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
595 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
596 (defcustom idlwave-buffer-case-takes-precedence nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
597 "*Non-nil means, the case of tokens in buffers dominates over system stuff. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
598 To make this possible, we need to re-case everything each time we update |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
599 the routine info from the buffers. This is slow. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
600 The default is to consider the case given in the system and library files |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
601 first which makes updating much faster." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
602 :group 'idlwave-completion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
603 :type 'boolean) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
604 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
605 (defcustom idlwave-highlight-help-links-in-completion t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
606 "*Non-nil means, highlight completions for which system help is available. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
607 Help can then be accessed with mouse-3. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
608 This option is only effective when the online help system is installed." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
609 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
610 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
611 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
612 (defcustom idlwave-support-inheritance t |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
613 "Non-nil means, treat inheritance with completion, online help etc. |
47261
863b1f0c98f8
(idlwave-support-inheritance, idlwave-routine-entry-compare): Fix spacing.
Juanma Barranquero <lekktu@gmail.com>
parents:
47125
diff
changeset
|
614 When nil, IDLWAVE only knows about the native methods and tags of a class, |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
615 not about inherited ones." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
616 :group 'idlwave-routine-info |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
617 :type 'boolean) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
618 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
619 (defcustom idlwave-keyword-class-inheritance '("^[gs]etproperty$" "^init$") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
620 "List of regular expressions for class-driven keyword inheritance. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
621 Keyword inheritance is often tied to class inheritance by \"chaining\" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
622 up the class tree. While it cannot be assumed that the presence of an |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
623 _EXTRA or _REF_EXTRA symbol guarantees such chaining will occur, for |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
624 certain methods this assumption is almost always true. The methods |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
625 for which to assume this can be set here." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
626 :group 'idlwave-routine-info |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
627 :type '(repeat (regexp :tag "Match method:"))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
628 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
629 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
630 (defcustom idlwave-completion-show-classes 1 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
631 "*Number of classes to show when completing object methods and keywords. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
632 When completing methods or keywords for an object with unknown class, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
633 the *Completions* buffer will show the legal classes for each completion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
634 like this: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
635 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
636 MyMethod <Class1,Class2,Class3> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
637 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
638 The value of this variable may be nil to inhibit display, or an integer to |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
639 indicate the maximum number of classes to display. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
640 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
641 On XEmacs, a full list of classes will also be placed into a `help-echo' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
642 property on the competion items, so that the list of classes for the current |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
643 item is displayed in the echo area. If the value of this variable is a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
644 negative integer, the `help-echo' property will be suppressed." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
645 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
646 :type '(choice (const :tag "Don't show" nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
647 (integer :tag "Number of classes shown" 1))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
648 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
649 (defcustom idlwave-completion-fontify-classes t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
650 "*Non-nil means, fontify the classes in completions buffer. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
651 This makes it easier to distinguish the completion items from the extra |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
652 class info listed. See `idlwave-completion-show-classes'." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
653 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
654 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
655 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
656 (defcustom idlwave-query-class '((method-default . nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
657 (keyword-default . nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
658 "Association list governing specification of object classes for completion. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
659 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
660 When IDLWAVE tries to complete object-oriented methods, it usually |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
661 cannot determine the class of a given object from context. In order |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
662 to provide the user with a correct list of methods or keywords, it |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
663 needs to determine the appropriate class. IDLWAVE has two ways of |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
664 doing this (well, three ways if you count the shell... see |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
665 `idlwave-shell-query-for-class'): |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
666 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
667 1. Combine the items of all available classes which contain this |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
668 method for the purpose of completion. So when completing a method, |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
669 all methods of all known classes are available, and when completing |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
670 a keyword, all keywords allowed for this method in any class are |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
671 shown. This behavior is very much like normal completion and is |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
672 therefore the default. It works much better than one might think - |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
673 only for the INIT, GETPROPERTY and SETPROPERTY the keyword lists |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
674 become uncomfortably long. See also |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
675 `idlwave-completion-show-classes'. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
676 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
677 2. The second possibility is to ask the user on each occasion. To |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
678 make this less interruptive, IDLWAVE can store the class as a text |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
679 property on the object operator `->'. For a given object in the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
680 source code, class selection will then be needed only once |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
681 - for example to complete the method. Keywords to the method can |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
682 then be completed directly, because the class is already known. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
683 You will have to turn on the storage of the selected class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
684 explicitly with the variable `idlwave-store-inquired-class'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
685 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
686 This variable allows you to configure IDLWAVE's method and |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
687 method-keyword completion behavior. Its value is an alist, which |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
688 should contain at least two elements: (method-default . VALUE) and |
47479 | 689 \(keyword-default . VALUE), where VALUE is either t or nil. These |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
690 specify if the class should be found during method and keyword |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
691 completion, respectively. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
692 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
693 The alist may have additional entries specifying exceptions from the |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
694 keyword completion rule for specific methods, like INIT or |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
695 GETPROPERTY. In order to turn on class specification for the INIT |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
696 method, add an entry (\"INIT\" . t). The method name must be ALL-CAPS." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
697 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
698 :type '(list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
699 (cons (const method-default) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
700 (boolean :tag "Determine class when completing METHODS ")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
701 (cons (const keyword-default) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
702 (boolean :tag "Determine class when completing KEYWORDS ")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
703 (repeat |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
704 :tag "Exceptions to defaults" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
705 :inline t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
706 (cons (string :tag "MODULE" :value "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
707 (boolean :tag "Determine class for this method"))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
708 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
709 (defcustom idlwave-store-inquired-class nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
710 "*Non-nil means, store class of a method call as text property on `->'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
711 IDLWAVE sometimes has to ask the user for the class associated with a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
712 particular object method call. This happens during the commands |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
713 `idlwave-routine-info' and `idlwave-complete', depending upon the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
714 value of the variable `idlwave-query-class'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
715 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
716 When you specify a class, this information can be stored as a text |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
717 property on the `->' arrow in the source code, so that during the same |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
718 editing session, IDLWAVE will not have to ask again. When this |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
719 variable is non-nil, IDLWAVE will store and reuse the class information. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
720 The class stored can be checked and removed with `\\[idlwave-routine-info]' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
721 on the arrow. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
722 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
723 The default of this variable is nil, since the result of commands then |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
724 is more predictable. However, if you know what you are doing, it can |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
725 be nice to turn this on. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
726 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
727 An arrow which knows the class will be highlighted with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
728 `idlwave-class-arrow-face'. The command \\[idlwave-routine-info] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
729 displays (with prefix arg: deletes) the class stored on the arrow |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
730 at point." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
731 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
732 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
733 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
734 (defcustom idlwave-class-arrow-face 'bold |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
735 "*Face to highlight object operator arrows `->' which carry a class property. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
736 When IDLWAVE stores a class name as text property on an object arrow |
47479 | 737 \(see variable `idlwave-store-inquired-class', it highlights the arrow |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
738 with this font in order to remind the user that this arrow is special." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
739 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
740 :type 'symbol) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
741 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
742 (defcustom idlwave-resize-routine-help-window t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
743 "*Non-nil means, resize the Routine-info *Help* window to fit the content." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
744 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
745 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
746 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
747 (defcustom idlwave-keyword-completion-adds-equal t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
748 "*Non-nil means, completion automatically adds `=' after completed keywords." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
749 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
750 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
751 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
752 (defcustom idlwave-function-completion-adds-paren t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
753 "*Non-nil means, completion automatically adds `(' after completed function. |
42205 | 754 nil means, don't add anything. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
755 A value of `2' means, also add the closing parenthesis and position cursor |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
756 between the two." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
757 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
758 :type '(choice (const :tag "Nothing" nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
759 (const :tag "(" t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
760 (const :tag "()" 2))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
761 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
762 (defcustom idlwave-completion-restore-window-configuration t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
763 "*Non-nil means, try to restore the window configuration after completion. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
764 When completion is not unique, Emacs displays a list of completions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
765 This messes up your window configuration. With this variable set, IDLWAVE |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
766 restores the old configuration after successful completion." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
767 :group 'idlwave-completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
768 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
769 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
770 ;;; Variables for abbrev and action behavior ----------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
771 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
772 (defgroup idlwave-abbrev-and-indent-action nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
773 "IDLWAVE performs actions when expanding abbreviations or indenting lines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
774 The variables in this group govern this." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
775 :group 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
776 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
777 (defcustom idlwave-do-actions nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
778 "*Non-nil means performs actions when indenting. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
779 The actions that can be performed are listed in `idlwave-indent-action-table'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
780 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
781 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
782 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
783 (defcustom idlwave-abbrev-start-char "\\" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
784 "*A single character string used to start abbreviations in abbrev mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
785 Possible characters to chose from: ~`\% |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
786 or even '?'. '.' is not a good choice because it can make structure |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
787 field names act like abbrevs in certain circumstances. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
788 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
789 Changes to this in `idlwave-mode-hook' will have no effect. Instead a user |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
790 must set it directly using `setq' in the .emacs file before idlwave.el |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
791 is loaded." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
792 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
793 :type 'string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
794 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
795 (defcustom idlwave-surround-by-blank nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
796 "*Non-nil means, enable `idlwave-surround'. |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
797 If non-nil, `=',`<',`>',`&',`,', `->' are surrounded with spaces by |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
798 `idlwave-surround'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
799 See help for `idlwave-indent-action-table' for symbols using `idlwave-surround'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
800 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
801 Also see the default key bindings for keys using `idlwave-surround'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
802 Keys are bound and made into actions calling `idlwave-surround' with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
803 `idlwave-action-and-binding'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
804 See help for `idlwave-action-and-binding' for examples. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
805 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
806 Also see help for `idlwave-surround'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
807 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
808 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
809 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
810 (defcustom idlwave-pad-keyword t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
811 "*Non-nil means pad '=' for keywords like assignments. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
812 Whenever `idlwave-surround' is non-nil then this affects how '=' is padded |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
813 for keywords. If t, it is padded the same as for assignments. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
814 If nil then spaces are removed. With any other value, spaces are left |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
815 unchanged." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
816 :group 'idlwave-abbrev-and-indent-action |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
817 :type '(choice |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
818 (const :tag "Pad like assignments" t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
819 (const :tag "Remove space near `='" nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
820 (const :tag "Keep space near `='" 'keep))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
821 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
822 (defcustom idlwave-show-block t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
823 "*Non-nil means point blinks to block beginning for `idlwave-show-begin'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
824 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
825 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
826 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
827 (defcustom idlwave-expand-generic-end nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
828 "*Non-nil means expand generic END to ENDIF/ENDELSE/ENDWHILE etc." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
829 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
830 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
831 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
832 (defcustom idlwave-reindent-end t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
833 "*Non-nil means re-indent line after END was typed." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
834 :group 'idlwave-abbrev-and-indent-action |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
835 :type 'boolean) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
836 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
837 (defcustom idlwave-abbrev-move t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
838 "*Non-nil means the abbrev hook can move point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
839 Set to nil by `idlwave-expand-region-abbrevs'. To see the abbrev |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
840 definitions, use the command `list-abbrevs', for abbrevs that move |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
841 point. Moving point is useful, for example, to place point between |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
842 parentheses of expanded functions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
843 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
844 See `idlwave-check-abbrev'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
845 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
846 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
847 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
848 (defcustom idlwave-abbrev-change-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
849 "*Non-nil means all abbrevs will be forced to either upper or lower case. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
850 If the value t, all expanded abbrevs will be upper case. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
851 If the value is 'down then abbrevs will be forced to lower case. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
852 If nil, the case will not change. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
853 If `idlwave-reserved-word-upcase' is non-nil, reserved words will always be |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
854 upper case, regardless of this variable." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
855 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
856 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
857 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
858 (defcustom idlwave-reserved-word-upcase nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
859 "*Non-nil means, reserved words will be made upper case via abbrev expansion. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
860 If nil case of reserved words is controlled by `idlwave-abbrev-change-case'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
861 Has effect only if in abbrev-mode." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
862 :group 'idlwave-abbrev-and-indent-action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
863 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
864 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
865 ;;; Action/Expand Tables. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
866 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
867 ;; The average user may have difficulty modifying this directly. It |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
868 ;; can be modified/set in idlwave-mode-hook, but it is easier to use |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
869 ;; idlwave-action-and-binding. See help for idlwave-action-and-binding for |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
870 ;; examples of how to add an action. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
871 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
872 ;; The action table is used by `idlwave-indent-line' whereas both the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
873 ;; action and expand tables are used by `idlwave-indent-and-action'. In |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
874 ;; general, the expand table is only used when a line is explicitly |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
875 ;; indented. Whereas, in addition to being used when the expand table |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
876 ;; is used, the action table is used when a line is indirectly |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
877 ;; indented via line splitting, auto-filling or a new line creation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
878 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
879 ;; Example actions: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
880 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
881 ;; Capitalize system vars |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
882 ;; (idlwave-action-and-binding idlwave-sysvar '(capitalize-word 1) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
883 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
884 ;; Capitalize procedure name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
885 ;; (idlwave-action-and-binding "\\<\\(pro\\|function\\)\\>[ \t]*\\<" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
886 ;; '(capitalize-word 1) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
887 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
888 ;; Capitalize common block name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
889 ;; (idlwave-action-and-binding "\\<common\\>[ \t]+\\<" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
890 ;; '(capitalize-word 1) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
891 ;; Capitalize label |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
892 ;; (idlwave-action-and-binding (concat "^[ \t]*" idlwave-label) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
893 ;; '(capitalize-word -1) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
894 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
895 (defvar idlwave-indent-action-table nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
896 "*Associated array containing action lists of search string (car), |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
897 and function as a cdr. This table is used by `idlwave-indent-line'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
898 See documentation for `idlwave-do-action' for a complete description of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
899 the action lists. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
900 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
901 Additions to the table are made with `idlwave-action-and-binding' when a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
902 binding is not requested. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
903 See help on `idlwave-action-and-binding' for examples.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
904 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
905 (defvar idlwave-indent-expand-table nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
906 "*Associated array containing action lists of search string (car), |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
907 and function as a cdr. The table is used by the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
908 `idlwave-indent-and-action' function. See documentation for |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
909 `idlwave-do-action' for a complete description of the action lists. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
910 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
911 Additions to the table are made with `idlwave-action-and-binding' when a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
912 binding is requested. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
913 See help on `idlwave-action-and-binding' for examples.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
914 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
915 ;;; Documentation header and history keyword --------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
916 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
917 (defgroup idlwave-documentation nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
918 "Options for documenting IDLWAVE files." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
919 :group 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
920 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
921 ;; FIXME: make defcustom? |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
922 (defvar idlwave-file-header |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
923 (list nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
924 ";+ |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
925 ; NAME: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
926 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
927 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
928 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
929 ; PURPOSE: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
930 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
931 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
932 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
933 ; CATEGORY: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
934 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
935 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
936 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
937 ; CALLING SEQUENCE: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
938 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
939 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
940 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
941 ; INPUTS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
942 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
943 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
944 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
945 ; OPTIONAL INPUTS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
946 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
947 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
948 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
949 ; KEYWORD PARAMETERS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
950 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
951 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
952 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
953 ; OUTPUTS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
954 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
955 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
956 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
957 ; OPTIONAL OUTPUTS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
958 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
959 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
960 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
961 ; COMMON BLOCKS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
962 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
963 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
964 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
965 ; SIDE EFFECTS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
966 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
967 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
968 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
969 ; RESTRICTIONS: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
970 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
971 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
972 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
973 ; PROCEDURE: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
974 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
975 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
976 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
977 ; EXAMPLE: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
978 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
979 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
980 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
981 ; MODIFICATION HISTORY: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
982 ; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
983 ;- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
984 ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
985 "*A list (PATHNAME STRING) specifying the doc-header template to use for |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
986 summarizing a file. If PATHNAME is non-nil then this file will be included. |
42205 | 987 Otherwise STRING is used. If nil, the file summary will be omitted. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
988 For example you might set PATHNAME to the path for the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
989 lib_template.pro file included in the IDL distribution.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
990 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
991 (defcustom idlwave-header-to-beginning-of-file nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
992 "*Non-nil means, the documentation header will always be at start of file. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
993 When nil, the header is positioned between the PRO/FUNCTION line of |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
994 the current routine and the code, allowing several routine headers in |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
995 a file." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
996 :group 'idlwave-documentation |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
997 :type 'boolean) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
998 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
999 (defcustom idlwave-timestamp-hook 'idlwave-default-insert-timestamp |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1000 "*The hook function used to update the timestamp of a function." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1001 :group 'idlwave-documentation |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1002 :type 'function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1003 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1004 (defcustom idlwave-doc-modifications-keyword "HISTORY" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1005 "*The modifications keyword to use with the log documentation commands. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1006 A ':' is added to the keyword end. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1007 Inserted by doc-header and used to position logs by doc-modification. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1008 If nil it will not be inserted." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1009 :group 'idlwave-documentation |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1010 :type 'string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1011 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1012 (defcustom idlwave-doclib-start "^;+\\+" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1013 "*Regexp matching the start of a document library header." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1014 :group 'idlwave-documentation |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1015 :type 'regexp) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1016 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1017 (defcustom idlwave-doclib-end "^;+-" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1018 "*Regexp matching the end of a document library header." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1019 :group 'idlwave-documentation |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1020 :type 'regexp) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1021 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1022 ;;; External Programs ------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1023 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1024 (defgroup idlwave-external-programs nil |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1025 "Path locations of external commands used by IDLWAVE." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1026 :group 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1027 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1028 ;; WARNING: The following variable has recently been moved from |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1029 ;; idlw-shell.el to this file. I hope this does not break |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1030 ;; anything. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1031 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1032 (defcustom idlwave-shell-explicit-file-name "idl" |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1033 "*If non-nil, this is the command to run IDL. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1034 Should be an absolute file path or path relative to the current environment |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1035 execution search path. If you want to specify command line switches |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1036 for the idl program, use `idlwave-shell-command-line-options'. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1037 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1038 I know the name of this variable is badly chosen, but I cannot change |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1039 it without compromizing backwards-compatibility." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1040 :group 'idlwave-external-programs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1041 :type 'string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1042 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1043 (defcustom idlwave-shell-command-line-options nil |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1044 "*A list of command line options for calling the IDL program. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1045 Since IDL is executed directly without going through a shell like /bin/sh, |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1046 this should be a list of strings like '(\"-rt=file\" \"-nw\") with a separate |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1047 string for each argument. But you may also give a single string which |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1048 contains the options whitespace-separated. Emacs will be kind enough to |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1049 split it for you." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1050 :type '(choice |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1051 string |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1052 (repeat (string :value ""))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1053 :group 'idlwave-external-programs) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1054 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1055 (defcustom idlwave-help-application "idlhelp" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1056 "*The external application providing reference help for programming." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1057 :group 'idlwave-external-programs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1058 :type 'string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1059 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1060 ;;; Some Shell variables which must be defined here.----------------------- |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1061 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1062 (defcustom idlwave-shell-debug-modifiers '() |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1063 "List of modifiers to be used for the debugging commands. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1064 Will be used to bind debugging commands in the shell buffer and in all |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1065 source buffers. These are additional convenience bindings, the debugging |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1066 commands are always available with the `C-c C-d' prefix. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1067 If you set this to '(control shift), this means setting a breakpoint will |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1068 be on `C-S-b', compiling a source file on `C-S-c' etc. Possible modifiers |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1069 are `control', `meta', `super', `hyper', `alt', and `shift'." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1070 :group 'idlwave-shell-general-setup |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1071 :type '(set :tag "Specify modifiers" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1072 (const control) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1073 (const meta) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1074 (const super) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1075 (const hyper) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1076 (const alt) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1077 (const shift))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1078 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1079 (defcustom idlwave-shell-automatic-start nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1080 "*If non-nil attempt invoke idlwave-shell if not already running. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1081 This is checked when an attempt to send a command to an |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1082 IDL process is made." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1083 :group 'idlwave-shell-general-setup |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1084 :type 'boolean) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1085 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1086 ;;; Miscellaneous variables ------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1087 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1088 (defgroup idlwave-misc nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1089 "Miscellaneous options for IDLWAVE mode." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1090 :group 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1091 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1092 (defcustom idlwave-startup-message t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1093 "*Non-nil displays a startup message when `idlwave-mode' is first called." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1094 :group 'idlwave-misc |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1095 :type 'boolean) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1096 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1097 (defcustom idlwave-default-font-lock-items |
47479 | 1098 '(pros-and-functions batch-files idlwave-idl-keywords label goto |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1099 common-blocks class-arrows) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1100 "Items which should be fontified on the default fontification level 2. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1101 IDLWAVE defines 3 levels of fontification. Level 1 is very little, level 3 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1102 is everything and level 2 is specified by this list. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1103 This variable must be set before IDLWAVE gets loaded. It is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1104 a list of symbols, the following symbols are allowed. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1105 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1106 pros-and-functions Procedure and Function definitions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1107 batch-files Batch Files |
47479 | 1108 idlwave-idl-keywords IDL Keywords |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1109 label Statement Labels |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1110 goto Goto Statements |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1111 common-blocks Common Blocks |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1112 keyword-parameters Keyword Parameters in routine definitions and calls |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1113 system-variables System Variables |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1114 fixme FIXME: Warning in comments (on XEmacs only v. 21.0 and up) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1115 class-arrows Object Arrows with class property" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1116 :group 'idlwave-misc |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1117 :type '(set |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1118 :inline t :greedy t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1119 (const :tag "Procedure and Function definitions" pros-and-functions) |
47479 | 1120 (const :tag "Batch Files" batch-files) |
1121 (const :tag "IDL Keywords (reserved words)" idlwave-idl-keywords) | |
1122 (const :tag "Statement Labels" label) | |
1123 (const :tag "Goto Statements" goto) | |
1124 (const :tag "Tags in Structure Definition" structtag) | |
1125 (const :tag "Structure Name" structname) | |
1126 (const :tag "Common Blocks" common-blocks) | |
1127 (const :tag "Keyword Parameters" keyword-parameters) | |
1128 (const :tag "System Variables" system-variables) | |
1129 (const :tag "FIXME: Warning" fixme) | |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1130 (const :tag "Object Arrows with class property " class-arrows))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1131 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1132 (defcustom idlwave-mode-hook nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1133 "Normal hook. Executed when a buffer is put into `idlwave-mode'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1134 :group 'idlwave-misc |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1135 :type 'hook) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1136 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1137 (defcustom idlwave-load-hook nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1138 "Normal hook. Executed when idlwave.el is loaded." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1139 :group 'idlwave-misc |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1140 :type 'hook) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1141 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1142 (defvar idlwave-experimental nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1143 "Non-nil means turn on a few experimental features. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1144 This variable is only for the maintainer, to test difficult stuff, |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1145 while still distributing stable releases. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1146 As a user, you should not set this to t.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1147 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1148 ;;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1149 ;;; End customization variables section |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1150 ;;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1151 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1152 ;;; Non customization variables |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1153 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1154 ;;; font-lock mode - Additions by Phil Williams, Ulrik Dickow and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1155 ;;; Simon Marshall <simon@gnu.ai.mit.edu> |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1156 ;;; and Carsten Dominik... |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1157 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1158 ;; The following are the reserved words in IDL. Maybe we should |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1159 ;; highlight some more stuff as well? |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1160 ;; Procedure declarations. Fontify keyword plus procedure name. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1161 (defvar idlwave-idl-keywords |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1162 ;; To update this regexp, update the list of keywords and |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1163 ;; evaluate the form. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1164 ;; (insert |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1165 ;; (prin1-to-string |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1166 ;; (concat |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1167 ;; "\\<\\(" |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1168 ;; (regexp-opt |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1169 ;; '("and" "or" "xor" "not" |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1170 ;; "eq" "ge" "gt" "le" "lt" "ne" |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1171 ;; "for" "do" "endfor" |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1172 ;; "if" "then" "endif" "else" "endelse" |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1173 ;; "case" "of" "endcase" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1174 ;; "switch" "break" "continue" "endswitch" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1175 ;; "begin" "end" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1176 ;; "repeat" "until" "endrep" |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1177 ;; "while" "endwhile" |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1178 ;; "goto" "return" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1179 ;; "inherits" "mod" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1180 ;; "compile_opt" "forward_function" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1181 ;; "on_error" "on_ioerror")) ; on_error is not officially reserved |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1182 ;; "\\)\\>"))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1183 "\\<\\(and\\|b\\(egin\\|reak\\)\\|c\\(ase\\|o\\(mpile_opt\\|ntinue\\)\\)\\|do\\|e\\(lse\\|nd\\(case\\|else\\|for\\|if\\|rep\\|switch\\|while\\)?\\|q\\)\\|for\\(ward_function\\)?\\|g\\(oto\\|[et]\\)\\|i\\(f\\|nherits\\)\\|l[et]\\|mod\\|n\\(e\\|ot\\)\\|o\\(n_\\(error\\|ioerror\\)\\|[fr]\\)\\|re\\(peat\\|turn\\)\\|switch\\|then\\|until\\|while\\|xor\\)\\>") |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1184 |
47479 | 1185 (let* (;; Procedure declarations. Fontify keyword plus procedure name. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1186 ;; Function declarations. Fontify keyword plus function name. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1187 (pros-and-functions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1188 '("\\<\\(function\\|pro\\)\\>[ \t]+\\(\\sw+\\(::\\sw+\\)?\\)" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1189 (1 font-lock-keyword-face) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1190 (2 font-lock-function-name-face nil t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1191 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1192 ;; Common blocks |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1193 (common-blocks |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1194 '("\\<\\(common\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*,?" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1195 (1 font-lock-keyword-face) ; "common" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1196 (2 font-lock-reference-face nil t) ; block name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1197 (font-lock-match-c++-style-declaration-item-and-skip-to-next |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1198 ;; Start with point after block name and comma |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1199 (goto-char (match-end 0)) ; needed for XEmacs, could be nil |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1200 nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1201 (1 font-lock-variable-name-face) ; variable names |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1202 ))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1203 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1204 ;; Batch files |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1205 (batch-files |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1206 '("^[ \t]*\\(@[^ \t\n]+\\)" (1 font-lock-string-face))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1207 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1208 ;; FIXME warning. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1209 (fixme |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1210 '("\\<FIXME:" (0 font-lock-warning-face t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1211 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1212 ;; Labels |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1213 (label |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1214 '("^[ \t]*\\([a-zA-Z]\\sw*:\\)" (1 font-lock-reference-face))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1215 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1216 ;; The goto statement and its label |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1217 (goto |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1218 '("\\(goto\\)[ \t]*,[ \t]*\\([a-zA-Z]\\sw*\\)" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1219 (1 font-lock-keyword-face) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1220 (2 font-lock-reference-face))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1221 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1222 ;; Tags in structure definitions. Note that this definition actually |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1223 ;; collides with labels, so we have to use the same face. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1224 (structtag |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1225 '("\\<\\([a-zA-Z][a-zA-Z0-9_]*:\\)[^:]" (1 font-lock-reference-face))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1226 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1227 ;; Structure names |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1228 (structname |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1229 '("\\({\\|\\<inherits\\s-\\)\\s-*\\([a-zA-Z][a-zA-Z0-9_]*\\)[},\t \n]" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1230 (2 font-lock-function-name-face))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1231 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1232 ;; Named parameters, like /xlog or ,xrange=[] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1233 ;; This is anchored to the comma preceeding the keyword. |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1234 ;; Treats continuation lines, works only during whole buffer |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1235 ;; fontification. Slow, use it only in fancy fontification. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1236 (keyword-parameters |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1237 '("\\(,\\|[a-zA-Z0-9_](\\)[ \t]*\\(\\$[ \t]*\\(;.*\\)?\\(\n[ \t]*;.*\\)*\n[ \t]*\\)?\\(/[a-zA-Z_]\\sw*\\|[a-zA-Z_]\\sw*[ \t]*=\\)" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1238 (5 font-lock-reference-face))) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1239 |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1240 ;; System variables start with a bang. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1241 (system-variables |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1242 '("\\(![a-zA-Z_0-9]+\\(\\.\\sw+\\)?\\)" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1243 (1 font-lock-variable-name-face))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1244 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1245 ;; Special and unusual operators (not used because too noisy) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1246 (special-operators |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1247 '("[<>#]" (0 font-lock-keyword-face))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1248 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1249 ;; All operators (not used because too noisy) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1250 (all-operators |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1251 '("[-*^#+<>/]" (0 font-lock-keyword-face))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1252 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1253 ;; Arrows with text property `idlwave-class' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1254 (class-arrows |
47479 | 1255 '(idlwave-match-class-arrows (0 idlwave-class-arrow-face)))) |
1256 | |
1257 (defconst idlwave-font-lock-keywords-1 | |
1258 (list pros-and-functions batch-files) | |
1259 "Subdued level highlighting for IDLWAVE mode.") | |
1260 | |
1261 (defconst idlwave-font-lock-keywords-2 | |
1262 (mapcar 'symbol-value idlwave-default-font-lock-items) | |
1263 "Medium level highlighting for IDLWAVE mode.") | |
1264 | |
1265 (defconst idlwave-font-lock-keywords-3 | |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1266 (list pros-and-functions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1267 batch-files |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1268 idlwave-idl-keywords |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1269 label goto |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1270 structtag |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1271 structname |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1272 common-blocks |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1273 keyword-parameters |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1274 system-variables |
47479 | 1275 class-arrows) |
1276 "Gaudy level highlighting for IDLWAVE mode.")) | |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1277 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1278 (defun idlwave-match-class-arrows (limit) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1279 ;; Match an object arrow with class property |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1280 (and idlwave-store-inquired-class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1281 (re-search-forward "->" limit 'limit) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1282 (get-text-property (match-beginning 0) 'idlwave-class))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1283 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1284 (defvar idlwave-font-lock-keywords idlwave-font-lock-keywords-2 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1285 "Default expressions to highlight in IDLWAVE mode.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1286 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1287 (defvar idlwave-font-lock-defaults |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1288 '((idlwave-font-lock-keywords |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1289 idlwave-font-lock-keywords-1 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1290 idlwave-font-lock-keywords-2 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1291 idlwave-font-lock-keywords-3) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1292 nil t |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1293 ((?$ . "w") (?_ . "w") (?. . "w")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1294 beginning-of-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1295 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1296 (put 'idlwave-mode 'font-lock-defaults |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1297 idlwave-font-lock-defaults) ; XEmacs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1298 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1299 (defconst idlwave-comment-line-start-skip "^[ \t]*;" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1300 "Regexp to match the start of a full-line comment. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1301 That is the _beginning_ of a line containing a comment delimiter `;' preceded |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1302 only by whitespace.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1303 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1304 (defconst idlwave-begin-block-reg |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1305 "\\<\\(pro\\|function\\|begin\\|case\\|switch\\)\\>" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1306 "Regular expression to find the beginning of a block. The case does |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1307 not matter. The search skips matches in comments.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1308 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1309 (defconst idlwave-begin-unit-reg "\\<\\(pro\\|function\\)\\>\\|\\`" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1310 "Regular expression to find the beginning of a unit. The case does |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1311 not matter.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1312 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1313 (defconst idlwave-end-unit-reg "\\<\\(pro\\|function\\)\\>\\|\\'" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1314 "Regular expression to find the line that indicates the end of unit. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1315 This line is the end of buffer or the start of another unit. The case does |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1316 not matter. The search skips matches in comments.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1317 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1318 (defconst idlwave-continue-line-reg "\\<\\$" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1319 "Regular expression to match a continued line.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1320 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1321 (defconst idlwave-end-block-reg |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1322 "\\<end\\(\\|case\\|switch\\|else\\|for\\|if\\|rep\\|while\\)\\>" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1323 "Regular expression to find the end of a block. The case does |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1324 not matter. The search skips matches found in comments.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1325 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1326 (defconst idlwave-block-matches |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1327 '(("pro" . "end") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1328 ("function" . "end") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1329 ("case" . "endcase") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1330 ("else" . "endelse") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1331 ("for" . "endfor") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1332 ("then" . "endif") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1333 ("repeat" . "endrep") |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1334 ("switch" . "endswitch") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1335 ("while" . "endwhile")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1336 "Matches between statements and the corresponding END variant. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1337 The cars are the reserved words starting a block. If the block really |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1338 begins with BEGIN, the cars are the reserved words before the begin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1339 which can be used to identify the block type. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1340 This is used to check for the correct END type, to close blocks and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1341 to expand generic end statements to their detailed form.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1342 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1343 (defconst idlwave-block-match-regexp |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1344 "\\<\\(else\\|for\\|then\\|repeat\\|while\\)\\>" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1345 "Regular expression matching reserved words which can stand before |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1346 blocks starting with a BEGIN statement. The matches must have associations |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1347 `idlwave-block-matches'") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1348 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1349 (defconst idlwave-identifier "[a-zA-Z][a-zA-Z0-9$_]*" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1350 "Regular expression matching an IDL identifier.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1351 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1352 (defconst idlwave-sysvar (concat "!" idlwave-identifier) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1353 "Regular expression matching IDL system variables.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1354 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1355 (defconst idlwave-variable (concat idlwave-identifier "\\|" idlwave-sysvar) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1356 "Regular expression matching IDL variable names.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1357 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1358 (defconst idlwave-label (concat idlwave-identifier ":") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1359 "Regular expression matching IDL labels.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1360 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1361 (defconst idlwave-statement-match |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1362 (list |
45318 | 1363 ;; "endif else" is the only possible "end" that can be |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1364 ;; followed by a statement on the same line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1365 '(endelse . ("end\\(\\|if\\)\\s +else" "end\\(\\|if\\)\\s +else")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1366 ;; all other "end"s can not be followed by a statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1367 (cons 'end (list idlwave-end-block-reg nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1368 '(if . ("if\\>" "then")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1369 '(for . ("for\\>" "do")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1370 '(begin . ("begin\\>" nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1371 '(pdef . ("pro\\>\\|function\\>" nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1372 '(while . ("while\\>" "do")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1373 '(repeat . ("repeat\\>" "repeat")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1374 '(goto . ("goto\\>" nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1375 '(case . ("case\\>" nil)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1376 '(switch . ("switch\\>" nil)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1377 (cons 'call (list (concat idlwave-identifier "\\(\\s *$\\|\\s *,\\)") nil)) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1378 '(assign . ("[^=>\n]*=" nil))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1379 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1380 "Associated list of statement matching regular expressions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1381 Each regular expression matches the start of an IDL statement. The |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1382 first element of each association is a symbol giving the statement |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1383 type. The associated value is a list. The first element of this list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1384 is a regular expression matching the start of an IDL statement for |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1385 identifying the statement type. The second element of this list is a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1386 regular expression for finding a substatement for the type. The |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1387 substatement starts after the end of the found match modulo |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1388 whitespace. If it is nil then the statement has no substatement. The |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1389 list order matters since matching an assignment statement exactly is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1390 not possible without parsing. Thus assignment statement become just |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1391 the leftover unidentified statements containing an equal sign." ) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1392 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1393 (defvar idlwave-fill-function 'auto-fill-function |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1394 "IDL mode auto fill function.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1395 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1396 (defvar idlwave-comment-indent-function 'comment-indent-function |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1397 "IDL mode comment indent function.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1398 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1399 ;; Note that this is documented in the v18 manuals as being a string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1400 ;; of length one rather than a single character. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1401 ;; The code in this file accepts either format for compatibility. |
51987
a550746b82fb
(idlwave-comment-indent-char): Fix default value using ?\s.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
50857
diff
changeset
|
1402 (defvar idlwave-comment-indent-char ?\s |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1403 "Character to be inserted for IDL comment indentation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1404 Normally a space.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1405 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1406 (defconst idlwave-continuation-char ?$ |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1407 "Character which is inserted as a last character on previous line by |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1408 \\[idlwave-split-line] to begin a continuation line. Normally $.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1409 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1410 (defconst idlwave-mode-version " 4.15") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1411 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1412 (defmacro idlwave-keyword-abbrev (&rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1413 "Creates a function for abbrev hooks to call `idlwave-check-abbrev' with args." |
41608
45db352a0971
Converted backquote to the new style.
Sam Steingold <sds@gnu.org>
parents:
38436
diff
changeset
|
1414 `(quote (lambda () |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1415 ,(append '(idlwave-check-abbrev) args)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1416 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1417 ;; If I take the time I can replace idlwave-keyword-abbrev with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1418 ;; idlwave-code-abbrev and remove the quoted abbrev check from |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1419 ;; idlwave-check-abbrev. Then, e.g, (idlwave-keyword-abbrev 0 t) becomes |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1420 ;; (idlwave-code-abbrev idlwave-check-abbrev 0 t). In fact I should change |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1421 ;; the name of idlwave-check-abbrev to something like idlwave-modify-abbrev. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1422 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1423 (defmacro idlwave-code-abbrev (&rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1424 "Creates a function for abbrev hooks that ensures abbrevs are not quoted. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1425 Specifically, if the abbrev is in a comment or string it is unexpanded. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1426 Otherwise ARGS forms a list that is evaluated." |
41608
45db352a0971
Converted backquote to the new style.
Sam Steingold <sds@gnu.org>
parents:
38436
diff
changeset
|
1427 `(quote (lambda () |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1428 ,(prin1-to-string args) ;; Puts the code in the doc string |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1429 (if (idlwave-quoted) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1430 (progn (unexpand-abbrev) nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1431 ,(append args))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1432 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1433 (defvar idlwave-mode-map (make-sparse-keymap) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1434 "Keymap used in IDL mode.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1435 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1436 (defvar idlwave-mode-syntax-table (make-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1437 "Syntax table in use in `idlwave-mode' buffers.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1438 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1439 (modify-syntax-entry ?+ "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1440 (modify-syntax-entry ?- "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1441 (modify-syntax-entry ?* "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1442 (modify-syntax-entry ?/ "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1443 (modify-syntax-entry ?^ "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1444 (modify-syntax-entry ?# "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1445 (modify-syntax-entry ?= "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1446 (modify-syntax-entry ?% "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1447 (modify-syntax-entry ?< "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1448 (modify-syntax-entry ?> "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1449 (modify-syntax-entry ?\' "\"" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1450 (modify-syntax-entry ?\" "\"" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1451 (modify-syntax-entry ?\\ "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1452 (modify-syntax-entry ?_ "_" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1453 (modify-syntax-entry ?{ "(}" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1454 (modify-syntax-entry ?} "){" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1455 (modify-syntax-entry ?$ "_" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1456 (modify-syntax-entry ?. "." idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1457 (modify-syntax-entry ?\; "<" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1458 (modify-syntax-entry ?\n ">" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1459 (modify-syntax-entry ?\f ">" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1460 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1461 (defvar idlwave-find-symbol-syntax-table |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1462 (copy-syntax-table idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1463 "Syntax table that treats symbol characters as word characters.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1464 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1465 (modify-syntax-entry ?$ "w" idlwave-find-symbol-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1466 (modify-syntax-entry ?_ "w" idlwave-find-symbol-syntax-table) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1467 (modify-syntax-entry ?! "w" idlwave-find-symbol-syntax-table) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1468 (modify-syntax-entry ?. "w" idlwave-find-symbol-syntax-table) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1469 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1470 (defmacro idlwave-with-special-syntax (&rest body) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1471 "Execute BODY with a different syntax table." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1472 `(let ((saved-syntax (syntax-table))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1473 (unwind-protect |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1474 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1475 (set-syntax-table idlwave-find-symbol-syntax-table) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1476 ,@body) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1477 (set-syntax-table saved-syntax)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1478 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1479 ;(defmacro idlwave-with-special-syntax1 (&rest body) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1480 ; "Execute BODY with a different syntax table." |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1481 ; `(let ((saved-syntax (syntax-table))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1482 ; (unwind-protect |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1483 ; (progn |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1484 ; (set-syntax-table idlwave-find-symbol-syntax-table) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1485 ; ,@body) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1486 ; (set-syntax-table saved-syntax)))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1487 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1488 (defun idlwave-action-and-binding (key cmd &optional select) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1489 "KEY and CMD are made into a key binding and an indent action. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1490 KEY is a string - same as for the `define-key' function. CMD is a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1491 function of no arguments or a list to be evaluated. CMD is bound to |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1492 KEY in `idlwave-mode-map' by defining an anonymous function calling |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1493 `self-insert-command' followed by CMD. If KEY contains more than one |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1494 character a binding will only be set if SELECT is 'both. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1495 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1496 \(KEY . CMD\) is also placed in the `idlwave-indent-expand-table', |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1497 replacing any previous value for KEY. If a binding is not set then it |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1498 will instead be placed in `idlwave-indent-action-table'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1499 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1500 If the optional argument SELECT is nil then an action and binding are |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1501 created. If SELECT is 'noaction, then a binding is always set and no |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1502 action is created. If SELECT is 'both then an action and binding |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1503 will both be created even if KEY contains more than one character. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1504 Otherwise, if SELECT is non-nil then only an action is created. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1505 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1506 Some examples: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1507 No spaces before and 1 after a comma |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1508 (idlwave-action-and-binding \",\" '(idlwave-surround 0 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1509 A minimum of 1 space before and after `=' (see `idlwave-expand-equal'). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1510 (idlwave-action-and-binding \"=\" '(idlwave-expand-equal -1 -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1511 Capitalize system variables - action only |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1512 (idlwave-action-and-binding idlwave-sysvar '(capitalize-word 1) t)" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1513 (if (not (equal select 'noaction)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1514 ;; Add action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1515 (let* ((table (if select 'idlwave-indent-action-table |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1516 'idlwave-indent-expand-table)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1517 (cell (assoc key (eval table)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1518 (if cell |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1519 ;; Replace action command |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1520 (setcdr cell cmd) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1521 ;; New action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1522 (set table (append (eval table) (list (cons key cmd))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1523 ;; Make key binding for action |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1524 (if (or (and (null select) (= (length key) 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1525 (equal select 'noaction) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1526 (equal select 'both)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1527 (define-key idlwave-mode-map key |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1528 (append '(lambda () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1529 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1530 (self-insert-command 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1531 (list (if (listp cmd) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1532 cmd |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1533 (list cmd))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1534 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1535 (fset 'idlwave-debug-map (make-sparse-keymap)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1536 |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1537 (define-key idlwave-mode-map "\C-c " 'idlwave-hard-tab) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1538 (define-key idlwave-mode-map [(control tab)] 'idlwave-hard-tab) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
1539 ;(define-key idlwave-mode-map "\C-c\C- " 'idlwave-hard-tab) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1540 (define-key idlwave-mode-map "'" 'idlwave-show-matching-quote) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1541 (define-key idlwave-mode-map "\"" 'idlwave-show-matching-quote) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1542 (define-key idlwave-mode-map "\C-g" 'idlwave-keyboard-quit) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1543 (define-key idlwave-mode-map "\C-c;" 'idlwave-toggle-comment-region) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1544 (define-key idlwave-mode-map "\C-\M-a" 'idlwave-beginning-of-subprogram) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1545 (define-key idlwave-mode-map "\C-\M-e" 'idlwave-end-of-subprogram) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1546 (define-key idlwave-mode-map "\C-c{" 'idlwave-beginning-of-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1547 (define-key idlwave-mode-map "\C-c}" 'idlwave-end-of-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1548 (define-key idlwave-mode-map "\C-c]" 'idlwave-close-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1549 (define-key idlwave-mode-map "\M-\C-h" 'idlwave-mark-subprogram) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1550 (define-key idlwave-mode-map "\M-\C-n" 'idlwave-forward-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1551 (define-key idlwave-mode-map "\M-\C-p" 'idlwave-backward-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1552 (define-key idlwave-mode-map "\M-\C-d" 'idlwave-down-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1553 (define-key idlwave-mode-map "\M-\C-u" 'idlwave-backward-up-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1554 (define-key idlwave-mode-map "\M-\r" 'idlwave-split-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1555 (define-key idlwave-mode-map "\M-\C-q" 'idlwave-indent-subprogram) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1556 (define-key idlwave-mode-map "\C-c\C-p" 'idlwave-previous-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1557 (define-key idlwave-mode-map "\C-c\C-n" 'idlwave-next-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1558 ;; (define-key idlwave-mode-map "\r" 'idlwave-newline) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1559 ;; (define-key idlwave-mode-map "\t" 'idlwave-indent-line) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1560 (define-key idlwave-mode-map [(shift tab)] 'idlwave-indent-statement) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1561 (define-key idlwave-mode-map "\C-c\C-a" 'idlwave-auto-fill-mode) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1562 (define-key idlwave-mode-map "\M-q" 'idlwave-fill-paragraph) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1563 (define-key idlwave-mode-map "\M-s" 'idlwave-edit-in-idlde) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1564 (define-key idlwave-mode-map "\C-c\C-h" 'idlwave-doc-header) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1565 (define-key idlwave-mode-map "\C-c\C-m" 'idlwave-doc-modification) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1566 (define-key idlwave-mode-map "\C-c\C-c" 'idlwave-case) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1567 (define-key idlwave-mode-map "\C-c\C-d" 'idlwave-debug-map) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1568 (define-key idlwave-mode-map "\C-c\C-d\C-c" 'idlwave-shell-save-and-run) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1569 (define-key idlwave-mode-map "\C-c\C-d\C-b" 'idlwave-shell-break-here) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1570 (when (and (boundp 'idlwave-shell-debug-modifiers) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1571 (listp idlwave-shell-debug-modifiers) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1572 (not (equal idlwave-shell-debug-modifiers '()))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1573 ;; Bind the debug commands also with the special modifiers. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1574 (let ((shift (memq 'shift idlwave-shell-debug-modifiers)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1575 (mods-noshift (delq 'shift |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1576 (copy-sequence idlwave-shell-debug-modifiers)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1577 (define-key idlwave-mode-map |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1578 (vector (append mods-noshift (list (if shift ?C ?c)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1579 'idlwave-shell-save-and-run) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1580 (define-key idlwave-mode-map |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1581 (vector (append mods-noshift (list (if shift ?B ?b)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1582 'idlwave-shell-break-here))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1583 (define-key idlwave-mode-map "\C-c\C-f" 'idlwave-for) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1584 ;; (define-key idlwave-mode-map "\C-c\C-f" 'idlwave-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1585 ;; (define-key idlwave-mode-map "\C-c\C-p" 'idlwave-procedure) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1586 (define-key idlwave-mode-map "\C-c\C-r" 'idlwave-repeat) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1587 (define-key idlwave-mode-map "\C-c\C-w" 'idlwave-while) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1588 (define-key idlwave-mode-map "\C-c\C-k" 'idlwave-kill-autoloaded-buffers) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1589 (define-key idlwave-mode-map "\C-c\C-s" 'idlwave-shell) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1590 (define-key idlwave-mode-map "\C-c\C-l" 'idlwave-shell-recenter-shell-window) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1591 (define-key idlwave-mode-map "\C-c\C-b" 'idlwave-list-buffer-load-path-shadows) |
27185
ae5b17b9c403
fixed some bugs associated with the new file names
Carsten Dominik <dominik@science.uva.nl>
parents:
27107
diff
changeset
|
1592 (autoload 'idlwave-shell "idlw-shell" |
ae5b17b9c403
fixed some bugs associated with the new file names
Carsten Dominik <dominik@science.uva.nl>
parents:
27107
diff
changeset
|
1593 "Run an inferior IDL, with I/O through buffer `(idlwave-shell-buffer)'." t) |
27107
7b2b73f13427
Renamed idlwave-*.el into idlw-*.el.
Eli Zaretskii <eliz@gnu.org>
parents:
26956
diff
changeset
|
1594 (autoload 'idlwave-shell-send-command "idlw-shell") |
7b2b73f13427
Renamed idlwave-*.el into idlw-*.el.
Eli Zaretskii <eliz@gnu.org>
parents:
26956
diff
changeset
|
1595 (autoload 'idlwave-shell-recenter-shell-window "idlw-shell" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1596 "Run `idlwave-shell' and switch back to current window" t) |
27107
7b2b73f13427
Renamed idlwave-*.el into idlw-*.el.
Eli Zaretskii <eliz@gnu.org>
parents:
26956
diff
changeset
|
1597 (autoload 'idlwave-shell-save-and-run "idlw-shell" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1598 "Save and run buffer under the shell." t) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1599 (autoload 'idlwave-shell-break-here "idlw-shell" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1600 "Set breakpoint in current line." t) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1601 (define-key idlwave-mode-map "\C-c\C-v" 'idlwave-find-module) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1602 (define-key idlwave-mode-map "\C-c?" 'idlwave-routine-info) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1603 (define-key idlwave-mode-map "\M-?" 'idlwave-context-help) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1604 (define-key idlwave-mode-map [(control meta ?\?)] 'idlwave-online-help) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1605 (define-key idlwave-mode-map [(meta tab)] 'idlwave-complete) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1606 (define-key idlwave-mode-map "\C-c\C-i" 'idlwave-update-routine-info) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1607 (define-key idlwave-mode-map "\C-c=" 'idlwave-resolve) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1608 (define-key idlwave-mode-map |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1609 (if (featurep 'xemacs) [(shift button3)] [(shift mouse-3)]) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1610 'idlwave-mouse-context-help) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1611 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1612 ;; Set action and key bindings. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1613 ;; See description of the function `idlwave-action-and-binding'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1614 ;; Automatically add spaces for the following characters |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1615 (idlwave-action-and-binding "&" '(idlwave-surround -1 -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1616 (idlwave-action-and-binding "<" '(idlwave-surround -1 -1)) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1617 ;; Binding works for both > and ->, by changing the length of the token. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1618 (idlwave-action-and-binding ">" '(idlwave-surround -1 -1 '(?-) 1 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1619 'idlwave-gtr-pad-hook)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1620 (idlwave-action-and-binding "->" '(idlwave-surround -1 -1 nil 2) t) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1621 (idlwave-action-and-binding "," '(idlwave-surround 0 -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1622 ;; Automatically add spaces to equal sign if not keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1623 (idlwave-action-and-binding "=" '(idlwave-expand-equal -1 -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1624 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1625 ;;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1626 ;;; Abbrev Section |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1627 ;;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1628 ;;; When expanding abbrevs and the abbrev hook moves backward, an extra |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1629 ;;; space is inserted (this is the space typed by the user to expanded |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1630 ;;; the abbrev). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1631 ;;; |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1632 (defvar idlwave-mode-abbrev-table nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1633 "Abbreviation table used for IDLWAVE mode") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1634 (define-abbrev-table 'idlwave-mode-abbrev-table ()) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1635 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1636 (defun idlwave-define-abbrev (name expansion hook &optional noprefix table) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1637 "Define-abbrev with backward compatibility. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1638 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1639 If NOPREFIX is non-nil, don't prepend prefix character. Installs into |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1640 idlwave-mode-abbrev-table unless TABLE is non-nil." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1641 (let ((abbrevs-changed nil) ;; mask the current value to avoid save |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1642 (args (list (or table idlwave-mode-abbrev-table) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1643 (if noprefix name (concat idlwave-abbrev-start-char name)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1644 expansion |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1645 hook))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1646 (condition-case nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1647 (apply 'define-abbrev (append args '(0 t))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1648 (error (apply 'define-abbrev args))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1649 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1650 (condition-case nil |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1651 (modify-syntax-entry (string-to-char idlwave-abbrev-start-char) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1652 "w" idlwave-mode-syntax-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1653 (error nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1654 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1655 ;; |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1656 ;; Templates |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1657 ;; |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1658 (idlwave-define-abbrev "c" "" (idlwave-code-abbrev idlwave-case)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1659 (idlwave-define-abbrev "sw" "" (idlwave-code-abbrev idlwave-switch)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1660 (idlwave-define-abbrev "f" "" (idlwave-code-abbrev idlwave-for)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1661 (idlwave-define-abbrev "fu" "" (idlwave-code-abbrev idlwave-function)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1662 (idlwave-define-abbrev "pr" "" (idlwave-code-abbrev idlwave-procedure)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1663 (idlwave-define-abbrev "r" "" (idlwave-code-abbrev idlwave-repeat)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1664 (idlwave-define-abbrev "w" "" (idlwave-code-abbrev idlwave-while)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1665 (idlwave-define-abbrev "i" "" (idlwave-code-abbrev idlwave-if)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1666 (idlwave-define-abbrev "elif" "" (idlwave-code-abbrev idlwave-elif)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1667 ;; |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1668 ;; Keywords, system functions, conversion routines |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1669 ;; |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1670 (idlwave-define-abbrev "ap" "arg_present()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1671 (idlwave-define-abbrev "b" "begin" (idlwave-keyword-abbrev 0 t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1672 (idlwave-define-abbrev "co" "common" (idlwave-keyword-abbrev 0 t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1673 (idlwave-define-abbrev "cb" "byte()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1674 (idlwave-define-abbrev "cx" "fix()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1675 (idlwave-define-abbrev "cl" "long()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1676 (idlwave-define-abbrev "cf" "float()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1677 (idlwave-define-abbrev "cs" "string()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1678 (idlwave-define-abbrev "cc" "complex()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1679 (idlwave-define-abbrev "cd" "double()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1680 (idlwave-define-abbrev "e" "else" (idlwave-keyword-abbrev 0 t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1681 (idlwave-define-abbrev "ec" "endcase" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1682 (idlwave-define-abbrev "es" "endswitch" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1683 (idlwave-define-abbrev "ee" "endelse" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1684 (idlwave-define-abbrev "ef" "endfor" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1685 (idlwave-define-abbrev "ei" "endif else if" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1686 (idlwave-define-abbrev "el" "endif else" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1687 (idlwave-define-abbrev "en" "endif" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1688 (idlwave-define-abbrev "er" "endrep" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1689 (idlwave-define-abbrev "ew" "endwhile" 'idlwave-show-begin) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1690 (idlwave-define-abbrev "g" "goto," (idlwave-keyword-abbrev 0 t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1691 (idlwave-define-abbrev "h" "help," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1692 (idlwave-define-abbrev "k" "keyword_set()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1693 (idlwave-define-abbrev "n" "n_elements()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1694 (idlwave-define-abbrev "on" "on_error," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1695 (idlwave-define-abbrev "oi" "on_ioerror," (idlwave-keyword-abbrev 0 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1696 (idlwave-define-abbrev "ow" "openw," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1697 (idlwave-define-abbrev "or" "openr," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1698 (idlwave-define-abbrev "ou" "openu," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1699 (idlwave-define-abbrev "p" "print," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1700 (idlwave-define-abbrev "pt" "plot," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1701 (idlwave-define-abbrev "re" "read," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1702 (idlwave-define-abbrev "rf" "readf," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1703 (idlwave-define-abbrev "ru" "readu," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1704 (idlwave-define-abbrev "rt" "return" (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1705 (idlwave-define-abbrev "sc" "strcompress()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1706 (idlwave-define-abbrev "sn" "strlen()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1707 (idlwave-define-abbrev "sl" "strlowcase()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1708 (idlwave-define-abbrev "su" "strupcase()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1709 (idlwave-define-abbrev "sm" "strmid()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1710 (idlwave-define-abbrev "sp" "strpos()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1711 (idlwave-define-abbrev "st" "strput()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1712 (idlwave-define-abbrev "sr" "strtrim()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1713 (idlwave-define-abbrev "t" "then" (idlwave-keyword-abbrev 0 t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1714 (idlwave-define-abbrev "u" "until" (idlwave-keyword-abbrev 0 t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1715 (idlwave-define-abbrev "wu" "writeu," (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1716 (idlwave-define-abbrev "iap" "if arg_present() then" (idlwave-keyword-abbrev 6)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1717 (idlwave-define-abbrev "ik" "if keyword_set() then" (idlwave-keyword-abbrev 6)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1718 (idlwave-define-abbrev "ine" "if n_elements() eq 0 then" (idlwave-keyword-abbrev 11)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1719 (idlwave-define-abbrev "inn" "if n_elements() ne 0 then" (idlwave-keyword-abbrev 11)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1720 (idlwave-define-abbrev "np" "n_params()" (idlwave-keyword-abbrev 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1721 (idlwave-define-abbrev "s" "size()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1722 (idlwave-define-abbrev "wi" "widget_info()" (idlwave-keyword-abbrev 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1723 (idlwave-define-abbrev "wc" "widget_control," (idlwave-keyword-abbrev 0)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1724 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1725 ;; This section is reserved words only. (From IDL user manual) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1726 ;; |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1727 (idlwave-define-abbrev "and" "and" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1728 (idlwave-define-abbrev "begin" "begin" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1729 (idlwave-define-abbrev "break" "break" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1730 (idlwave-define-abbrev "case" "case" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1731 (idlwave-define-abbrev "common" "common" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1732 (idlwave-define-abbrev "continue" "continue" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1733 (idlwave-define-abbrev "do" "do" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1734 (idlwave-define-abbrev "else" "else" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1735 (idlwave-define-abbrev "end" "end" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1736 (idlwave-define-abbrev "endcase" "endcase" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1737 (idlwave-define-abbrev "endelse" "endelse" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1738 (idlwave-define-abbrev "endfor" "endfor" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1739 (idlwave-define-abbrev "endif" "endif" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1740 (idlwave-define-abbrev "endrep" "endrep" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1741 (idlwave-define-abbrev "endswitch" "endswitch" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1742 (idlwave-define-abbrev "endwhi" "endwhi" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1743 (idlwave-define-abbrev "endwhile" "endwhile" 'idlwave-show-begin-check t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1744 (idlwave-define-abbrev "eq" "eq" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1745 (idlwave-define-abbrev "for" "for" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1746 (idlwave-define-abbrev "function" "function" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1747 (idlwave-define-abbrev "ge" "ge" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1748 (idlwave-define-abbrev "goto" "goto" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1749 (idlwave-define-abbrev "gt" "gt" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1750 (idlwave-define-abbrev "if" "if" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1751 (idlwave-define-abbrev "le" "le" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1752 (idlwave-define-abbrev "lt" "lt" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1753 (idlwave-define-abbrev "mod" "mod" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1754 (idlwave-define-abbrev "ne" "ne" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1755 (idlwave-define-abbrev "not" "not" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1756 (idlwave-define-abbrev "of" "of" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1757 (idlwave-define-abbrev "on_ioerror" "on_ioerror" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1758 (idlwave-define-abbrev "or" "or" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1759 (idlwave-define-abbrev "pro" "pro" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1760 (idlwave-define-abbrev "repeat" "repeat" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1761 (idlwave-define-abbrev "switch" "switch" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1762 (idlwave-define-abbrev "then" "then" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1763 (idlwave-define-abbrev "until" "until" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1764 (idlwave-define-abbrev "while" "while" (idlwave-keyword-abbrev 0 t) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1765 (idlwave-define-abbrev "xor" "xor" (idlwave-keyword-abbrev 0 t) t) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1766 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1767 (defvar imenu-create-index-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1768 (defvar extract-index-name-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1769 (defvar prev-index-position-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1770 (defvar imenu-extract-index-name-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1771 (defvar imenu-prev-index-position-function) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1772 ;; defined later - so just make the compiler hush |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1773 (defvar idlwave-mode-menu) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1774 (defvar idlwave-mode-debug-menu) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1775 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1776 ;;;###autoload |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1777 (defun idlwave-mode () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1778 "Major mode for editing IDL and WAVE CL .pro files. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1779 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1780 The main features of this mode are |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1781 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1782 1. Indentation and Formatting |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1783 -------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1784 Like other Emacs programming modes, C-j inserts a newline and indents. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1785 TAB is used for explicit indentation of the current line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1786 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1787 To start a continuation line, use \\[idlwave-split-line]. This |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1788 function can also be used in the middle of a line to split the line |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1789 at that point. When used inside a long constant string, the string |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1790 is split at that point with the `+' concatenation operator. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1791 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1792 Comments are indented as follows: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1793 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1794 `;;;' Indentation remains unchanged. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1795 `;;' Indent like the surrounding code |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1796 `;' Indent to a minimum column. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1797 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1798 The indentation of comments starting in column 0 is never changed. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1799 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1800 Use \\[idlwave-fill-paragraph] to refill a paragraph inside a |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1801 comment. The indentation of the second line of the paragraph |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1802 relative to the first will be retained. Use |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1803 \\[idlwave-auto-fill-mode] to toggle auto-fill mode for these |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1804 comments. When the variable `idlwave-fill-comment-line-only' is |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1805 nil, code can also be auto-filled and auto-indented (not |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1806 recommended). |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1807 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1808 To convert pre-existing IDL code to your formatting style, mark the |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1809 entire buffer with \\[mark-whole-buffer] and execute |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1810 \\[idlwave-expand-region-abbrevs]. Then mark the entire buffer |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1811 again followed by \\[indent-region] (`indent-region'). |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1812 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1813 2. Routine Info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1814 ------------ |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1815 IDLWAVE displays information about the calling sequence and the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1816 accepted keyword parameters of a procedure or function with |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1817 \\[idlwave-routine-info]. \\[idlwave-find-module] jumps to the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1818 source file of a module. These commands know about system |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1819 routines, all routines in idlwave-mode buffers and (when the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1820 idlwave-shell is active) about all modules currently compiled under |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1821 this shell. Use \\[idlwave-update-routine-info] to update this |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1822 information, which is also used for completion (see item 4). |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1823 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1824 3. Online IDL Help |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1825 --------------- |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1826 \\[idlwave-context-help] displays the IDL documentation relevant |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1827 for the system variable, keyword, or routine at point. A single key |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1828 stroke gets you directly to the right place in the docs. Two additional |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1829 files (an ASCII version of the IDL documentation and a topics file) must |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1830 be installed for this - check the IDLWAVE webpage for these files. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1831 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1832 4. Completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1833 ---------- |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1834 \\[idlwave-complete] completes the names of procedures, functions |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1835 class names and keyword parameters. It is context sensitive and |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1836 figures out what is expected at point (procedure/function/keyword). |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1837 Lower case strings are completed in lower case, other strings in |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1838 mixed or upper case. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1839 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1840 5. Code Templates and Abbreviations |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1841 -------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1842 Many Abbreviations are predefined to expand to code fragments and templates. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1843 The abbreviations start generally with a `\\`. Some examples |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1844 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1845 \\pr PROCEDURE template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1846 \\fu FUNCTION template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1847 \\c CASE statement template |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
1848 \\sw SWITCH statement template |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1849 \\f FOR loop template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1850 \\r REPEAT Loop template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1851 \\w WHILE loop template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1852 \\i IF statement template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1853 \\elif IF-ELSE statement template |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1854 \\b BEGIN |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1855 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1856 For a full list, use \\[idlwave-list-abbrevs]. Some templates also have |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1857 direct keybindings - see the list of keybindings below. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1858 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1859 \\[idlwave-doc-header] inserts a documentation header at the beginning of the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1860 current program unit (pro, function or main). Change log entries |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1861 can be added to the current program unit with \\[idlwave-doc-modification]. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1862 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1863 6. Automatic Case Conversion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1864 ------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1865 The case of reserved words and some abbrevs is controlled by |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1866 `idlwave-reserved-word-upcase' and `idlwave-abbrev-change-case'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1867 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1868 7. Automatic END completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1869 ------------------------ |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1870 If the variable `idlwave-expand-generic-end' is non-nil, each END typed |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1871 will be converted to the specific version, like ENDIF, ENDFOR, etc. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1872 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1873 8. Hooks |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1874 ----- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1875 Loading idlwave.el runs `idlwave-load-hook'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1876 Turning on `idlwave-mode' runs `idlwave-mode-hook'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1877 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1878 9. Documentation and Customization |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1879 ------------------------------- |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1880 Info documentation for this package is available. Use |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1881 \\[idlwave-info] to display (complain to your sysadmin if that does |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1882 not work). For Postscript, PDF, and HTML versions of the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1883 documentation, check IDLWAVE's homepage at `http://idlwave.org'. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1884 IDLWAVE has customize support - see the group `idlwave'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1885 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1886 10.Keybindings |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1887 ----------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1888 Here is a list of all keybindings of this mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1889 If some of the key bindings below show with ??, use \\[describe-key] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1890 followed by the key sequence to see what the key sequence does. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1891 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1892 \\{idlwave-mode-map}" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1893 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1894 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1895 (kill-all-local-variables) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1896 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1897 (if idlwave-startup-message |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1898 (message "Emacs IDLWAVE mode version %s." idlwave-mode-version)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1899 (setq idlwave-startup-message nil) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1900 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1901 (setq local-abbrev-table idlwave-mode-abbrev-table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1902 (set-syntax-table idlwave-mode-syntax-table) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1903 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1904 (set (make-local-variable 'indent-line-function) 'idlwave-indent-and-action) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1905 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1906 (make-local-variable idlwave-comment-indent-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1907 (set idlwave-comment-indent-function 'idlwave-comment-hook) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1908 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1909 (set (make-local-variable 'comment-start-skip) ";+[ \t]*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1910 (set (make-local-variable 'comment-start) ";") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1911 (set (make-local-variable 'require-final-newline) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1912 (set (make-local-variable 'abbrev-all-caps) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1913 (set (make-local-variable 'indent-tabs-mode) nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1914 (set (make-local-variable 'completion-ignore-case) t) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1915 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1916 (use-local-map idlwave-mode-map) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1917 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1918 (when (featurep 'easymenu) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1919 (easy-menu-add idlwave-mode-menu idlwave-mode-map) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1920 (easy-menu-add idlwave-mode-debug-menu idlwave-mode-map)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1921 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1922 (setq mode-name "IDLWAVE") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1923 (setq major-mode 'idlwave-mode) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1924 (setq abbrev-mode t) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1925 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1926 (set (make-local-variable idlwave-fill-function) 'idlwave-auto-fill) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1927 (setq comment-end "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1928 (set (make-local-variable 'comment-multi-line) nil) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1929 (set (make-local-variable 'paragraph-separate) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1930 "[ \t\f]*$\\|[ \t]*;+[ \t]*$\\|;+[+=-_*]+$") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1931 (set (make-local-variable 'paragraph-start) "[ \t\f]\\|[ \t]*;+[ \t]") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1932 (set (make-local-variable 'paragraph-ignore-fill-prefix) nil) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
1933 (set (make-local-variable 'parse-sexp-ignore-comments) t) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1934 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1935 ;; Set tag table list to use IDLTAGS as file name. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1936 (if (boundp 'tag-table-alist) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1937 (add-to-list 'tag-table-alist '("\\.pro$" . "IDLTAGS"))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
1938 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1939 ;; Font-lock additions - originally Phil Williams, then Ulrik Dickow |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1940 ;; Following line is for Emacs - XEmacs uses the corresponding porperty |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1941 ;; on the `idlwave-mode' symbol. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1942 (set (make-local-variable 'font-lock-defaults) idlwave-font-lock-defaults) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1943 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1944 ;; Imenu setup |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1945 (set (make-local-variable 'imenu-create-index-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1946 'imenu-default-create-index-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1947 (set (make-local-variable 'imenu-extract-index-name-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1948 'idlwave-unit-name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1949 (set (make-local-variable 'imenu-prev-index-position-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1950 'idlwave-prev-index-position) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1951 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1952 ;; Make a local post-command-hook and add our hook to it |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1953 ;; NB: `make-local-hook' needed for older/alternative Emacs compatibility |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1954 (make-local-hook 'post-command-hook) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1955 (add-hook 'post-command-hook 'idlwave-command-hook nil 'local) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1956 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1957 ;; Make local hooks for buffer updates |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1958 ;; NB: `make-local-hook' needed for older/alternative Emacs compatibility |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1959 (make-local-hook 'kill-buffer-hook) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1960 (add-hook 'kill-buffer-hook 'idlwave-kill-buffer-update nil 'local) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
1961 (make-local-hook 'after-save-hook) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1962 (add-hook 'after-save-hook 'idlwave-save-buffer-update nil 'local) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1963 (add-hook 'after-save-hook 'idlwave-revoke-license-to-kill nil 'local) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1964 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1965 ;; Update the routine info with info about current buffer? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
1966 (idlwave-new-buffer-update) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1967 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1968 ;; Run the mode hook |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1969 (run-hooks 'idlwave-mode-hook)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1970 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1971 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1972 ;; Done with start up and initialization code. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1973 ;; The remaining routines are the code formatting functions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1974 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1975 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1976 (defun idlwave-push-mark (&rest rest) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1977 "Push mark for compatibility with Emacs 18/19." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1978 (if (fboundp 'iconify-frame) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1979 (apply 'push-mark rest) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1980 (push-mark))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1981 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1982 (defun idlwave-hard-tab () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1983 "Inserts TAB in buffer in current position." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1984 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1985 (insert "\t")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1986 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1987 ;;; This stuff is experimental |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1988 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1989 (defvar idlwave-command-hook nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1990 "If non-nil, a list that can be evaluated using `eval'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1991 It is evaluated in the lisp function `idlwave-command-hook' which is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1992 placed in `post-command-hook'.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1993 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1994 (defun idlwave-command-hook () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1995 "Command run after every command. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1996 Evaluates a non-nil value of the *variable* `idlwave-command-hook' and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1997 sets the variable to zero afterwards." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1998 (and idlwave-command-hook |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
1999 (listp idlwave-command-hook) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2000 (condition-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2001 (eval idlwave-command-hook) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2002 (error nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2003 (setq idlwave-command-hook nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2004 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2005 ;;; End experiment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2006 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2007 ;; It would be better to use expand.el for better abbrev handling and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2008 ;; versatility. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2009 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2010 (defun idlwave-check-abbrev (arg &optional reserved) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2011 "Reverses abbrev expansion if in comment or string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2012 Argument ARG is the number of characters to move point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2013 backward if `idlwave-abbrev-move' is non-nil. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2014 If optional argument RESERVED is non-nil then the expansion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2015 consists of reserved words, which will be capitalized if |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2016 `idlwave-reserved-word-upcase' is non-nil. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2017 Otherwise, the abbrev will be capitalized if `idlwave-abbrev-change-case' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2018 is non-nil, unless its value is \`down in which case the abbrev will be |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2019 made into all lowercase. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2020 Returns non-nil if abbrev is left expanded." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2021 (if (idlwave-quoted) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2022 (progn (unexpand-abbrev) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2023 nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2024 (if (and reserved idlwave-reserved-word-upcase) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2025 (upcase-region last-abbrev-location (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2026 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2027 ((equal idlwave-abbrev-change-case 'down) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2028 (downcase-region last-abbrev-location (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2029 (idlwave-abbrev-change-case |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2030 (upcase-region last-abbrev-location (point))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2031 (if (and idlwave-abbrev-move (> arg 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2032 (if (boundp 'post-command-hook) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2033 (setq idlwave-command-hook (list 'backward-char (1+ arg))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2034 (backward-char arg))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2035 t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2036 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2037 (defun idlwave-in-comment () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2038 "Returns t if point is inside a comment, nil otherwise." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2039 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2040 (let ((here (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2041 (and (idlwave-goto-comment) (> here (point)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2042 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2043 (defun idlwave-goto-comment () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2044 "Move to start of comment delimiter on current line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2045 Moves to end of line if there is no comment delimiter. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2046 Ignores comment delimiters in strings. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2047 Returns point if comment found and nil otherwise." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2048 (let ((eos (progn (end-of-line) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2049 (data (match-data)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2050 found) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2051 ;; Look for first comment delimiter not in a string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2052 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2053 (setq found (search-forward comment-start eos 'lim)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2054 (while (and found (idlwave-in-quote)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2055 (setq found (search-forward comment-start eos 'lim))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2056 (store-match-data data) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2057 (and found (not (idlwave-in-quote)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2058 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2059 (backward-char 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2060 (point))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2061 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2062 (defvar transient-mark-mode) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2063 (defvar zmacs-regions) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2064 (defvar mark-active) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2065 (defun idlwave-region-active-p () |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2066 "Is transien-mark-mode on and the region active? |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2067 Works on both Emacs and XEmacs." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2068 (if (featurep 'xemacs) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2069 (and zmacs-regions (region-active-p)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2070 (and transient-mark-mode mark-active))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2071 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2072 (defun idlwave-show-matching-quote () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2073 "Insert quote and show matching quote if this is end of a string." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2074 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2075 (let ((bq (idlwave-in-quote)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2076 (inq last-command-char)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2077 (if (and bq (not (idlwave-in-comment))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2078 (let ((delim (char-after bq))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2079 (insert inq) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2080 (if (eq inq delim) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2081 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2082 (goto-char bq) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2083 (sit-for 1)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2084 ;; Not the end of a string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2085 (insert inq)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2086 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2087 (defun idlwave-show-begin-check () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2088 "Ensure that the previous word was a token before `idlwave-show-begin'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2089 An END token must be preceded by whitespace." |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2090 (if (not (idlwave-quoted)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2091 (if |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2092 (save-excursion |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2093 (backward-word 1) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2094 (backward-char 1) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2095 (looking-at "[ \t\n\f]")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2096 (idlwave-show-begin)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2097 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2098 (defun idlwave-show-begin () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2099 "Finds the start of current block and blinks to it for a second. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2100 Also checks if the correct end statement has been used." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2101 ;; All end statements are reserved words |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2102 ;; Re-indent end line |
49790
481b30daf13f
(idlwave-show-begin): Fix use of character constant.
Juanma Barranquero <lekktu@gmail.com>
parents:
47930
diff
changeset
|
2103 (insert-char ?\ 1) ;; So indent, etc. work well |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2104 (backward-char 1) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2105 (let* ((pos (point-marker)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2106 (last-abbrev-marker (copy-marker last-abbrev-location)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2107 (eol-pos (save-excursion (end-of-line) (point))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2108 begin-pos end-pos end end1 ) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2109 (if idlwave-reindent-end (idlwave-indent-line)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2110 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2111 (when (and (idlwave-check-abbrev 0 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2112 idlwave-show-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2113 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2114 ;; Move inside current block |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2115 (goto-char last-abbrev-marker) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2116 (idlwave-block-jump-out -1 'nomark) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2117 (setq begin-pos (point)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2118 (idlwave-block-jump-out 1 'nomark) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2119 (setq end-pos (point)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2120 (if (> end-pos eol-pos) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2121 (setq end-pos pos)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2122 (goto-char end-pos) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2123 (setq end (buffer-substring |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2124 (progn |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2125 (skip-chars-backward "a-zA-Z") |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2126 (point)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2127 end-pos)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2128 (goto-char begin-pos) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2129 (when (setq end1 (cdr (idlwave-block-master))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2130 (cond |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2131 ((null end1)) ; no-operation |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2132 ((string= (downcase end) (downcase end1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2133 (sit-for 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2134 ((string= (downcase end) "end") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2135 ;; A generic end |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2136 (if idlwave-expand-generic-end |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2137 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2138 (goto-char pos) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2139 (backward-char 3) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2140 (insert (if (string= end "END") (upcase end1) end1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2141 (delete-char 3))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2142 (sit-for 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2143 (t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2144 (beep) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2145 (message "Warning: Shouldn't this be \"%s\" instead of \"%s\"?" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2146 end1 end) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2147 (sit-for 1))))))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2148 (delete-char 1)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2149 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2150 (defun idlwave-block-master () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2151 (let ((case-fold-search t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2152 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2153 (cond |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2154 ((looking-at "pro\\|case\\|switch\\|function\\>") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2155 (assoc (downcase (match-string 0)) idlwave-block-matches)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2156 ((looking-at "begin\\>") |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2157 (let ((limit (save-excursion |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2158 (idlwave-beginning-of-statement) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2159 (point)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2160 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2161 ((re-search-backward idlwave-block-match-regexp limit t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2162 (assoc (downcase (match-string 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2163 idlwave-block-matches)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2164 ;;((re-search-backward ":[ \t]*\\=" limit t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2165 ;; ;; seems to be a case thing |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2166 ;; '("begin" . "end")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2167 (t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2168 ;; Just a nromal block |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2169 '("begin" . "end"))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2170 (t nil))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2171 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2172 (defun idlwave-close-block () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2173 "Terminate the current block with the correct END statement." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2174 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2175 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2176 ;; Start new line if we are not in a new line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2177 (unless (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2178 (skip-chars-backward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2179 (bolp)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2180 (let ((idlwave-show-block nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2181 (newline-and-indent))) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2182 (let ((last-abbrev-location (point))) ; for upcasing |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2183 (insert "end") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2184 (idlwave-show-begin))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2185 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2186 (defun idlwave-gtr-pad-hook (char) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2187 "Let the > symbol expand around -> if present. The new token length |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2188 is returned." |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2189 2) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2190 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2191 (defun idlwave-surround (&optional before after escape-chars length ec-hook) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2192 "Surround the LENGTH characters before point with blanks. |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2193 LENGTH defaults to 1. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2194 Optional arguments BEFORE and AFTER affect the behavior before and |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2195 after the characters (see also description of `idlwave-make-space'): |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2196 |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2197 nil do nothing |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2198 0 force no spaces |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2199 integer > 0 force exactly n spaces |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2200 integer < 0 at least |n| spaces |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2201 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2202 The function does nothing if any of the following conditions is true: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2203 - `idlwave-surround-by-blank' is nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2204 - the character before point is inside a string or comment |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2205 - the char preceeding the string to be surrounded is a member of ESCAPE-CHARS. |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2206 This hack is used to avoid padding of `>' when it is part of |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2207 the '->' operator. In this case, ESCAPE-CHARS would be '(?-). |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2208 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2209 If a function is passed in EC-HOOK, and an ESCAPE-CHARS match occurs, |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2210 the named function will be called with a single argument of the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2211 preceeding character. Then idlwave-surround will run as usual if |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2212 EC-HOOK returns non-nil, and a new length will be taken from the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2213 return value." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2214 (when (and idlwave-surround-by-blank (not (idlwave-quoted))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2215 (let* ((length (or length 1)) ; establish a default for LENGTH |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2216 (prev-char (char-after (- (point) (1+ length))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2217 (when (or (not (memq prev-char escape-chars)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2218 (and (fboundp ec-hook) |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2219 (setq length |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2220 (save-excursion (funcall ec-hook prev-char))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2221 (backward-char length) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2222 (save-restriction |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2223 (let ((here (point))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2224 (skip-chars-backward " \t") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2225 (if (bolp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2226 ;; avoid clobbering indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2227 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2228 (move-to-column (idlwave-calculate-indent)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2229 (if (<= (point) here) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2230 (narrow-to-region (point) here)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2231 (goto-char here))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2232 (idlwave-make-space before)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2233 (skip-chars-forward " \t")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2234 (forward-char length) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2235 (idlwave-make-space after) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2236 ;; Check to see if the line should auto wrap |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2237 (if (and (equal (char-after (1- (point))) ?\ ) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2238 (> (current-column) fill-column)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2239 (funcall auto-fill-function)))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2240 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2241 (defun idlwave-make-space (n) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2242 "Make space at point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2243 The space affected is all the spaces and tabs around point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2244 If n is non-nil then point is left abs(n) spaces from the beginning of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2245 the contiguous space. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2246 The amount of space at point is determined by N. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2247 If the value of N is: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2248 nil - do nothing. |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2249 > 0 - exactly N spaces. |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2250 < 0 - a minimum of -N spaces, i.e., do not change if there are |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2251 already -N spaces. |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
2252 0 - no spaces (i.e. remove any existing space)." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2253 (if (integerp n) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2254 (let |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2255 ((start-col (progn (skip-chars-backward " \t") (current-column))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2256 (left (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2257 (end-col (progn (skip-chars-forward " \t") (current-column)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2258 (delete-horizontal-space) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2259 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2260 ((> n 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2261 (idlwave-indent-to (+ start-col n)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2262 (goto-char (+ left n))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2263 ((< n 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2264 (idlwave-indent-to end-col (- n)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2265 (goto-char (- left n))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2266 ;; n = 0, done |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2267 )))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2268 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2269 (defun idlwave-newline () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2270 "Inserts a newline and indents the current and previous line." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2271 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2272 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2273 ;; Handle unterminated single and double quotes |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2274 ;; If not in a comment and in a string then insertion of a newline |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2275 ;; will mean unbalanced quotes. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2276 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2277 (if (and (not (idlwave-in-comment)) (idlwave-in-quote)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2278 (progn (beep) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2279 (message "Warning: unbalanced quotes?"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2280 (newline) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2281 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2282 ;; The current line is being split, the cursor should be at the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2283 ;; beginning of the new line skipping the leading indentation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2284 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2285 ;; The reason we insert the new line before indenting is that the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2286 ;; indenting could be confused by keywords (e.g. END) on the line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2287 ;; after the split point. This prevents us from just using |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2288 ;; `indent-for-tab-command' followed by `newline-and-indent'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2289 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2290 (beginning-of-line 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2291 (idlwave-indent-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2292 (forward-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2293 (idlwave-indent-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2294 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2295 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2296 ;; Use global variable 'comment-column' to set parallel comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2297 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2298 ;; Modeled on lisp.el |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2299 ;; Emacs Lisp and IDL (Wave CL) have identical comment syntax |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2300 (defun idlwave-comment-hook () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2301 "Compute indent for the beginning of the IDL comment delimiter." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2302 (if (or (looking-at idlwave-no-change-comment) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2303 (if idlwave-begin-line-comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2304 (looking-at idlwave-begin-line-comment) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2305 (looking-at "^;"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2306 (current-column) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2307 (if (looking-at idlwave-code-comment) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2308 (if (save-excursion (skip-chars-backward " \t") (bolp)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2309 ;; On line by itself, indent as code |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2310 (let ((tem (idlwave-calculate-indent))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2311 (if (listp tem) (car tem) tem)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2312 ;; after code - do not change |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2313 (current-column)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2314 (skip-chars-backward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2315 (max (if (bolp) 0 (1+ (current-column))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2316 comment-column)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2317 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2318 (defun idlwave-split-line () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2319 "Continue line by breaking line at point and indent the lines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2320 For a code line insert continuation marker. If the line is a line comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2321 then the new line will contain a comment with the same indentation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2322 Splits strings with the IDL operator `+' if `idlwave-split-line-string' is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2323 non-nil." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2324 (interactive) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2325 ;; Expand abbreviation, just like normal RET would. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2326 (and abbrev-mode (expand-abbrev)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2327 (let (beg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2328 (if (not (idlwave-in-comment)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2329 ;; For code line add continuation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2330 ;; Check if splitting a string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2331 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2332 (if (setq beg (idlwave-in-quote)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2333 (if idlwave-split-line-string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2334 ;; Split the string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2335 (progn (insert (setq beg (char-after beg)) " + " |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2336 idlwave-continuation-char beg) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2337 (backward-char 1) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2338 (newline-and-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2339 (forward-char 1)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2340 ;; Do not split the string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2341 (beep) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2342 (message "Warning: continuation inside string!!") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2343 (insert " " idlwave-continuation-char)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2344 ;; Not splitting a string. |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2345 (if (not (member (char-before) '(?\ ?\t))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2346 (insert " ")) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2347 (insert idlwave-continuation-char) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2348 (newline-and-indent))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2349 (indent-new-comment-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2350 ;; Indent previous line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2351 (setq beg (- (point-max) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2352 (forward-line -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2353 (idlwave-indent-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2354 (goto-char (- (point-max) beg)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2355 ;; Reindent new line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2356 (idlwave-indent-line))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2357 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2358 (defun idlwave-beginning-of-subprogram () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2359 "Moves point to the beginning of the current program unit." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2360 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2361 (idlwave-find-key idlwave-begin-unit-reg -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2362 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2363 (defun idlwave-end-of-subprogram () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2364 "Moves point to the start of the next program unit." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2365 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2366 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2367 (idlwave-find-key idlwave-end-unit-reg 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2368 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2369 (defun idlwave-mark-statement () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2370 "Mark current IDL statement." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2371 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2372 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2373 (let ((end (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2374 (idlwave-beginning-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2375 (idlwave-push-mark end nil t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2376 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2377 (defun idlwave-mark-block () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2378 "Mark containing block." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2379 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2380 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2381 (idlwave-backward-up-block -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2382 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2383 (let ((end (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2384 (idlwave-backward-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2385 (idlwave-beginning-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2386 (idlwave-push-mark end nil t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2387 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2388 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2389 (defun idlwave-mark-subprogram () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2390 "Put mark at beginning of program, point at end. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2391 The marks are pushed." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2392 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2393 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2394 (idlwave-beginning-of-subprogram) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2395 (let ((beg (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2396 (idlwave-forward-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2397 (idlwave-push-mark beg nil t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2398 (exchange-point-and-mark)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2399 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2400 (defun idlwave-backward-up-block (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2401 "Move to beginning of enclosing block if prefix ARG >= 0. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2402 If prefix ARG < 0 then move forward to enclosing block end." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2403 (interactive "p") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2404 (idlwave-block-jump-out (- arg) 'nomark)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2405 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2406 (defun idlwave-beginning-of-block () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2407 "Go to the beginning of the current block." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2408 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2409 (idlwave-block-jump-out -1 'nomark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2410 (forward-word 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2411 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2412 (defun idlwave-end-of-block () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2413 "Go to the beginning of the current block." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2414 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2415 (idlwave-block-jump-out 1 'nomark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2416 (backward-word 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2417 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2418 (defun idlwave-forward-block () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2419 "Move across next nested block." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2420 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2421 (if (idlwave-down-block 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2422 (idlwave-block-jump-out 1 'nomark))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2423 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2424 (defun idlwave-backward-block () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2425 "Move backward across previous nested block." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2426 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2427 (if (idlwave-down-block -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2428 (idlwave-block-jump-out -1 'nomark))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2429 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2430 (defun idlwave-down-block (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2431 "Go down a block. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2432 With ARG: ARG >= 0 go forwards, ARG < 0 go backwards. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2433 Returns non-nil if successfull." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2434 (interactive "p") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2435 (let (status) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2436 (if (< arg 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2437 ;; Backward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2438 (let ((eos (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2439 (idlwave-block-jump-out -1 'nomark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2440 (point)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2441 (if (setq status (idlwave-find-key |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2442 idlwave-end-block-reg -1 'nomark eos)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2443 (idlwave-beginning-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2444 (message "No nested block before beginning of containing block."))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2445 ;; Forward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2446 (let ((eos (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2447 (idlwave-block-jump-out 1 'nomark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2448 (point)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2449 (if (setq status (idlwave-find-key |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2450 idlwave-begin-block-reg 1 'nomark eos)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2451 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2452 (message "No nested block before end of containing block.")))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2453 status)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2454 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2455 (defun idlwave-mark-doclib () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2456 "Put point at beginning of doc library header, mark at end. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2457 The marks are pushed." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2458 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2459 (let (beg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2460 (here (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2461 (goto-char (point-max)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2462 (if (re-search-backward idlwave-doclib-start nil t) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2463 (progn |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2464 (setq beg (progn (beginning-of-line) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2465 (if (re-search-forward idlwave-doclib-end nil t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2466 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2467 (forward-line 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2468 (idlwave-push-mark beg nil t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2469 (message "Could not find end of doc library header."))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2470 (message "Could not find doc library header start.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2471 (goto-char here))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2472 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2473 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2474 (defun idlwave-current-routine () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2475 "Return (NAME TYPE CLASS) of current routine." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2476 (idlwave-routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2477 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2478 (idlwave-beginning-of-subprogram) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2479 (if (looking-at "[ \t]*\\<\\(pro\\|function\\)\\>\\s-+\\(\\([a-zA-Z0-9$_]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2480 (let* ((type (if (string= (downcase (match-string 1)) "pro") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2481 'pro 'function)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2482 (class (idlwave-sintern-class (match-string 3))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2483 (name (idlwave-sintern-routine-or-method (match-string 4) class))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2484 (list name type class))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2485 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2486 (defvar idlwave-shell-prompt-pattern) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2487 (defun idlwave-beginning-of-statement () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2488 "Move to beginning of the current statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2489 Skips back past statement continuations. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2490 Point is placed at the beginning of the line whether or not this is an |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2491 actual statement." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2492 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2493 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2494 ((eq major-mode 'idlwave-shell-mode) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2495 (if (re-search-backward idlwave-shell-prompt-pattern nil t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2496 (goto-char (match-end 0)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2497 (t |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2498 (if (save-excursion (forward-line -1) (idlwave-is-continuation-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2499 (idlwave-previous-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2500 (beginning-of-line))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2501 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2502 (defun idlwave-previous-statement () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2503 "Moves point to beginning of the previous statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2504 Returns t if the current line before moving is the beginning of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2505 the first non-comment statement in the file, and nil otherwise." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2506 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2507 (let (first-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2508 (if (not (= (forward-line -1) 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2509 ;; first line in file |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2510 t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2511 ;; skip blank lines, label lines, include lines and line comments |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2512 (while (and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2513 ;; The current statement is the first statement until we |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2514 ;; reach another statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2515 (setq first-statement |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2516 (or |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2517 (looking-at idlwave-comment-line-start-skip) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2518 (looking-at "[ \t]*$") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2519 (looking-at (concat "[ \t]*" idlwave-label "[ \t]*$")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2520 (looking-at "^@"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2521 (= (forward-line -1) 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2522 ;; skip continuation lines |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2523 (while (and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2524 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2525 (forward-line -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2526 (idlwave-is-continuation-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2527 (= (forward-line -1) 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2528 first-statement))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2529 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2530 (defun idlwave-end-of-statement () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2531 "Moves point to the end of the current IDL statement. |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2532 If not in a statement just moves to end of line. Returns position." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2533 (interactive) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2534 (while (and (idlwave-is-continuation-line) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2535 (= (forward-line 1) 0)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2536 (while (and (idlwave-is-comment-or-empty-line) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2537 (= (forward-line 1) 0)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2538 (end-of-line) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2539 (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2540 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2541 (defun idlwave-end-of-statement0 () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2542 "Moves point to the end of the current IDL statement. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2543 If not in a statement just moves to end of line. Returns position." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2544 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2545 (while (and (idlwave-is-continuation-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2546 (= (forward-line 1) 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2547 (end-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2548 (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2549 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2550 (defun idlwave-next-statement () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2551 "Moves point to beginning of the next IDL statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2552 Returns t if that statement is the last |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2553 non-comment IDL statement in the file, and nil otherwise." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2554 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2555 (let (last-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2556 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2557 ;; skip blank lines, label lines, include lines and line comments |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2558 (while (and (= (forward-line 1) 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2559 ;; The current statement is the last statement until |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2560 ;; we reach a new statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2561 (setq last-statement |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2562 (or |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2563 (looking-at idlwave-comment-line-start-skip) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2564 (looking-at "[ \t]*$") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2565 (looking-at (concat "[ \t]*" idlwave-label "[ \t]*$")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2566 (looking-at "^@"))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2567 last-statement)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2568 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2569 (defun idlwave-skip-multi-commands (&optional lim) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2570 "Skip past multiple commands on a line (with `&')." |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2571 (let ((save-point (point))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2572 (when (re-search-forward ".*&" lim t) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2573 (goto-char (match-end 0)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2574 (if (idlwave-in-quote) (goto-char save-point))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2575 (point))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2576 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2577 (defun idlwave-skip-label-or-case () |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2578 "Skip label or case statement element. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2579 Returns position after label. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2580 If there is no label point is not moved and nil is returned." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2581 ;; Case expressions and labels are terminated by a colon. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2582 ;; So we find the first colon in the line and make sure |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2583 ;; - no `?' is before it (might be a ? b : c) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2584 ;; - it is not in a comment |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2585 ;; - not in a string constant |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2586 ;; - not in parenthesis (like a[0:3]) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2587 ;; - not followed by another ":" in explicit class, ala a->b::c |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2588 ;; As many in this mode, this function is heuristic and not an exact |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2589 ;; parser. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2590 (let* ((start (point)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2591 (eos (save-excursion (idlwave-end-of-statement) (point))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2592 (end (idlwave-find-key ":" 1 'nomark eos))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2593 (if (and end |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2594 (= (nth 0 (parse-partial-sexp start end)) 0) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2595 (not (string-match "\\?" (buffer-substring start end))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2596 (not (string-match "^::" (buffer-substring end eos)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2597 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2598 (forward-char) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2599 (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2600 (goto-char start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2601 nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2602 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2603 (defun idlwave-start-of-substatement (&optional pre) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2604 "Move to start of next IDL substatement after point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2605 Uses the type of the current IDL statement to determine if the next |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2606 statement is on a new line or is a subpart of the current statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2607 Returns point at start of substatement modulo whitespace. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2608 If optional argument is non-nil move to beginning of current |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2609 substatement." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2610 (let ((orig (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2611 (eos (idlwave-end-of-statement)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2612 (ifnest 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2613 st nst last) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2614 (idlwave-beginning-of-statement) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2615 (idlwave-skip-label-or-case) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2616 (idlwave-skip-multi-commands orig) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2617 (setq last (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2618 ;; Continue looking for substatements until we are past orig |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2619 (while (and (<= (point) orig) (not (eobp))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2620 (setq last (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2621 (setq nst (nth 1 (cdr (setq st (car (idlwave-statement-type)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2622 (if (equal (car st) 'if) (setq ifnest (1+ ifnest))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2623 (cond ((and nst |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2624 (idlwave-find-key nst 1 'nomark eos)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2625 (goto-char (match-end 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2626 ((and (> ifnest 0) (idlwave-find-key "\\<else\\>" 1 'nomark eos)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2627 (setq ifnest (1- ifnest)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2628 (goto-char (match-end 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2629 (t (setq ifnest 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2630 (idlwave-next-statement)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2631 (if pre (goto-char last)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2632 ;; If a continuation line starts here, move to next line |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2633 (if (looking-at "[ \t]*\\$\\([ \t]*\\(;\\|$\\)\\)") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2634 (beginning-of-line 2)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2635 (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2636 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2637 (defun idlwave-statement-type () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2638 "Return the type of the current IDL statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2639 Uses `idlwave-statement-match' to return a cons of (type . point) with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2640 point the ending position where the type was determined. Type is the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2641 association from `idlwave-statement-match', i.e. the cons cell from the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2642 list not just the type symbol. Returns nil if not an identifiable |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2643 statement." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2644 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2645 ;; Skip whitespace within a statement which is spaces, tabs, continuations |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2646 ;; and possibly comments |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2647 (while (looking-at "[ \t]*\\$") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2648 (forward-line 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2649 (skip-chars-forward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2650 (let ((st idlwave-statement-match) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2651 (case-fold-search t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2652 (while (and (not (looking-at (nth 0 (cdr (car st))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2653 (setq st (cdr st)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2654 (if st |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2655 (append st (match-end 0)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2656 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2657 (defun idlwave-expand-equal (&optional before after) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2658 "Pad '=' with spaces. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2659 Two cases: Assignment statement, and keyword assignment. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2660 The case is determined using `idlwave-start-of-substatement' and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2661 `idlwave-statement-type'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2662 The equal sign will be surrounded by BEFORE and AFTER blanks. |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2663 If `idlwave-pad-keyword' is t then keyword assignment is treated just |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2664 like assignment statements. When nil, spaces are removed for keyword |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2665 assignment. Any other value keeps the current space around the `='. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2666 Limits in for loops are treated as keyword assignment. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2667 See `idlwave-surround'. " |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2668 ;; Even though idlwave-surround checks `idlwave-surround-by-blank' this |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2669 ;; check saves the time of finding the statement type. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2670 (if idlwave-surround-by-blank |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2671 (let ((st (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2672 (idlwave-start-of-substatement t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2673 (idlwave-statement-type)))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2674 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2675 (cond ((or (and (equal (car (car st)) 'assign) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2676 (equal (cdr st) (point))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2677 (eq t idlwave-pad-keyword)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2678 ;; An assignment statement or keywor and we need padding |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2679 (idlwave-surround before after)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2680 ((null idlwave-pad-keyword) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2681 ;; Spaces should be removed at a keyword |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2682 (idlwave-surround 0 0)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2683 (t))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2684 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2685 (defun idlwave-indent-and-action (&optional arg) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2686 "Call `idlwave-indent-line' and do expand actions. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2687 With prefix ARG non-nil, indent the entire sub-statement." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2688 (interactive "p") |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2689 (save-excursion |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2690 (if (and idlwave-expand-generic-end |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2691 (re-search-backward "\\<\\(end\\)\\s-*\\=" |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2692 (max 0 (- (point) 10)) t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2693 (looking-at "\\(end\\)\\([ \n\t]\\|\\'\\)")) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
2694 (progn (goto-char (match-end 1)) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2695 ;;Expand the END abbreviation, just as RET or Space would have. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2696 (if abbrev-mode (expand-abbrev) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2697 (idlwave-show-begin))))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2698 (if arg |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2699 (idlwave-indent-statement) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2700 (idlwave-indent-line t))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2701 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2702 (defun idlwave-indent-line (&optional expand) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2703 "Indents current IDL line as code or as a comment. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2704 The actions in `idlwave-indent-action-table' are performed. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2705 If the optional argument EXPAND is non-nil then the actions in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2706 `idlwave-indent-expand-table' are performed." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2707 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2708 ;; Move point out of left margin. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2709 (if (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2710 (skip-chars-backward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2711 (bolp)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2712 (skip-chars-forward " \t")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2713 (let ((mloc (point-marker))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2714 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2715 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2716 (if (looking-at idlwave-comment-line-start-skip) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2717 ;; Indentation for a line comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2718 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2719 (skip-chars-forward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2720 (idlwave-indent-left-margin (idlwave-comment-hook))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2721 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2722 ;; Code Line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2723 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2724 ;; Before indenting, run action routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2725 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2726 (if (and expand idlwave-do-actions) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2727 (mapcar 'idlwave-do-action idlwave-indent-expand-table)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2728 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2729 (if idlwave-do-actions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2730 (mapcar 'idlwave-do-action idlwave-indent-action-table)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2731 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2732 ;; No longer expand abbrevs on the line. The user can do this |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2733 ;; manually using expand-region-abbrevs. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2734 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2735 ;; Indent for code line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2736 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2737 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2738 (if (or |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2739 ;; a label line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2740 (looking-at (concat "^" idlwave-label "[ \t]*$")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2741 ;; a batch command |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2742 (looking-at "^[ \t]*@")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2743 ;; leave flush left |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2744 nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2745 ;; indent the line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2746 (idlwave-indent-left-margin (idlwave-calculate-indent))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2747 ;; Adjust parallel comment |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2748 (end-of-line) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2749 (if (idlwave-in-comment) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2750 ;; Emacs 21 is too smart with fill-column on comment indent |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2751 (let ((fill-column (if (fboundp 'comment-indent-new-line) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2752 (1- (frame-width)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2753 fill-column))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2754 (indent-for-comment))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2755 (goto-char mloc) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2756 ;; Get rid of marker |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2757 (set-marker mloc nil))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2758 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2759 (defun idlwave-do-action (action) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2760 "Perform an action repeatedly on a line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2761 ACTION is a list (REG . FUNC). REG is a regular expression. FUNC is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2762 either a function name to be called with `funcall' or a list to be |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2763 evaluated with `eval'. The action performed by FUNC should leave point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2764 after the match for REG - otherwise an infinite loop may be entered." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2765 (let ((action-key (car action)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2766 (action-routine (cdr action))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2767 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2768 (while (idlwave-look-at action-key) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2769 (if (listp action-routine) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2770 (eval action-routine) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2771 (funcall action-routine))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2772 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2773 (defun idlwave-indent-to (col &optional min) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2774 "Indent from point with spaces until column COL. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2775 Inserts space before markers at point." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2776 (if (not min) (setq min 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2777 (insert-before-markers |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2778 (make-string (max min (- col (current-column))) ?\ ))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2779 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2780 (defun idlwave-indent-left-margin (col) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2781 "Indent the current line to column COL. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2782 Indents such that first non-whitespace character is at column COL |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2783 Inserts spaces before markers at point." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2784 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2785 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2786 (delete-horizontal-space) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2787 (idlwave-indent-to col))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2788 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2789 (defun idlwave-indent-subprogram () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2790 "Indents program unit which contains point." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2791 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2792 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2793 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2794 (idlwave-beginning-of-subprogram) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2795 (let ((beg (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2796 (idlwave-forward-block) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2797 (message "Indenting subprogram...") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2798 (indent-region beg (point) nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2799 (message "Indenting subprogram...done."))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2800 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2801 (defun idlwave-indent-statement () |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2802 "Indent current statement, including all continuation lines." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2803 (interactive) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2804 (save-excursion |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2805 (idlwave-beginning-of-statement) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2806 (let ((beg (point))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2807 (idlwave-end-of-statement) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2808 (indent-region beg (point) nil)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2809 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2810 (defun idlwave-calculate-indent () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2811 "Return appropriate indentation for current line as IDL code." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2812 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2813 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2814 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2815 ;; Check for beginning of unit - main (beginning of buffer), pro, or |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2816 ;; function |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2817 ((idlwave-look-at idlwave-begin-unit-reg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2818 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2819 ;; Check for continuation line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2820 ((save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2821 (and (= (forward-line -1) 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2822 (idlwave-is-continuation-line))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2823 (idlwave-calculate-cont-indent)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2824 ;; calculate indent based on previous and current statements |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2825 (t (let ((the-indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2826 ;; calculate indent based on previous statement |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2827 (save-excursion |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2828 (cond |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2829 ((idlwave-previous-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2830 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2831 ;; Main block |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2832 ((idlwave-look-at idlwave-begin-unit-reg t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2833 (+ (idlwave-current-statement-indent) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2834 idlwave-main-block-indent)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2835 ;; Begin block |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2836 ((idlwave-look-at idlwave-begin-block-reg t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2837 (+ (idlwave-current-statement-indent) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2838 idlwave-block-indent)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2839 ((idlwave-look-at idlwave-end-block-reg t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2840 (- (idlwave-current-statement-indent) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2841 idlwave-end-offset |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2842 idlwave-block-indent)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2843 ((idlwave-current-statement-indent)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2844 ;; adjust the indentation based on the current statement |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2845 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2846 ;; End block |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2847 ((idlwave-look-at idlwave-end-block-reg) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2848 (+ the-indent idlwave-end-offset)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2849 (the-indent))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2850 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2851 ;; |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2852 ;; Parentheses balacing/indent |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2853 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2854 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2855 (defun idlwave-calculate-paren-indent (beg-reg end-reg close-exp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2856 "Calculate the continuation indent inside a paren group. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2857 Returns a cons-cell with (open . indent), where open is the |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2858 location of the open paren" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2859 (let ((open (nth 1 (parse-partial-sexp beg-reg end-reg)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2860 ;; Found an innermost open paren. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2861 (when open |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2862 (goto-char open) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2863 ;; Line up with next word unless this is a closing paren. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2864 (cons open |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2865 (cond |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2866 ;; This is a closed paren - line up under open paren. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2867 (close-exp |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2868 (current-column)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2869 ;; Empty (or just comment) - just line up next to paren |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2870 ((progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2871 ;; Skip paren |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2872 (forward-char 1) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2873 (looking-at "[ \t$]*\\(;.*\\)?$")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2874 (current-column)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2875 ;; Line up with first word after blank space |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2876 ((progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2877 (skip-chars-forward " \t") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2878 (current-column)))))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2879 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2880 (defun idlwave-calculate-cont-indent () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2881 "Calculates the IDL continuation indent column from the previous statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2882 Note that here previous statement means the beginning of the current |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2883 statement if this statement is a continuation of the previous line." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2884 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2885 (let* (open |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2886 (case-fold-search t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2887 (end-reg (progn (beginning-of-line) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2888 (close-exp (progn (skip-chars-forward " \t") (looking-at "\\s)"))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2889 ; (beg-reg (progn (idlwave-previous-statement) (point))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2890 (beg-reg (progn ;; Use substatement indent unless it's this line |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2891 (idlwave-start-of-substatement 'pre) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2892 (if (eq (line-beginning-position) end-reg) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2893 (idlwave-previous-statement)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2894 (point))) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2895 (cur-indent (idlwave-current-indent)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2896 (else-cont (and (goto-char end-reg) (looking-at "[ \t]*else"))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2897 (basic-indent ;; The basic, non-fancy indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2898 (+ cur-indent idlwave-continuation-indent)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2899 (fancy-nonparen-indent ;; A smarter indent for routine/assignments |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2900 ;; Try without parens first: |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2901 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2902 (goto-char beg-reg) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2903 (while (idlwave-look-at "&")) ; skip over continued statements |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2904 (cond |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2905 ;; A continued Procedure call or definition |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2906 ((progn |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2907 (idlwave-look-at "^[ \t]*\\(pro\\|function\\)") ;skip over |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2908 (looking-at "[ \t]*\\([a-zA-Z0-9$_]+[ \t]*->[ \t]*\\)?[a-zA-Z][:a-zA-Z0-9$_]*[ \t]*\\(,\\)[ \t]*")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2909 (goto-char (match-end 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2910 ;; Comment only, or blank line with "$"? Align with , |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2911 (if (save-match-data (looking-at "[ \t$]*\\(;.*\\)?$")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2912 (goto-char (match-end 2))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2913 (current-column)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2914 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2915 ;; Continued assignment (with =), |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
2916 ((looking-at "[ \t]*[][().a-zA-Z0-9$_]+[ \t]*\\(=\\)[ \t]*") |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2917 (goto-char (match-end 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2918 ;; Comment only? Align with = |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2919 (if (save-match-data (looking-at "[ \t$]*\\(;.*\\)?$")) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2920 (progn |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2921 (goto-char (match-end 1)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2922 (if idlwave-surround-by-blank |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2923 (1+ (current-column)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2924 (current-column))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2925 (current-column)))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2926 (fancy-nonparen-indent-allowed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2927 (and fancy-nonparen-indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2928 (< (- fancy-nonparen-indent basic-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2929 idlwave-max-extra-continuation-indent))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2930 (fancy-paren-indent-cons ;; A smarter indent for paren groups |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2931 ;; Look for any enclosing parens |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2932 (idlwave-calculate-paren-indent beg-reg end-reg close-exp)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2933 (fancy-paren-open (car fancy-paren-indent-cons)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2934 (fancy-paren-indent (cdr fancy-paren-indent-cons)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2935 (fancy-paren-indent-allowed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2936 (and fancy-paren-indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2937 (or idlwave-indent-to-open-paren ;; override |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2938 (< (- fancy-paren-indent basic-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2939 idlwave-max-extra-continuation-indent)))) |
47479 | 2940 fancy-enclosing-paren-indent) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2941 (cond |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2942 ;; else continuations are always standard |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2943 (else-cont |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2944 cur-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2945 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2946 ;; an allowed parenthesis-indent |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2947 (fancy-paren-indent-allowed |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2948 fancy-paren-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2949 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2950 ;; a disallowed paren indent nested inside one or more other |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2951 ;; parens: indent relative to the first allowed enclosing paren |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2952 ;; set, if any... if it's actually a greater indent, just use |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2953 ;; the fancy-paren-indent anyway. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2954 ((and fancy-paren-indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2955 (not fancy-paren-indent-allowed) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2956 (setq fancy-enclosing-paren-indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2957 (let ((enclose-open fancy-paren-open) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2958 enclose-indent-cons |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2959 enclose-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2960 (catch 'loop |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2961 (while (setq enclose-indent-cons |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2962 (idlwave-calculate-paren-indent |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2963 beg-reg (max (1- enclose-open) beg-reg) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2964 nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2965 enclose-open (car enclose-indent-cons) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2966 enclose-indent (cdr enclose-indent-cons)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2967 (if (< (- enclose-indent basic-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2968 idlwave-max-extra-continuation-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2969 (throw 'loop enclose-indent))))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2970 (min fancy-paren-indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2971 (+ fancy-enclosing-paren-indent idlwave-continuation-indent))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2972 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2973 ;; a disallowed paren indent inside another type: indent relative |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2974 ((and fancy-paren-indent |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2975 (not fancy-paren-indent-allowed) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2976 fancy-nonparen-indent-allowed ) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2977 (+ fancy-nonparen-indent idlwave-continuation-indent)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2978 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2979 ;; an allowed nonparen-only indent |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2980 (fancy-nonparen-indent-allowed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2981 fancy-nonparen-indent) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2982 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2983 ;; everything else |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
2984 (t |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
2985 basic-indent))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
2986 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2987 (defun idlwave-find-key (key-re &optional dir nomark limit) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2988 "Move to next match of the regular expression KEY-RE. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2989 Matches inside comments or string constants will be ignored. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2990 If DIR is negative, the search will be backwards. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2991 At a successful match, the mark is pushed unless NOMARK is non-nil. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2992 Searches are limited to LIMIT. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2993 Searches are case-insensitive and use a special syntax table which |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2994 treats `$' and `_' as word characters. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2995 Return value is the beginning of the match or (in case of failure) nil." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2996 (setq dir (or dir 0)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2997 (let ((case-fold-search t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2998 (search-func (if (> dir 0) 're-search-forward 're-search-backward)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
2999 found) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3000 (idlwave-with-special-syntax |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3001 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3002 (catch 'exit |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3003 (while (funcall search-func key-re limit t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3004 (if (not (idlwave-quoted)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3005 (throw 'exit (setq found (match-beginning 0)))))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3006 (if found |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3007 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3008 (if (not nomark) (push-mark)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3009 (goto-char found) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3010 found) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3011 nil))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3012 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3013 (defun idlwave-block-jump-out (&optional dir nomark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3014 "When optional argument DIR is non-negative, move forward to end of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3015 current block using the `idlwave-begin-block-reg' and `idlwave-end-block-reg' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3016 regular expressions. When DIR is negative, move backwards to block beginning. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3017 Recursively calls itself to skip over nested blocks. DIR defaults to |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3018 forward. Calls `push-mark' unless the optional argument NOMARK is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3019 non-nil. Movement is limited by the start of program units because of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3020 possibility of unbalanced blocks." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3021 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3022 (or dir (setq dir 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3023 (let* ((here (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3024 (case-fold-search t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3025 (limit (if (>= dir 0) (point-max) (point-min))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3026 (block-limit (if (>= dir 0) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3027 idlwave-begin-block-reg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3028 idlwave-end-block-reg)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3029 found |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3030 (block-reg (concat idlwave-begin-block-reg "\\|" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3031 idlwave-end-block-reg)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3032 (unit-limit (or (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3033 (if (< dir 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3034 (idlwave-find-key |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3035 idlwave-begin-unit-reg dir t limit) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3036 (end-of-line) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3037 (idlwave-find-key |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3038 idlwave-end-unit-reg dir t limit))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3039 limit))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3040 (if (>= dir 0) (end-of-line)) ;Make sure we are in current block |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3041 (if (setq found (idlwave-find-key block-reg dir t unit-limit)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3042 (while (and found (looking-at block-limit)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3043 (if (>= dir 0) (forward-word 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3044 (idlwave-block-jump-out dir t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3045 (setq found (idlwave-find-key block-reg dir t unit-limit)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3046 (if (not nomark) (push-mark here)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3047 (if (not found) (goto-char unit-limit) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3048 (if (>= dir 0) (forward-word 1))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3049 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3050 (defun idlwave-current-statement-indent () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3051 "Return indentation of the current statement. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3052 If in a statement, moves to beginning of statement before finding indent." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3053 (idlwave-beginning-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3054 (idlwave-current-indent)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3055 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3056 (defun idlwave-current-indent () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3057 "Return the column of the indentation of the current line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3058 Skips any whitespace. Returns 0 if the end-of-line follows the whitespace." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3059 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3060 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3061 (skip-chars-forward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3062 ;; if we are at the end of blank line return 0 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3063 (cond ((eolp) 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3064 ((current-column))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3065 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3066 (defun idlwave-is-continuation-line () |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3067 "Tests if current line is continuation line. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3068 Blank or comment-only lines following regular continuation lines (with |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3069 `$') count as continuations too." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3070 (save-excursion |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3071 (or |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3072 (idlwave-look-at "\\<\\$") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3073 (catch 'loop |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3074 (while (and (looking-at "^[ \t]*\\(;.*\\)?$") |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3075 (eq (forward-line -1) 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3076 (if (idlwave-look-at "\\<\\$") (throw 'loop t))))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3077 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3078 (defun idlwave-is-comment-line () |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3079 "Tests if the current line is a comment line." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3080 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3081 (beginning-of-line 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3082 (looking-at "[ \t]*;"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3083 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3084 (defun idlwave-is-comment-or-empty-line () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3085 "Tests if the current line is a comment line." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3086 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3087 (beginning-of-line 1) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3088 (looking-at "[ \t]*[;\n]"))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3089 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3090 (defun idlwave-look-at (regexp &optional cont beg) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3091 "Searches current line from current point for REGEXP. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3092 If optional argument CONT is non-nil, searches to the end of |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3093 the current statement. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3094 If optional arg BEG is non-nil, search starts from the beginning of the |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3095 current statement. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3096 Ignores matches that end in a comment or inside a string expression. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3097 Returns point if successful, nil otherwise. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3098 This function produces unexpected results if REGEXP contains quotes or |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3099 a comment delimiter. The search is case insensitive. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3100 If successful leaves point after the match, otherwise, does not move point." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3101 (let ((here (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3102 (case-fold-search t) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3103 (eos (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3104 (if cont (idlwave-end-of-statement) (end-of-line)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3105 (point))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3106 found) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3107 (idlwave-with-special-syntax |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3108 (if beg (idlwave-beginning-of-statement)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3109 (while (and (setq found (re-search-forward regexp eos t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3110 (idlwave-quoted)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3111 (if (not found) (goto-char here)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3112 found)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3113 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3114 (defun idlwave-fill-paragraph (&optional nohang) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3115 "Fills paragraphs in comments. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3116 A paragraph is made up of all contiguous lines having the same comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3117 leader (the leading whitespace before the comment delimiter and the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3118 comment delimiter). In addition, paragraphs are separated by blank |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3119 line comments. The indentation is given by the hanging indent of the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3120 first line, otherwise by the minimum indentation of the lines after |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3121 the first line. The indentation of the first line does not change. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3122 Does not effect code lines. Does not fill comments on the same line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3123 with code. The hanging indent is given by the end of the first match |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3124 matching `idlwave-hang-indent-regexp' on the paragraph's first line . If the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3125 optional argument NOHANG is non-nil then the hanging indent is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3126 ignored." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3127 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3128 ;; check if this is a line comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3129 (if (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3130 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3131 (skip-chars-forward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3132 (looking-at comment-start)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3133 (let |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3134 ((indent 999) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3135 pre here diff fill-prefix-reg bcl first-indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3136 hang start end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3137 ;; Change tabs to spaces in the surrounding paragraph. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3138 ;; The surrounding paragraph will be the largest containing block of |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3139 ;; contiguous line comments. Thus, we may be changing tabs in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3140 ;; a much larger area than is needed, but this is the easiest |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3141 ;; brute force way to do it. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3142 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3143 ;; This has the undesirable side effect of replacing the tabs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3144 ;; permanently without the user's request or knowledge. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3145 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3146 (backward-paragraph) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3147 (setq start (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3148 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3149 (forward-paragraph) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3150 (setq end (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3151 (untabify start end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3152 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3153 (setq here (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3154 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3155 (setq bcl (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3156 (re-search-forward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3157 (concat "^[ \t]*" comment-start "+") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3158 (save-excursion (end-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3159 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3160 ;; Get the comment leader on the line and its length |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3161 (setq pre (current-column)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3162 ;; the comment leader is the indentation plus exactly the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3163 ;; number of consecutive ";". |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3164 (setq fill-prefix-reg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3165 (concat |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3166 (setq fill-prefix |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3167 (regexp-quote |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3168 (buffer-substring (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3169 (beginning-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3170 (point)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3171 "[^;]")) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3172 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3173 ;; Mark the beginning and end of the paragraph |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3174 (goto-char bcl) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3175 (while (and (looking-at fill-prefix-reg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3176 (not (looking-at paragraph-separate)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3177 (not (bobp))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3178 (forward-line -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3179 ;; Move to first line of paragraph |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3180 (if (/= (point) bcl) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3181 (forward-line 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3182 (setq start (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3183 (goto-char bcl) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3184 (while (and (looking-at fill-prefix-reg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3185 (not (looking-at paragraph-separate)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3186 (not (eobp))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3187 (forward-line 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3188 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3189 (if (or (not (looking-at fill-prefix-reg)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3190 (looking-at paragraph-separate)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3191 (forward-line -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3192 (end-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3193 ;; if at end of buffer add a newline (need this because |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3194 ;; fill-region needs END to be at the beginning of line after |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3195 ;; the paragraph or it will add a line). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3196 (if (eobp) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3197 (progn (insert ?\n) (backward-char 1))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3198 ;; Set END to the beginning of line after the paragraph |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3199 ;; END is calculated as distance from end of buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3200 (setq end (- (point-max) (point) 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3201 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3202 ;; Calculate the indentation for the paragraph. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3203 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3204 ;; In the following while statements, after one iteration |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3205 ;; point will be at the beginning of a line in which case |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3206 ;; the while will not be executed for the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3207 ;; the first paragraph line and thus will not affect the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3208 ;; indentation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3209 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3210 ;; First check to see if indentation is based on hanging indent. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3211 (if (and (not nohang) idlwave-hanging-indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3212 (setq hang |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3213 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3214 (goto-char start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3215 (idlwave-calc-hanging-indent)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3216 ;; Adjust lines of paragraph by inserting spaces so that |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3217 ;; each line's indent is at least as great as the hanging |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3218 ;; indent. This is needed for fill-paragraph to work with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3219 ;; a fill-prefix. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3220 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3221 (setq indent hang) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3222 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3223 (while (> (point) start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3224 (re-search-forward comment-start-skip |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3225 (save-excursion (end-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3226 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3227 (if (> (setq diff (- indent (current-column))) 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3228 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3229 (if (>= here (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3230 ;; adjust the original location for the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3231 ;; inserted text. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3232 (setq here (+ here diff))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3233 (insert (make-string diff ?\ )))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3234 (forward-line -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3235 ) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3236 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3237 ;; No hang. Instead find minimum indentation of paragraph |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3238 ;; after first line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3239 ;; For the following while statement, since START is at the |
45318 | 3240 ;; beginning of line and END is at the end of line |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3241 ;; point is greater than START at least once (which would |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3242 ;; be the case for a single line paragraph). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3243 (while (> (point) start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3244 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3245 (setq indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3246 (min indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3247 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3248 (re-search-forward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3249 comment-start-skip |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3250 (save-excursion (end-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3251 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3252 (current-column)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3253 (forward-line -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3254 ) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3255 (setq fill-prefix (concat fill-prefix |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3256 (make-string (- indent pre) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3257 ?\ ))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3258 ;; first-line indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3259 (setq first-indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3260 (max |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3261 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3262 (re-search-forward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3263 comment-start-skip |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3264 (save-excursion (end-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3265 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3266 (current-column)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3267 indent)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3268 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3269 ;; try to keep point at its original place |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3270 (goto-char here) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3271 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3272 ;; In place of the more modern fill-region-as-paragraph, a hack |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3273 ;; to keep whitespace untouched on the first line within the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3274 ;; indent length and to preserve any indent on the first line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3275 ;; (first indent). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3276 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3277 (setq diff |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3278 (buffer-substring start (+ start first-indent -1))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3279 (subst-char-in-region start (+ start first-indent -1) ?\ ?~ nil) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3280 (fill-region-as-paragraph |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3281 start |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3282 (- (point-max) end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3283 (current-justification) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3284 nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3285 (delete-region start (+ start first-indent -1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3286 (goto-char start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3287 (insert diff)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3288 ;; When we want the point at the beginning of the comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3289 ;; body fill-region will put it at the beginning of the line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3290 (if (bolp) (skip-chars-forward (concat " \t" comment-start))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3291 (setq fill-prefix nil)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3292 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3293 (defun idlwave-calc-hanging-indent () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3294 "Calculate the position of the hanging indent for the comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3295 paragraph. The hanging indent position is given by the first match |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3296 with the `idlwave-hang-indent-regexp'. If `idlwave-use-last-hang-indent' is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3297 non-nil then use last occurrence matching `idlwave-hang-indent-regexp' on |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3298 the line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3299 If not found returns nil." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3300 (if idlwave-use-last-hang-indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3301 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3302 (end-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3303 (if (re-search-backward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3304 idlwave-hang-indent-regexp |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3305 (save-excursion (beginning-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3306 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3307 (+ (current-column) (length idlwave-hang-indent-regexp)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3308 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3309 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3310 (if (re-search-forward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3311 idlwave-hang-indent-regexp |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3312 (save-excursion (end-of-line) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3313 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3314 (current-column))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3315 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3316 (defun idlwave-auto-fill () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3317 "Called to break lines in auto fill mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3318 Only fills comment lines if `idlwave-fill-comment-line-only' is non-nil. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3319 Places a continuation character at the end of the line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3320 if not in a comment. Splits strings with IDL concatenation operator |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3321 `+' if `idlwave-auto-fill-split-string is non-nil." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3322 (if (<= (current-column) fill-column) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3323 nil ; do not to fill |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3324 (if (or (not idlwave-fill-comment-line-only) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3325 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3326 ;; Check for comment line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3327 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3328 (looking-at idlwave-comment-line-start-skip))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3329 (let (beg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3330 (idlwave-indent-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3331 ;; Prevent actions do-auto-fill which calls indent-line-function. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3332 (let (idlwave-do-actions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3333 (paragraph-start ".") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3334 (paragraph-separate ".")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3335 (do-auto-fill)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3336 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3337 (end-of-line 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3338 ;; Indent the split line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3339 (idlwave-indent-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3340 ) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3341 (if (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3342 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3343 (looking-at idlwave-comment-line-start-skip)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3344 ;; A continued line comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3345 ;; We treat continued line comments as part of a comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3346 ;; paragraph. So we check for a hanging indent. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3347 (if idlwave-hanging-indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3348 (let ((here (- (point-max) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3349 (indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3350 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3351 (forward-line -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3352 (idlwave-calc-hanging-indent)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3353 (if indent |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3354 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3355 ;; Remove whitespace between comment delimiter and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3356 ;; text, insert spaces for appropriate indentation. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3357 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3358 (re-search-forward |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3359 comment-start-skip |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3360 (save-excursion (end-of-line) (point)) t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3361 (delete-horizontal-space) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3362 (idlwave-indent-to indent) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3363 (goto-char (- (point-max) here))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3364 ))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3365 ;; Split code or comment? |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3366 (if (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3367 (end-of-line 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3368 (idlwave-in-comment)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3369 ;; Splitting a non-line comment. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3370 ;; Insert the comment delimiter from split line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3371 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3372 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3373 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3374 (skip-chars-forward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3375 ;; Insert blank to keep off beginning of line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3376 (insert " " |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3377 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3378 (forward-line -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3379 (buffer-substring (idlwave-goto-comment) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3380 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3381 (skip-chars-forward "; ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3382 (point)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3383 (idlwave-indent-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3384 ;; Split code line - add continuation character |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3385 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3386 (end-of-line 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3387 ;; Check to see if we split a string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3388 (if (and (setq beg (idlwave-in-quote)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3389 idlwave-auto-fill-split-string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3390 ;; Split the string and concatenate. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3391 ;; The first extra space is for the space |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3392 ;; the line was split. That space was removed. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3393 (insert " " (char-after beg) " +")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3394 (insert " $")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3395 (if beg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3396 (if idlwave-auto-fill-split-string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3397 ;; Make the second part of continued string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3398 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3399 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3400 (skip-chars-forward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3401 (insert (char-after beg))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3402 ;; Warning |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3403 (beep) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3404 (message "Warning: continuation inside a string."))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3405 ;; Although do-auto-fill (via indent-new-comment-line) calls |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3406 ;; idlwave-indent-line for the new line, re-indent again |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3407 ;; because of the addition of the continuation character. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3408 (idlwave-indent-line)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3409 ))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3410 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3411 (defun idlwave-auto-fill-mode (arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3412 "Toggle auto-fill mode for IDL mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3413 With arg, turn auto-fill mode on if arg is positive. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3414 In auto-fill mode, inserting a space at a column beyond `fill-column' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3415 automatically breaks the line at a previous space." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3416 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3417 (prog1 (set idlwave-fill-function |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3418 (if (if (null arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3419 (not (symbol-value idlwave-fill-function)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3420 (> (prefix-numeric-value arg) 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3421 'idlwave-auto-fill |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3422 nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3423 ;; update mode-line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3424 (set-buffer-modified-p (buffer-modified-p)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3425 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3426 (defun idlwave-doc-header (&optional nomark ) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3427 "Insert a documentation header at the beginning of the unit. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3428 Inserts the value of the variable idlwave-file-header. Sets mark before |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3429 moving to do insertion unless the optional prefix argument NOMARK |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3430 is non-nil." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3431 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3432 (or nomark (push-mark)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3433 ;; make sure we catch the current line if it begins the unit |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3434 (if idlwave-header-to-beginning-of-file |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3435 (goto-char (point-min)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3436 (end-of-line) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3437 (idlwave-beginning-of-subprogram) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3438 (beginning-of-line) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3439 ;; skip function or procedure line |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3440 (if (idlwave-look-at "\\<\\(pro\\|function\\)\\>") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3441 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3442 (idlwave-end-of-statement) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3443 (if (> (forward-line 1) 0) (insert "\n"))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3444 (let ((pos (point))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3445 (if idlwave-file-header |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3446 (cond ((car idlwave-file-header) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3447 (insert-file (car idlwave-file-header))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3448 ((stringp (car (cdr idlwave-file-header))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3449 (insert (car (cdr idlwave-file-header)))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3450 (goto-char pos))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3451 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3452 (defun idlwave-default-insert-timestamp () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3453 "Default timestamp insertion function" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3454 (insert (current-time-string)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3455 (insert ", " (user-full-name)) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3456 (if (boundp 'user-mail-address) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3457 (insert " <" user-mail-address ">") |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3458 (insert " <" (user-login-name) "@" (system-name) ">")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3459 ;; Remove extra spaces from line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3460 (idlwave-fill-paragraph) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3461 ;; Insert a blank line comment to separate from the date entry - |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3462 ;; will keep the entry from flowing onto date line if re-filled. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
3463 (insert "\n;\n;\t\t")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3464 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3465 (defun idlwave-doc-modification () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3466 "Insert a brief modification log at the beginning of the current program. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3467 Looks for an occurrence of the value of user variable |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3468 `idlwave-doc-modifications-keyword' if non-nil. Inserts time and user name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3469 and places the point for the user to add a log. Before moving, saves |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3470 location on mark ring so that the user can return to previous point." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3471 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3472 (push-mark) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3473 (let* (beg end) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3474 (if (and (or (re-search-backward idlwave-doclib-start nil t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3475 (progn |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3476 (goto-char (point-min)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3477 (re-search-forward idlwave-doclib-start nil t))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3478 (setq beg (match-beginning 0)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3479 (re-search-forward idlwave-doclib-end nil t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3480 (setq end (match-end 0))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3481 (progn |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3482 (goto-char beg) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3483 (if (re-search-forward |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3484 (concat idlwave-doc-modifications-keyword ":") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3485 end t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3486 (end-of-line) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3487 (goto-char end) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3488 (end-of-line -1) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3489 (insert "\n" comment-start "\n") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3490 (insert comment-start " " idlwave-doc-modifications-keyword ":")) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3491 (insert "\n;\n;\t") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3492 (run-hooks 'idlwave-timestamp-hook)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3493 (error "No valid DOCLIB header")))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3494 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3495 ;;; CJC 3/16/93 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3496 ;;; Interface to expand-region-abbrevs which did not work when the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3497 ;;; abbrev hook associated with an abbrev moves point backwards |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3498 ;;; after abbrev expansion, e.g., as with the abbrev '.n'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3499 ;;; The original would enter an infinite loop in attempting to expand |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3500 ;;; .n (it would continually expand and unexpand the abbrev without expanding |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3501 ;;; because the point would keep going back to the beginning of the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3502 ;;; abbrev instead of to the end of the abbrev). We now keep the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3503 ;;; abbrev hook from moving backwards. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3504 ;;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3505 (defun idlwave-expand-region-abbrevs (start end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3506 "Expand each abbrev occurrence in the region. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3507 Calling from a program, arguments are START END." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3508 (interactive "r") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3509 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3510 (goto-char (min start end)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3511 (let ((idlwave-show-block nil) ;Do not blink |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3512 (idlwave-abbrev-move nil)) ;Do not move |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3513 (expand-region-abbrevs start end 'noquery)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3514 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3515 (defun idlwave-quoted () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3516 "Returns t if point is in a comment or quoted string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3517 nil otherwise." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3518 (or (idlwave-in-comment) (idlwave-in-quote))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3519 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3520 (defun idlwave-in-quote () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3521 "Returns location of the opening quote |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3522 if point is in a IDL string constant, nil otherwise. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3523 Ignores comment delimiters on the current line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3524 Properly handles nested quotation marks and octal |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3525 constants - a double quote followed by an octal digit." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3526 ;;; Treat an octal inside an apostrophe to be a normal string. Treat a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3527 ;;; double quote followed by an octal digit to be an octal constant |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3528 ;;; rather than a string. Therefore, there is no terminating double |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3529 ;;; quote. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3530 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3531 ;; Because single and double quotes can quote each other we must |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3532 ;; search for the string start from the beginning of line. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3533 (let* ((start (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3534 (eol (progn (end-of-line) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3535 (bq (progn (beginning-of-line) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3536 (endq (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3537 (data (match-data)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3538 delim |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3539 found) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3540 (while (< endq start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3541 ;; Find string start |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3542 ;; Don't find an octal constant beginning with a double quote |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3543 (if (re-search-forward "\"[^0-7]\\|'\\|\"$" eol 'lim) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3544 ;; Find the string end. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3545 ;; In IDL, two consecutive delimiters after the start of a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3546 ;; string act as an |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3547 ;; escape for the delimiter in the string. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3548 ;; Two consecutive delimiters alone (i.e., not after the |
45318 | 3549 ;; start of a string) is the null string. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3550 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3551 ;; Move to position after quote |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3552 (goto-char (1+ (match-beginning 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3553 (setq bq (1- (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3554 ;; Get the string delimiter |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3555 (setq delim (char-to-string (preceding-char))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3556 ;; Check for null string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3557 (if (looking-at delim) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3558 (progn (setq endq (point)) (forward-char 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3559 ;; Look for next unpaired delimiter |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3560 (setq found (search-forward delim eol 'lim)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3561 (while (looking-at delim) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3562 (forward-char 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3563 (setq found (search-forward delim eol 'lim))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3564 (if found |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3565 (setq endq (- (point) 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3566 (setq endq (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3567 )) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3568 (progn (setq bq (point)) (setq endq (point))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3569 (store-match-data data) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3570 ;; return string beginning position or nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3571 (if (> start bq) bq)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3572 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3573 (defun idlwave-is-pointer-dereference (&optional limit) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3574 "Determines if the character after point is a pointer dereference *." |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3575 (let ((pos (point))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3576 (and |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3577 (eq (char-after) ?\*) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3578 (not (idlwave-in-quote)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3579 (save-excursion |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3580 (forward-char) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3581 (re-search-backward (concat "\\(" idlwave-idl-keywords |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3582 "\\|[[(*+-/=,^><]\\)\\s-*\\*") limit t))))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3583 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3584 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3585 ;; Statement templates |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3586 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3587 ;; Replace these with a general template function, something like |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3588 ;; expand.el (I think there was also something with a name similar to |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3589 ;; dmacro.el) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3590 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3591 (defun idlwave-template (s1 s2 &optional prompt noindent) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3592 "Build a template with optional prompt expression. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3593 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3594 Opens a line if point is not followed by a newline modulo intervening |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3595 whitespace. S1 and S2 are strings. S1 is inserted at point followed |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3596 by S2. Point is inserted between S1 and S2. The case of S1 and S2 is |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3597 adjusted according to `idlwave-abbrev-change-case'. If optional argument |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3598 PROMPT is a string then it is displayed as a message in the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3599 minibuffer. The PROMPT serves as a reminder to the user of an |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3600 expression to enter. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3601 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3602 The lines containing S1 and S2 are reindented using `indent-region' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3603 unless the optional second argument NOINDENT is non-nil." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3604 (if (eq major-mode 'idlwave-shell-mode) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3605 ;; This is a gross hack to avoit template abbrev expansion |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3606 ;; in the shell. FIXME: This is a dirty hack. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3607 (if (and (eq this-command 'self-insert-command) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3608 (equal last-abbrev-location (point))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3609 (insert last-abbrev-text) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3610 (error "No templates in idlwave-shell")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3611 (cond ((eq idlwave-abbrev-change-case 'down) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3612 (setq s1 (downcase s1) s2 (downcase s2))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3613 (idlwave-abbrev-change-case |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3614 (setq s1 (upcase s1) s2 (upcase s2)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3615 (let ((beg (save-excursion (beginning-of-line) (point))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3616 end) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3617 (if (not (looking-at "\\s-*\n")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3618 (open-line 1)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3619 (insert s1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3620 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3621 (insert s2) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3622 (setq end (point))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3623 (if (not noindent) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3624 (indent-region beg end nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3625 (if (stringp prompt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3626 (message prompt))))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3627 |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3628 (defun idlwave-rw-case (string) |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3629 "Make STRING have the case required by `idlwave-reserved-word-upcase'." |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3630 (if idlwave-reserved-word-upcase |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3631 (upcase string) |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3632 string)) |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3633 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3634 (defun idlwave-elif () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3635 "Build skeleton IDL if-else block." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3636 (interactive) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3637 (idlwave-template |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3638 (idlwave-rw-case "if") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3639 (idlwave-rw-case " then begin\n\nendif else begin\n\nendelse") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3640 "Condition expression")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3641 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3642 (defun idlwave-case () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3643 "Build skeleton IDL case statement." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3644 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3645 (idlwave-template |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3646 (idlwave-rw-case "case") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3647 (idlwave-rw-case " of\n\nendcase") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3648 "Selector expression")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3649 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3650 (defun idlwave-switch () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3651 "Build skeleton IDL switch statement." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3652 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3653 (idlwave-template |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3654 (idlwave-rw-case "switch") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3655 (idlwave-rw-case " of\n\nendswitch") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3656 "Selector expression")) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
3657 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3658 (defun idlwave-for () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3659 "Build skeleton for loop statment." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3660 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3661 (idlwave-template |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3662 (idlwave-rw-case "for") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3663 (idlwave-rw-case " do begin\n\nendfor") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3664 "Loop expression")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3665 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3666 (defun idlwave-if () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3667 "Build skeleton for loop statment." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3668 (interactive) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3669 (idlwave-template |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3670 (idlwave-rw-case "if") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3671 (idlwave-rw-case " then begin\n\nendif") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3672 "Scalar logical expression")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3673 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3674 (defun idlwave-procedure () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3675 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3676 (idlwave-template |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3677 (idlwave-rw-case "pro") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3678 (idlwave-rw-case "\n\nreturn\nend") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3679 "Procedure name")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3680 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3681 (defun idlwave-function () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3682 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3683 (idlwave-template |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3684 (idlwave-rw-case "function") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3685 (idlwave-rw-case "\n\nreturn\nend") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3686 "Function name")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3687 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3688 (defun idlwave-repeat () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3689 (interactive) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3690 (idlwave-template |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3691 (idlwave-rw-case "repeat begin\n\nendrep until") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3692 (idlwave-rw-case "") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3693 "Exit condition")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3694 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3695 (defun idlwave-while () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3696 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3697 (idlwave-template |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3698 (idlwave-rw-case "while") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3699 (idlwave-rw-case " do begin\n\nendwhile") |
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
3700 "Entry condition")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3701 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3702 (defun idlwave-split-string (string &optional pattern) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3703 "Return a list of substrings of STRING which are separated by PATTERN. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3704 If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3705 (or pattern |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3706 (setq pattern "[ \f\t\n\r\v]+")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3707 (let (parts (start 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3708 (while (string-match pattern string start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3709 (setq parts (cons (substring string start (match-beginning 0)) parts) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3710 start (match-end 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3711 (nreverse (cons (substring string start) parts)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3712 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3713 (defun idlwave-replace-string (string replace_string replace_with) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3714 (let* ((start 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3715 (last (length string)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3716 (ret_string "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3717 end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3718 (while (setq end (string-match replace_string string start)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3719 (setq ret_string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3720 (concat ret_string (substring string start end) replace_with)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3721 (setq start (match-end 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3722 (setq ret_string (concat ret_string (substring string start last))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3723 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3724 (defun idlwave-get-buffer-visiting (file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3725 ;; Return the buffer currently visiting FILE |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3726 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3727 ((boundp 'find-file-compare-truenames) ; XEmacs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3728 (let ((find-file-compare-truenames t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3729 (get-file-buffer file))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3730 ((fboundp 'find-buffer-visiting) ; Emacs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3731 (find-buffer-visiting file)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3732 (t (error "This should not happen (idlwave-get-buffer-visiting)")))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3733 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3734 (defvar idlwave-outlawed-buffers nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3735 "List of buffer pulled up by idlwave for special reasons. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3736 Buffers in this list may be killed by `idlwave-kill-autoloaded-buffers'.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3737 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3738 (defun idlwave-find-file-noselect (file &optional why) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3739 ;; Return a buffer visiting file. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3740 (or (idlwave-get-buffer-visiting file) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3741 (let ((buf (find-file-noselect file))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3742 (if why (add-to-list 'idlwave-outlawed-buffers (cons buf why))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3743 buf))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3744 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3745 (defun idlwave-kill-autoloaded-buffers () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3746 "Cleanup by killing buffers created automatically by IDLWAVE. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3747 Function prompts for a letter to identify the buffers to kill. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3748 Possible letters are: |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3749 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3750 f Buffers created by the command \\[idlwave-find-module] or mouse |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3751 clicks in the routine info window. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3752 s Buffers created by the IDLWAVE Shell to display where execution |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3753 stopped or an error was found. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3754 a Both of the above. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3755 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3756 Buffer containing unsaved changes require confirmation before they are killed." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3757 (interactive) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3758 (if (null idlwave-outlawed-buffers) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3759 (error "No IDLWAVE-created buffers available") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3760 (princ (format "Kill IDLWAVE-created buffers: [f]ind source(%d), [s]hell display(%d), [a]ll ? " |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3761 (idlwave-count-outlawed-buffers 'find) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3762 (idlwave-count-outlawed-buffers 'shell))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3763 (let ((c (read-char))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3764 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3765 ((member c '(?f ?\C-f)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3766 (idlwave-do-kill-autoloaded-buffers 'find)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3767 ((member c '(?s ?\C-s)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3768 (idlwave-do-kill-autoloaded-buffers 'shell)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3769 ((member c '(?a ?\C-a)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3770 (idlwave-do-kill-autoloaded-buffers t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3771 (t (error "Abort")))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3772 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3773 (defun idlwave-count-outlawed-buffers (tag) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3774 "How many outlawed buffers have tag TAG?" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3775 (length (delq nil |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3776 (mapcar |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3777 (lambda (x) (eq (cdr x) tag)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3778 idlwave-outlawed-buffers)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3779 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3780 (defun idlwave-do-kill-autoloaded-buffers (&rest reasons) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3781 "Kill all buffers pulled up by IDLWAVE matching REASONS." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3782 (let* ((list (copy-sequence idlwave-outlawed-buffers)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3783 (cnt 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3784 entry) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3785 (while (setq entry (pop list)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3786 (if (buffer-live-p (car entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3787 (and (or (memq t reasons) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3788 (memq (cdr entry) reasons)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3789 (kill-buffer (car entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3790 (incf cnt) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3791 (setq idlwave-outlawed-buffers |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3792 (delq entry idlwave-outlawed-buffers))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3793 (setq idlwave-outlawed-buffers |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3794 (delq entry idlwave-outlawed-buffers)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3795 (message "%d buffer%s killed" cnt (if (= cnt 1) "" "s")))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3796 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3797 (defun idlwave-revoke-license-to-kill () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3798 "Remove BUFFER from the buffers which may be killed. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3799 Killing would be done by `idlwave-do-kill-autoloaded-buffers'. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3800 Intended for `after-save-hook'." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3801 (let* ((buf (current-buffer)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3802 (entry (assq buf idlwave-outlawed-buffers))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3803 ;; Revoke license |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3804 (if entry |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3805 (setq idlwave-outlawed-buffers |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3806 (delq entry idlwave-outlawed-buffers))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3807 ;; Remove this function from the hook. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3808 (remove-hook 'after-save-hook 'idlwave-revoke-license-to-kill 'local))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3809 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3810 (defvar idlwave-path-alist) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3811 (defun idlwave-locate-lib-file (file) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3812 ;; Find FILE on the scanned lib path and return a buffer visiting it |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3813 (let* ((dirs idlwave-path-alist) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3814 dir efile) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3815 (catch 'exit |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3816 (while (setq dir (car (pop dirs))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3817 (if (file-regular-p |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3818 (setq efile (expand-file-name file dir))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3819 (throw 'exit efile)))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3820 (defun idlwave-expand-lib-file-name (file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3821 ;; Find FILE on the scanned lib path and return a buffer visiting it |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3822 (cond |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3823 ((null file) nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3824 ((string-match "\\`\\({\\([0-9]+\\)}/\\)\\(.*\\)" file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3825 (expand-file-name (match-string 3 file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3826 (car (nth (1- (string-to-int (match-string 2 file))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3827 idlwave-path-alist)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3828 ((file-name-absolute-p file) file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
3829 (t (idlwave-locate-lib-file file)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3830 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3831 (defun idlwave-make-tags () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3832 "Creates the IDL tags file IDLTAGS in the current directory from |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3833 the list of directories specified in the minibuffer. Directories may be |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3834 for example: . /usr/local/rsi/idl/lib. All the subdirectories of the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3835 specified top directories are searched if the directory name is prefixed |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3836 by @. Specify @ directories with care, it may take a long, long time if |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3837 you specify /." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3838 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3839 (let (directory directories cmd append status numdirs dir getsubdirs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3840 buffer save_buffer files numfiles item errbuf) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3841 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3842 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3843 ;; Read list of directories |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3844 (setq directory (read-string "Tag Directories: " ".")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3845 (setq directories (idlwave-split-string directory "[ \t]+")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3846 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3847 ;; Set etags command, vars |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3848 (setq cmd "etags --output=IDLTAGS --language=none --regex='/[ |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3849 \\t]*[pP][Rr][Oo][ \\t]+\\([^ \\t,]+\\)/' --regex='/[ |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3850 \\t]*[Ff][Uu][Nn][Cc][Tt][Ii][Oo][Nn][ \\t]+\\([^ \\t,]+\\)/' ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3851 (setq append " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3852 (setq status 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3853 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3854 ;; For each directory |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3855 (setq numdirs 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3856 (setq dir (nth numdirs directories)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3857 (while (and dir) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3858 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3859 ;; Find the subdirectories |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3860 (if (string-match "^[@]\\(.+\\)$" dir) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3861 (setq getsubdirs t) (setq getsubdirs nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3862 (if (and getsubdirs) (setq dir (substring dir 1 (length dir)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3863 (setq dir (expand-file-name dir)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3864 (if (file-directory-p dir) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3865 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3866 (if (and getsubdirs) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3867 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3868 (setq buffer (get-buffer-create "*idltags*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3869 (call-process "sh" nil buffer nil "-c" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3870 (concat "find " dir " -type d -print")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3871 (setq save_buffer (current-buffer)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3872 (set-buffer buffer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3873 (setq files (idlwave-split-string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3874 (idlwave-replace-string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3875 (buffer-substring 1 (point-max)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3876 "\n" "/*.pro ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3877 "[ \t]+")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3878 (set-buffer save_buffer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3879 (kill-buffer buffer)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3880 (setq files (list (concat dir "/*.pro")))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3881 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3882 ;; For each subdirectory |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3883 (setq numfiles 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3884 (setq item (nth numfiles files)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3885 (while (and item) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3886 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3887 ;; Call etags |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3888 (if (not (string-match "^[ \\t]*$" item)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3889 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3890 (message (concat "Tagging " item "...")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3891 (setq errbuf (get-buffer-create "*idltags-error*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3892 (setq status (+ status |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3893 (call-process "sh" nil errbuf nil "-c" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3894 (concat cmd append item)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3895 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3896 ;; Append additional tags |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3897 (setq append " --append ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3898 (setq numfiles (1+ numfiles)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3899 (setq item (nth numfiles files))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3900 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3901 (setq numfiles (1+ numfiles)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3902 (setq item (nth numfiles files)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3903 ))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3904 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3905 (setq numdirs (1+ numdirs)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3906 (setq dir (nth numdirs directories))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3907 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3908 (setq numdirs (1+ numdirs)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3909 (setq dir (nth numdirs directories))))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3910 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3911 (setq errbuf (get-buffer-create "*idltags-error*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3912 (if (= status 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3913 (kill-buffer errbuf)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3914 (message "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3915 )) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3916 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3917 (defun idlwave-toggle-comment-region (beg end &optional n) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3918 "Comment the lines in the region if the first non-blank line is |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3919 commented, and conversely, uncomment region. If optional prefix arg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3920 N is non-nil, then for N positive, add N comment delimiters or for N |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3921 negative, remove N comment delimiters. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3922 Uses `comment-region' which does not place comment delimiters on |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3923 blank lines." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3924 (interactive "r\nP") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3925 (if n |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3926 (comment-region beg end (prefix-numeric-value n)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3927 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3928 (goto-char beg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3929 (beginning-of-line) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3930 ;; skip blank lines |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3931 (skip-chars-forward " \t\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3932 (if (looking-at (concat "[ \t]*\\(" comment-start "+\\)")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3933 (comment-region beg end |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3934 (- (length (buffer-substring |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3935 (match-beginning 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3936 (match-end 1))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3937 (comment-region beg end))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3938 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3939 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3940 ;; ---------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3941 ;; ---------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3942 ;; ---------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3943 ;; ---------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3944 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3945 ;; Completion and Routine Info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3946 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3947 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3948 ;; String "intern" functions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3949 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3950 ;; For the completion and routine info function, we want to normalize |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3951 ;; the case of procedure names etc. We do this by "interning" these |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3952 ;; string is a hand-crafted way. Hashes are used to map the downcase |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3953 ;; version of the strings to the cased versions. Since these cased |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3954 ;; versions are really lisp objects, we can use `eq' to search, which |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3955 ;; is a large performance boost. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3956 ;; All new strings need to be "sinterned". We do this as early as |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3957 ;; possible after getting these strings from completion or buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3958 ;; substrings. So most of the code can simply assume to deal with |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3959 ;; "sinterned" strings. The only exception is that the functions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3960 ;; which scan whole buffers for routine information do not intern the |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3961 ;; grabbed strings. This is only done afterwards. Therefore in these |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
3962 ;; functions it is *not* safe to assume the strings can be compared |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3963 ;; with `eq' and be fed into the routine assq functions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3964 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3965 ;; Here we define the hashing functions. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3966 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3967 ;; The variables which hold the hashes. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3968 (defvar idlwave-sint-routines '(nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3969 (defvar idlwave-sint-keywords '(nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3970 (defvar idlwave-sint-methods '(nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3971 (defvar idlwave-sint-classes '(nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3972 (defvar idlwave-sint-files '(nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3973 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3974 (defun idlwave-reset-sintern (&optional what) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3975 "Reset all sintern hashes." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3976 ;; Make sure the hash functions are accessible. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3977 (if (or (not (fboundp 'gethash)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3978 (not (fboundp 'puthash))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3979 (progn |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3980 (require 'cl) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3981 (or (fboundp 'puthash) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3982 (defalias 'puthash 'cl-puthash)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3983 (let ((entries '((idlwave-sint-routines 1000 10) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3984 (idlwave-sint-keywords 1000 10) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3985 (idlwave-sint-methods 100 10) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3986 (idlwave-sint-classes 10 10)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3987 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3988 ;; Make sure these are lists |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3989 (loop for entry in entries |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3990 for var = (car entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3991 do (if (not (consp (symbol-value var))) (set var (list nil)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3992 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3993 (when (or (eq what t) (eq what 'syslib) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3994 (null (cdr idlwave-sint-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3995 ;; Reset the system & library hash |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3996 (loop for entry in entries |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3997 for var = (car entry) for size = (nth 1 entry) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
3998 do (setcdr (symbol-value var) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
3999 (make-hash-table ':size size ':test 'equal))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4000 (setq idlwave-sint-files nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4001 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4002 (when (or (eq what t) (eq what 'bufsh) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4003 (null (car idlwave-sint-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4004 ;; Reset the buffer & shell hash |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4005 (loop for entry in entries |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4006 for var = (car entry) for size = (nth 1 entry) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4007 do (setcar (symbol-value var) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4008 (make-hash-table ':size size ':test 'equal)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4009 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4010 (defun idlwave-sintern-routine-or-method (name &optional class set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4011 (if class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4012 (idlwave-sintern-method name set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4013 (idlwave-sintern-routine name set))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4014 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4015 (defun idlwave-sintern (stype &rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4016 (apply (intern (concat "idlwave-sintern-" (symbol-name stype))) args)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4017 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4018 ;;(defmacro idlwave-sintern (type var) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4019 ;; `(cond ((not (stringp name)) name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4020 ;; ((gethash (downcase name) (cdr ,var))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4021 ;; ((gethash (downcase name) (car ,var))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4022 ;; (set (idlwave-sintern-set name ,type ,var set)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4023 ;; (name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4024 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4025 (defun idlwave-sintern-routine (name &optional set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4026 (cond ((not (stringp name)) name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4027 ((gethash (downcase name) (cdr idlwave-sint-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4028 ((gethash (downcase name) (car idlwave-sint-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4029 (set (idlwave-sintern-set name 'routine idlwave-sint-routines set)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4030 (name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4031 (defun idlwave-sintern-keyword (name &optional set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4032 (cond ((not (stringp name)) name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4033 ((gethash (downcase name) (cdr idlwave-sint-keywords))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4034 ((gethash (downcase name) (car idlwave-sint-keywords))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4035 (set (idlwave-sintern-set name 'keyword idlwave-sint-keywords set)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4036 (name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4037 (defun idlwave-sintern-method (name &optional set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4038 (cond ((not (stringp name)) name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4039 ((gethash (downcase name) (cdr idlwave-sint-methods))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4040 ((gethash (downcase name) (car idlwave-sint-methods))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4041 (set (idlwave-sintern-set name 'method idlwave-sint-methods set)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4042 (name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4043 (defun idlwave-sintern-class (name &optional set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4044 (cond ((not (stringp name)) name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4045 ((gethash (downcase name) (cdr idlwave-sint-classes))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4046 ((gethash (downcase name) (car idlwave-sint-classes))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4047 (set (idlwave-sintern-set name 'class idlwave-sint-classes set)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4048 (name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4049 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4050 (defun idlwave-sintern-file (name &optional set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4051 (car (or (member name idlwave-sint-files) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4052 (setq idlwave-sint-files (cons name idlwave-sint-files))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4053 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4054 (defun idlwave-sintern-set (name type tables set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4055 (let* ((func (or (cdr (assq type idlwave-completion-case)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4056 'identity)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4057 (iname (funcall (if (eq func 'preserve) 'identity func) name)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4058 (table (if (eq set 'sys) (cdr tables) (car tables)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4059 (puthash (downcase name) iname table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4060 iname)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4061 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4062 (defun idlwave-sintern-rinfo-list (list &optional set) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4063 "Sintern all strings in the rinfo LIST. With optional parameter SET: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4064 also set new patterns. Probably this will always have to be t." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4065 (let (entry name type class kwds res source call olh new) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4066 (while list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4067 (setq entry (car list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4068 list (cdr list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4069 name (car entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4070 type (nth 1 entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4071 class (nth 2 entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4072 source (nth 3 entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4073 call (nth 4 entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4074 kwds (nth 5 entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4075 olh (nth 6 entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4076 (setq kwds (mapcar (lambda (x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4077 (list (idlwave-sintern-keyword (car x) set))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4078 kwds)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4079 (if class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4080 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4081 (if (symbolp class) (setq class (symbol-name class))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4082 (setq class (idlwave-sintern-class class set)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4083 (setq name (idlwave-sintern-method name set))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4084 (setq name (idlwave-sintern-routine name set))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4085 (if (stringp (cdr source)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4086 (setcdr source (idlwave-sintern-file (cdr source) t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4087 (setq new (if olh |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4088 (list name type class source call kwds olh) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4089 (list name type class source call kwds))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4090 (setq res (cons new res))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4091 (nreverse res))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4092 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4093 ;; Creating new sintern tables |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4094 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4095 (defun idlwave-new-sintern-type (tag) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4096 "Define a variable and a function to sintern the new type TAG. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4097 This defines the function `idlwave-sintern-TAG' and the variable |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4098 `idlwave-sint-TAGs'." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4099 (let* ((name (symbol-name tag)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4100 (names (concat name "s")) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4101 (var (intern (concat "idlwave-sint-" names))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4102 (func (intern (concat "idlwave-sintern-" name)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4103 (set var nil) ; initial value of the association list |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4104 (fset func ; set the function |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4105 `(lambda (name &optional set) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4106 (cond ((not (stringp name)) name) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4107 ((cdr (assoc (downcase name) ,var))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4108 (set |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4109 (setq ,var (cons (cons (downcase name) name) ,var)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4110 name) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4111 (name)))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4112 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4113 (defun idlwave-reset-sintern-type (tag) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4114 "Reset the sintern variable associated with TAG." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4115 (set (intern (concat "idlwave-sint-" (symbol-name tag) "s")) nil)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4116 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4117 ;;--------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4118 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4119 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4120 ;; The variables which hold the information |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4121 (defvar idlwave-system-routines nil |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4122 "Holds the routine-info obtained by scanning buffers.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4123 (defvar idlwave-buffer-routines nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4124 "Holds the routine-info obtained by scanning buffers.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4125 (defvar idlwave-compiled-routines nil |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4126 "Holds the routine-info obtained by asking the shell.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4127 (defvar idlwave-unresolved-routines nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4128 "Holds the unresolved routine-info obtained by asking the shell.") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4129 (defvar idlwave-library-routines nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4130 "Holds the procedure routine-info from the library scan.") |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4131 (defvar idlwave-path-alist nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4132 "Alist with !PATH directories and a flag if the dir has been scanned.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4133 (defvar idlwave-true-path-alist nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4134 "Like `idlwave-path-alist', but with true filenames.") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4135 (defvar idlwave-routines nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4136 "Holds the combinded procedure routine-info.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4137 (defvar idlwave-class-alist nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4138 "Holds the class names known to IDLWAVE.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4139 (defvar idlwave-class-history nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4140 "The history of classes selected with the minibuffer.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4141 (defvar idlwave-force-class-query nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4142 (defvar idlwave-before-completion-wconf nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4143 "The window configuration just before the completion buffer was displayed.") |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4144 (defvar idlwave-last-system-routine-info-cons-cell nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4145 "The last cons cell in the system routine info.") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4146 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4147 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4148 ;; The code to get routine info from different sources. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4149 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4150 (defvar idlwave-system-routines) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4151 (defvar idlwave-catalog-process nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4152 "The background process currently updating the catalog.") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4153 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4154 (defun idlwave-routines () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4155 "Provide a list of IDL routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4156 This routine loads the builtin routines on the first call. Later it |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4157 only returns the value of the variable." |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4158 (if (and idlwave-catalog-process |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4159 (processp idlwave-catalog-process)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4160 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4161 (cond |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4162 ((equal (process-status idlwave-catalog-process) 'exit) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4163 (message "updating........") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4164 (setq idlwave-catalog-process nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4165 (idlwave-update-routine-info '(4))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4166 ((equal (process-status idlwave-catalog-process) 'run) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4167 ;; Keep it running... |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4168 ) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4169 (t |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4170 ;; Something is wrong, get rid of the process |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4171 (message "Problem with catalog process") (beep) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4172 (condition-case nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4173 (kill-process idlwave-catalog-process) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4174 (error nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4175 (setq idlwave-catalog-process nil))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4176 (or idlwave-routines |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4177 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4178 (idlwave-update-routine-info) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4179 ;; return the current value |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4180 idlwave-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4181 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4182 (defvar idlwave-update-rinfo-hook nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4183 "List of functions which should run after a global rinfo update. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4184 Does not run after automatic updates of buffer or the shell.") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4185 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4186 (defun idlwave-rescan-catalog-directories () |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4187 "Rescan the previously selected directories. For batch processing." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4188 (idlwave-update-routine-info '(16))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4189 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4190 (defun idlwave-rescan-asynchronously () |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4191 "Dispatch another emacs instance to update the idlwave catalog. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4192 After the process finishes normally, the first access to routine info |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4193 will re-read the catalog." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4194 (interactive) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4195 (if (processp idlwave-catalog-process) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4196 (if (eq (process-status idlwave-catalog-process) 'run) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4197 (if (yes-or-no-p "A catalog-updating process is running. Kill it? ") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4198 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4199 (condition-case nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4200 (kill-process idlwave-catalog-process) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4201 (error nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4202 (error "Process killed, no new process started")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4203 (error "Quit")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4204 (condition-case nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4205 (kill-process idlwave-catalog-process) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4206 (error nil)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4207 (if (or (not idlwave-libinfo-file) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4208 (not (stringp idlwave-libinfo-file)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4209 (not (file-regular-p idlwave-libinfo-file))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4210 (error "No catalog has been produced yet")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4211 (let* ((emacs (expand-file-name (invocation-name) (invocation-directory))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4212 (args (list "-batch" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4213 "-l" (expand-file-name "~/.emacs") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4214 "-l" "idlwave" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4215 "-f" "idlwave-rescan-catalog-directories")) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4216 (process (apply 'start-process "idlcat" |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4217 nil emacs args))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4218 (setq idlwave-catalog-process process) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4219 (set-process-sentinel |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4220 process |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4221 (lambda (pro why) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4222 (when (string-match "finished" why) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4223 (setq idlwave-routines nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4224 idlwave-system-routines nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4225 idlwave-catalog-process nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4226 (or (idlwave-start-load-rinfo-timer) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4227 (idlwave-update-routine-info '(4)))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4228 (message "Background job started to update catalog file"))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4229 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4230 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4231 (defvar idlwave-load-rinfo-idle-timer) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4232 (defun idlwave-update-routine-info (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4233 "Update the internal routine-info lists. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4234 These lists are used by `idlwave-routine-info' (\\[idlwave-routine-info]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4235 and by `idlwave-complete' (\\[idlwave-complete]) to provide information |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4236 about individual routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4237 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4238 The information can come from 4 sources: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4239 1. IDL programs in the current editing session |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4240 2. Compiled modules in an IDL shell running as Emacs subprocess |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4241 3. A list which covers the IDL system routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4242 4. A list which covers the prescanned library files. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4243 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4244 Scans all IDLWAVE-mode buffers of the current editing session (see |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4245 `idlwave-scan-all-buffers-for-routine-info'). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4246 When an IDL shell is running, this command also queries the IDL program |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4247 for currently compiled routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4248 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4249 With prefix ARG, also reload the system and library lists. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4250 With two prefix ARG's, also rescans the library tree. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4251 With three prefix args, dispatch asynchronous process to do the update." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4252 (interactive "P") |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4253 ;; Stop any idle processing |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4254 (if (or (and (fboundp 'itimerp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4255 (itimerp idlwave-load-rinfo-idle-timer)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4256 (and (fboundp 'timerp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4257 (timerp idlwave-load-rinfo-idle-timer))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4258 (cancel-timer idlwave-load-rinfo-idle-timer)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4259 (cond |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4260 ((equal arg '(64)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4261 ;; Start a background process which updates the catalog. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4262 (idlwave-rescan-asynchronously)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4263 ((equal arg '(16)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4264 ;; Update the catalog now, and wait for it. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4265 (idlwave-create-libinfo-file t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4266 (t |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4267 (let* ((load (or arg |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4268 idlwave-buffer-case-takes-precedence |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4269 (null idlwave-routines))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4270 ;; The override-idle means, even if the idle timer has done some |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4271 ;; preparing work, load and renormalize everything anyway. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4272 (override-idle (or arg idlwave-buffer-case-takes-precedence))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4273 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4274 (setq idlwave-buffer-routines nil |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4275 idlwave-compiled-routines nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4276 idlwave-unresolved-routines nil) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4277 ;; Reset the appropriate hashes |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4278 (if (get 'idlwave-reset-sintern 'done-by-idle) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4279 ;; reset was already done in idle time, so skip this step now once |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4280 (put 'idlwave-reset-sintern 'done-by-idle nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4281 (idlwave-reset-sintern (cond (load t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4282 ((null idlwave-system-routines) t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4283 (t 'bufsh)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4284 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4285 (if idlwave-buffer-case-takes-precedence |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4286 ;; We can safely scan the buffer stuff first |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4287 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4288 (idlwave-update-buffer-routine-info) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4289 (and load (idlwave-load-system-rinfo override-idle))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4290 ;; We first do the system info, and then the buffers |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4291 (and load (idlwave-load-system-rinfo override-idle)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4292 (idlwave-update-buffer-routine-info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4293 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4294 ;; Let's see if there is a shell |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4295 (let* ((shell-is-running (and (fboundp 'idlwave-shell-is-running) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4296 (idlwave-shell-is-running))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4297 (ask-shell (and shell-is-running |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4298 idlwave-query-shell-for-routine-info))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4299 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4300 (if (or (not ask-shell) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4301 (not (interactive-p))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4302 ;; 1. If we are not going to ask the shell, we need to do the |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4303 ;; concatenation now. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4304 ;; 2. When this function is called non-interactively, it means |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4305 ;; that someone needs routine info *now*. The shell update |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4306 ;; causes the concatenation *delayed*, so not in time for |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4307 ;; the current command. Therefore, we do a concatenation |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4308 ;; now, even though the shell might do it again. |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4309 (idlwave-concatenate-rinfo-lists nil t)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4310 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4311 (when ask-shell |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4312 ;; Ask the shell about the routines it knows. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4313 (message "Querying the shell") |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4314 (idlwave-shell-update-routine-info nil t))))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4315 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4316 (defvar idlwave-load-rinfo-steps-done (make-vector 5 nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4317 (defvar idlwave-load-rinfo-idle-timer nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4318 (defun idlwave-start-load-rinfo-timer () |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4319 (if (or (and (fboundp 'itimerp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4320 (itimerp idlwave-load-rinfo-idle-timer)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4321 (and (fboundp 'timerp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4322 (timerp idlwave-load-rinfo-idle-timer))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4323 (cancel-timer idlwave-load-rinfo-idle-timer)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4324 (setq idlwave-load-rinfo-steps-done (make-vector 5 nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4325 (setq idlwave-load-rinfo-idle-timer nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4326 (if (and idlwave-init-rinfo-when-idle-after |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4327 (numberp idlwave-init-rinfo-when-idle-after) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4328 (not (equal 0 idlwave-init-rinfo-when-idle-after)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4329 (not idlwave-routines)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4330 (condition-case nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4331 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4332 (setq idlwave-load-rinfo-idle-timer |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4333 (run-with-idle-timer |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4334 idlwave-init-rinfo-when-idle-after |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4335 nil 'idlwave-load-rinfo-next-step))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4336 (error nil)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4337 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4338 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4339 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4340 (defun idlwave-load-rinfo-next-step () |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4341 (let ((inhibit-quit t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4342 (arr idlwave-load-rinfo-steps-done)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4343 (if (catch 'exit |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4344 (when (not (aref arr 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4345 (message "Loading idlw-rinfo.el in idle time...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4346 (load "idlw-rinfo" 'noerror 'nomessage) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4347 (message "Loading idlw-rinfo.el in idle time...done") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4348 (aset arr 0 t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4349 (throw 'exit t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4350 (when (not (aref arr 1)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4351 (message "Normalizing idlwave-system-routines in idle time...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4352 (idlwave-reset-sintern t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4353 (put 'idlwave-reset-sintern 'done-by-idle t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4354 (setq idlwave-system-routines |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4355 (idlwave-sintern-rinfo-list idlwave-system-routines 'sys)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4356 (message "Normalizing idlwave-system-routines in idle time...done") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4357 (aset arr 1 t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4358 (throw 'exit t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4359 (when (not (aref arr 2)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4360 (when (and (stringp idlwave-libinfo-file) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4361 (file-regular-p idlwave-libinfo-file)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4362 (condition-case nil |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4363 (progn |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4364 (message "Loading library catalog in idle time...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4365 (load-file idlwave-libinfo-file) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4366 (message "Loading library catalog in idle time...done") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4367 (aset arr 2 t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4368 (throw 'exit t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4369 (error (throw 'exit nil))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4370 (when (not (aref arr 3)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4371 (when idlwave-library-routines |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4372 (message "Normalizing idlwave-library-routines in idle time...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4373 (setq idlwave-library-routines (idlwave-sintern-rinfo-list |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4374 idlwave-library-routines 'sys)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4375 (message "Normalizing idlwave-library-routines in idle time...done")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4376 (aset arr 3 t) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4377 (throw 'exit t)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4378 (when (not (aref arr 4)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4379 (message "Finishing initialization in idle time...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4380 (idlwave-routines) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4381 (message "Finishing initialization in idle time...done") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4382 (throw 'exit nil))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4383 (progn |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4384 ;; restart the timer |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4385 (if (sit-for 1) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4386 (idlwave-load-rinfo-next-step) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4387 (setq idlwave-load-rinfo-idle-timer |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4388 (run-with-idle-timer |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4389 idlwave-init-rinfo-when-idle-after |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4390 nil 'idlwave-load-rinfo-next-step))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4391 )))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4392 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4393 (defun idlwave-load-system-rinfo (&optional force) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4394 ;; Load and case-treat the system and lib info files. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4395 (when (or force (not (aref idlwave-load-rinfo-steps-done 0))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4396 (load "idlw-rinfo" 'noerror 'nomessage)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4397 (when (or force (not (aref idlwave-load-rinfo-steps-done 1))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4398 (message "Normalizing idlwave-system-routines...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4399 (setq idlwave-system-routines |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4400 (idlwave-sintern-rinfo-list idlwave-system-routines 'sys)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4401 (message "Normalizing idlwave-system-routines...done")) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4402 (setq idlwave-routines (copy-sequence idlwave-system-routines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4403 (setq idlwave-last-system-routine-info-cons-cell |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4404 (nthcdr (1- (length idlwave-routines)) idlwave-routines)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4405 (when (and (stringp idlwave-libinfo-file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4406 (file-regular-p idlwave-libinfo-file)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4407 (condition-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4408 (progn |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4409 (when (or force (not (aref idlwave-load-rinfo-steps-done 2))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4410 (load-file idlwave-libinfo-file)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4411 (setq idlwave-true-path-alist nil) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4412 (when (or force (not (aref idlwave-load-rinfo-steps-done 3))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4413 (message "Normalizing idlwave-library-routines...") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4414 (setq idlwave-library-routines (idlwave-sintern-rinfo-list |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4415 idlwave-library-routines 'sys)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4416 (message "Normalizing idlwave-library-routines...done"))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4417 (error nil))) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4418 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4419 (run-hooks 'idlwave-after-load-rinfo-hook)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4420 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4421 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4422 (defun idlwave-update-buffer-routine-info () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4423 (let (res) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4424 (cond |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4425 ((eq idlwave-scan-all-buffers-for-routine-info t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4426 ;; Scan all buffers, current buffer last |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4427 (message "Scanning all buffers...") |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4428 (setq res (idlwave-get-routine-info-from-buffers |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4429 (reverse (buffer-list))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4430 ((null idlwave-scan-all-buffers-for-routine-info) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4431 ;; Don't scan any buffers |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4432 (setq res nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4433 (t |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4434 ;; Just scan this buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4435 (if (eq major-mode 'idlwave-mode) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4436 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4437 (message "Scanning current buffer...") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4438 (setq res (idlwave-get-routine-info-from-buffers |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4439 (list (current-buffer)))))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4440 ;; Put the result into the correct variable |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4441 (setq idlwave-buffer-routines |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4442 (idlwave-sintern-rinfo-list res t)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4443 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4444 (defun idlwave-concatenate-rinfo-lists (&optional quiet run-hook) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4445 "Put the different sources for routine information together." |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4446 ;; The sequence here is important because earlier definitions shadow |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4447 ;; later ones. We assume that if things in the buffers are newer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4448 ;; then in the shell of the system, it is meant to be different. |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4449 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4450 (setcdr idlwave-last-system-routine-info-cons-cell |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4451 (append idlwave-buffer-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4452 idlwave-compiled-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4453 idlwave-library-routines)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4454 (setq idlwave-class-alist nil) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4455 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4456 ;; Give a message with information about the number of routines we have. |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4457 (unless quiet |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4458 (message |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4459 "Routine info updated: buffer(%d) compiled(%d) catalog(%d) system(%d)" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4460 (length idlwave-buffer-routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4461 (length idlwave-compiled-routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4462 (length idlwave-library-routines) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4463 (length idlwave-system-routines))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4464 (if run-hook |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4465 (run-hooks 'idlwave-update-rinfo-hook))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4466 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4467 (defun idlwave-class-alist () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4468 "Return the class alist - make it if necessary." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4469 (or idlwave-class-alist |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4470 (let (class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4471 (loop for x in idlwave-routines do |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4472 (when (and (setq class (nth 2 x)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4473 (not (assq class idlwave-class-alist))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4474 (push (list class) idlwave-class-alist))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4475 idlwave-class-alist))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4476 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4477 ;; Three functions for the hooks |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4478 (defun idlwave-save-buffer-update () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4479 (idlwave-update-current-buffer-info 'save-buffer)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4480 (defun idlwave-kill-buffer-update () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4481 (idlwave-update-current-buffer-info 'kill-buffer)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4482 (defun idlwave-new-buffer-update () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4483 (idlwave-update-current-buffer-info 'find-file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4484 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4485 (defun idlwave-update-current-buffer-info (why) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4486 "Undate idlwave-routines for current buffer. Can run from after-save-hook." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4487 (when (and (eq major-mode 'idlwave-mode) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4488 (or (eq t idlwave-auto-routine-info-updates) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4489 (memq why idlwave-auto-routine-info-updates)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4490 idlwave-scan-all-buffers-for-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4491 idlwave-routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4492 (condition-case nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4493 (let (routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4494 (idlwave-replace-buffer-routine-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4495 (buffer-file-name) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4496 (if (eq why 'kill-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4497 nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4498 (setq routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4499 (idlwave-sintern-rinfo-list |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4500 (idlwave-get-routine-info-from-buffers |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4501 (list (current-buffer))) 'set)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4502 (idlwave-concatenate-rinfo-lists 'quiet) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4503 routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4504 (error nil)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4505 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4506 (defun idlwave-replace-buffer-routine-info (file new) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4507 "Cut the part from FILE out of `idlwave-buffer-routines' and add NEW." |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4508 (let ((list idlwave-buffer-routines) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4509 found) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4510 (while list |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4511 ;; The following test uses eq to make sure it works correctly |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4512 ;; when two buffers visit the same file. Then the file names |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4513 ;; will be equal, but not eq. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4514 (if (eq (cdr (nth 3 (car list))) file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4515 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4516 (setcar list nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4517 (setq found t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4518 (if found |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4519 ;; End of that section reached. Jump. |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4520 (setq list nil))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4521 (setq list (cdr list))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4522 (setq idlwave-buffer-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4523 (append new (delq nil idlwave-buffer-routines))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4524 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4525 ;;----- Scanning buffers ------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4526 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4527 (defun idlwave-get-routine-info-from-buffers (buffers) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4528 "Call `idlwave-get-buffer-routine-info' on idlwave-mode buffers in BUFFERS." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4529 (let (buf routine-lists res) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4530 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4531 (while (setq buf (pop buffers)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4532 (set-buffer buf) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4533 (if (and (eq major-mode 'idlwave-mode) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4534 buffer-file-name) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4535 ;; yes, this buffer has the right mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4536 (progn (setq res (condition-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4537 (idlwave-get-buffer-routine-info) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4538 (error nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4539 (push res routine-lists))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4540 ;; Concatenate the individual lists and return the result |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4541 (apply 'nconc routine-lists))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4542 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4543 (defun idlwave-get-buffer-routine-info () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4544 "Scan the current buffer for routine info. Return (PRO-LIST FUNC-LIST)." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4545 (let* ((case-fold-search t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4546 routine-list string entry) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4547 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4548 (save-restriction |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4549 (widen) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4550 (goto-char (point-min)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4551 (while (re-search-forward |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4552 "^[ \t]*\\(pro\\|function\\)[ \t]" nil t) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
4553 (setq string (buffer-substring-no-properties |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4554 (match-beginning 0) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4555 (progn |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4556 (idlwave-end-of-statement) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4557 (point)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4558 (setq entry (idlwave-parse-definition string)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4559 (push entry routine-list)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4560 routine-list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4561 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4562 (defvar idlwave-scanning-lib-dir) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4563 (defun idlwave-parse-definition (string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4564 "Parse a module definition." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4565 (let ((case-fold-search t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4566 start name args type keywords class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4567 ;; Remove comments |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4568 (while (string-match ";.*" string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4569 (setq string (replace-match "" t t string))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4570 ;; Remove the continuation line stuff |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4571 (while (string-match "\\([^a-zA-Z0-9$_]\\)\\$[ \t]*\n" string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4572 (setq string (replace-match "\\1 " t nil string))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4573 (while (string-match "\n" string) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4574 (setq string (replace-match " " t nil string))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4575 ;; Match the name and type. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4576 (when (string-match |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4577 "\\<\\(pro\\|function\\)\\>\\s-+\\(\\([a-zA-Z0-9$_]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)" string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4578 (setq start (match-end 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4579 (setq type (downcase (match-string 1 string))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4580 (if (match-beginning 3) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4581 (setq class (match-string 3 string))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4582 (setq name (match-string 4 string))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4583 ;; Match normal args and keyword args |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4584 (while (string-match |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4585 ",\\s-*\\([a-zA-Z][a-zA-Z0-9$_]*\\|\\(_ref\\)?_extra\\)\\s-*\\(=\\)?" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4586 string start) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4587 (setq start (match-end 0)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4588 (if (match-beginning 3) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4589 (push (match-string 1 string) keywords) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4590 (push (match-string 1 string) args))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4591 ;; Normalize and sort. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4592 (setq args (nreverse args)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4593 (setq keywords (sort keywords (lambda (a b) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4594 (string< (downcase a) (downcase b))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4595 ;; Make and return the entry |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4596 ;; We don't know which argument are optional, so this information |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4597 ;; will not be contained in the calling sequence. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4598 (list name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4599 (if (equal type "pro") 'pro 'fun) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4600 class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4601 (cond ((not (boundp 'idlwave-scanning-lib)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4602 (cons 'buffer (buffer-file-name))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4603 ; ((string= (downcase |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4604 ; (file-name-sans-extension |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4605 ; (file-name-nondirectory (buffer-file-name)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4606 ; (downcase name)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4607 ; (list 'lib)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4608 ; (t (cons 'lib (file-name-nondirectory (buffer-file-name)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4609 (t (cons 'lib (concat idlwave-scanning-lib-dir |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4610 (file-name-nondirectory (buffer-file-name)))))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4611 (concat |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4612 (if (string= type "function") "Result = " "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4613 (if class "Obj ->[%s::]" "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4614 "%s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4615 (if args |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4616 (concat |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4617 (if (string= type "function") "(" ", ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4618 (mapconcat 'identity args ", ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4619 (if (string= type "function") ")" "")))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4620 (if keywords |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4621 (mapcar 'list keywords) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4622 nil)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4623 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4624 ;;----- Scanning the library ------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4625 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4626 (defvar idlwave-sys-dir nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4627 "Internal variable.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4628 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4629 (defun idlwave-sys-dir () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4630 "Return the syslib directory, or a dummy that never matches." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4631 (or idlwave-sys-dir |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4632 "@@@@@@@@")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4633 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4634 (defvar idlwave-shell-path-query) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4635 (defun idlwave-create-libinfo-file (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4636 "Scan all files on selected dirs of IDL search path for routine information. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4637 A widget checklist will allow you to choose the directories. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4638 Write the result as a file `idlwave-libinfo-file'. When this file exists, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4639 will be automatically loaded to give routine information about library |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4640 routines. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4641 With ARG, just rescan the same directories as last time - so no widget |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4642 will pop up." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4643 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4644 ;; Make sure the file is loaded if it exists. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4645 (if (and (stringp idlwave-libinfo-file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4646 (file-regular-p idlwave-libinfo-file)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4647 (condition-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4648 (load-file idlwave-libinfo-file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4649 (error nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4650 ;; Make sure the file name makes sense |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4651 (unless (and (stringp idlwave-libinfo-file) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4652 (> (length idlwave-libinfo-file) 0) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4653 (file-accessible-directory-p |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4654 (file-name-directory idlwave-libinfo-file)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4655 (not (string= "" (file-name-nondirectory |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4656 idlwave-libinfo-file)))) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
4657 (error "`idlwave-libinfo-file' does not point to file in accessible directory")) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4658 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4659 (cond |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4660 ((and arg idlwave-path-alist |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4661 (consp (car idlwave-path-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4662 idlwave-sys-dir) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4663 ;; Rescan the known directories |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4664 (idlwave-scan-lib-files |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4665 idlwave-sys-dir |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4666 idlwave-path-alist)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4667 (idlwave-library-path |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4668 ;; Get the directories from that variable |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4669 (idlwave-display-libinfo-widget |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4670 idlwave-system-directory |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4671 (idlwave-expand-path idlwave-library-path) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4672 (delq nil (mapcar (lambda (x) (if (consp x) (if (cdr x) (car x) nil) x)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4673 idlwave-path-alist)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4674 (t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4675 ;; Ask the shell for the path and run the widget |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4676 (message "Asking the shell for IDL path...") |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4677 (require 'idlw-shell) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4678 (idlwave-shell-send-command idlwave-shell-path-query |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4679 '(idlwave-libinfo-command-hook nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4680 'hide)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4681 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4682 (defun idlwave-libinfo-command-hook (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4683 ;; Command hook used by `idlwave-create-libinfo-file'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4684 (if arg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4685 ;; Scan immediately |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4686 (idlwave-scan-lib-files |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4687 idlwave-sys-dir |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4688 idlwave-path-alist) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4689 ;; Display the widget |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4690 (let* ((rpl (idlwave-shell-path-filter)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4691 (sysdir (car rpl)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4692 (dirs (cdr rpl))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4693 (idlwave-display-libinfo-widget |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4694 sysdir dirs |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4695 (delq nil (mapcar (lambda (x) (if (cdr x) (car x) nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4696 idlwave-path-alist)))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4697 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4698 (defconst idlwave-libinfo-widget-help-string |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4699 "This is the front-end to the creation of IDLWAVE library catalog. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4700 Please select below the directories on IDL's search path from which you |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4701 would like to extract routine information, which will be stored in the file |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4702 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4703 %s |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4704 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4705 If this is not the correct file, first set variable `idlwave-libinfo-file'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4706 Then call this command again. |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4707 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4708 For writing code, you need to include the directories which contain the |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4709 routines you use. If IDLWAVE should be able to analyse routine shadowing |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4710 it is best to scan all directories. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4711 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4712 After selecting the directories, choose [Scan & Save] to scan the library |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4713 directories and save the routine info. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4714 \n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4715 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4716 (defvar idlwave-widget) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4717 (defvar widget-keymap) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4718 (defun idlwave-display-libinfo-widget (sysdir dirs selected-dirs) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4719 "Create the widget to select IDL search path directories for scanning." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4720 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4721 (require 'widget) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4722 (require 'wid-edit) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4723 (unless dirs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4724 (error "Don't know IDL's search path")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4725 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4726 ;; Allow only those directories to be selected which are in the path. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4727 (setq selected-dirs (delq nil (mapcar (lambda (x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4728 (if (member x dirs) x nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4729 selected-dirs))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4730 (kill-buffer (get-buffer-create "*IDLWAVE Widget*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4731 (switch-to-buffer (get-buffer-create "*IDLWAVE Widget*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4732 (kill-all-local-variables) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4733 (make-local-variable 'idlwave-widget) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4734 (widget-insert (format idlwave-libinfo-widget-help-string |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4735 idlwave-libinfo-file)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4736 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4737 (widget-create 'push-button |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4738 :notify 'idlwave-widget-scan-lib-files |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4739 "Scan & Save") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4740 (widget-insert " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4741 (widget-create 'push-button |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4742 :notify (lambda (&rest ignore) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4743 (kill-buffer (current-buffer))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4744 "Quit") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4745 (widget-insert " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4746 (widget-create 'push-button |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4747 :notify 'idlwave-delete-libinfo-file |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4748 "Delete File") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4749 (widget-insert " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4750 (widget-create 'push-button |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4751 :notify '(lambda (&rest ignore) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4752 (idlwave-display-libinfo-widget |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4753 (widget-get idlwave-widget :sysdir) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4754 (widget-get idlwave-widget :path-dirs) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4755 (widget-get idlwave-widget :path-dirs))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4756 "Select All") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4757 (widget-insert " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4758 (widget-create 'push-button |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4759 :notify '(lambda (&rest ignore) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4760 (idlwave-display-libinfo-widget |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4761 (widget-get idlwave-widget :sysdir) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4762 (widget-get idlwave-widget :path-dirs) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4763 nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4764 "Deselect All") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4765 (widget-insert "\n\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4766 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4767 (widget-insert "Select Directories\n") |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4768 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4769 (setq idlwave-widget |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4770 (apply 'widget-create |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4771 'checklist |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4772 :value selected-dirs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4773 :greedy t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4774 :tag "List of directories" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4775 (mapcar (lambda (x) (list 'item x)) dirs))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4776 (widget-put idlwave-widget :path-dirs dirs) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4777 (widget-put idlwave-widget :sysdir sysdir) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4778 (widget-insert "\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4779 (use-local-map widget-keymap) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4780 (widget-setup) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4781 (goto-char (point-min)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4782 (delete-other-windows)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4783 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4784 (defun idlwave-delete-libinfo-file (&rest ignore) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4785 (if (yes-or-no-p |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4786 (format "Delete file %s " idlwave-libinfo-file)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4787 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4788 (delete-file idlwave-libinfo-file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4789 (message "%s has been deleted" idlwave-libinfo-file)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4790 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4791 (defun idlwave-widget-scan-lib-files (&rest ignore) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4792 ;; Call `idlwave-scan-lib-files' with data taken from the widget. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4793 (let* ((widget idlwave-widget) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4794 (selected-dirs (widget-value widget)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4795 (sysdir (widget-get widget :sysdir)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4796 (path-dirs (widget-get widget :path-dirs)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4797 (path-dir-alist |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4798 (mapcar (lambda (x) (cons x (if (member x selected-dirs) t nil))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4799 path-dirs))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4800 (idlwave-scan-lib-files sysdir path-dir-alist))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4801 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4802 (defvar font-lock-mode) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4803 (defun idlwave-scan-lib-files (sysdir path-alist) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4804 ;; Scan the files in PATH-ALIST and store the info in a file |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4805 (let* ((idlwave-scanning-lib t) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4806 (idlwave-scanning-lib-dir "") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4807 (dircnt (1+ (length path-alist))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4808 (idlwave-completion-case nil) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4809 dirs-alist dir files file) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4810 (setq idlwave-library-routines nil) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4811 (setq idlwave-path-alist path-alist) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4812 (setq idlwave-true-path-alist nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4813 (setq idlwave-sys-dir sysdir) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4814 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4815 (set-buffer (get-buffer-create "*idlwave-scan.pro*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4816 (idlwave-mode) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4817 (setq dirs-alist (reverse path-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4818 (while (setq dir (pop dirs-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4819 (decf dircnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4820 (when (cdr dir) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4821 ;; Has the flag of scanned directories |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4822 (setq dir (car dir)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4823 (setq idlwave-scanning-lib-dir (format "{%d}/" dircnt)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4824 (when (file-directory-p dir) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4825 (setq files (directory-files dir 'full "\\.[pP][rR][oO]\\'")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4826 (while (setq file (pop files)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4827 (when (file-regular-p file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4828 (if (not (file-readable-p file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4829 (message "Skipping %s (no read permission)" file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4830 (message "Scanning %s..." file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4831 (erase-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4832 (insert-file-contents file 'visit) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4833 (setq idlwave-library-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4834 (append (idlwave-get-routine-info-from-buffers |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4835 (list (current-buffer))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4836 idlwave-library-routines))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4837 )))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4838 ;; Sorting is not necessary since we sort each time before a routine |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4839 ;; is used. So we don't do it here - the catalog file looks nicer |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4840 ;; when it is unsorted. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4841 ;;(message "Sorting...") |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4842 ;;(setq idlwave-library-routines |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4843 ;;(sort idlwave-library-routines 'idlwave-routine-entry-compare)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4844 ;;(message "Sorting...done") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4845 (message "Creating libinfo file...") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4846 (kill-buffer "*idlwave-scan.pro*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4847 (kill-buffer (get-buffer-create "*IDLWAVE Widget*")) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4848 (let ((font-lock-maximum-size 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4849 (auto-mode-alist nil)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4850 (find-file idlwave-libinfo-file)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4851 (if (and (boundp 'font-lock-mode) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4852 font-lock-mode) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4853 (font-lock-mode 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4854 (erase-buffer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4855 (insert ";; IDLWAVE libinfo file\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4856 (insert (format ";; Created %s\n\n" (current-time-string))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4857 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4858 ;; Define the variable which knows the value of "!DIR" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4859 (insert (format "\n(setq idlwave-sys-dir \"%s\")\n" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4860 idlwave-sys-dir)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4861 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4862 ;; Define the variable which contains a list of all scanned directories |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4863 (insert "\n(setq idlwave-path-alist\n '(") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4864 (mapcar (lambda (x) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4865 (insert (format "\n (\"%s\" . %s)" (car x) (cdr x)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4866 path-alist) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4867 (insert "))\n") |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4868 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4869 ;; Define the routine info list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4870 (insert "\n(setq idlwave-library-routines\n '(") |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4871 (let ((standard-output (current-buffer))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4872 (mapcar (lambda (x) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4873 (insert "\n ") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4874 (prin1 x) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4875 (goto-char (point-max))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4876 ; (insert (with-output-to-string (prin1 x)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
4877 idlwave-library-routines)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4878 (insert (format "))\n\n;;; %s ends here\n" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4879 (file-name-nondirectory idlwave-libinfo-file))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4880 (goto-char (point-min)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4881 ;; Save the buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4882 (save-buffer 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4883 (kill-buffer (current-buffer))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4884 (message "Creating libinfo file...done") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4885 (message "Info for %d routines saved in %s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4886 (length idlwave-library-routines) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4887 idlwave-libinfo-file) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4888 (sit-for 2) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4889 (idlwave-update-routine-info t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4890 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4891 (defun idlwave-expand-path (path &optional default-dir) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4892 ;; Expand parts of path starting with '+' recursively into directory list. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4893 ;; Relative recursive path elements are expanded relative to DEFAULT-DIR. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4894 (message "Expanding path...") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4895 (let (path1 dir recursive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4896 (while (setq dir (pop path)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4897 (if (setq recursive (string= (substring dir 0 1) "+")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4898 (setq dir (substring dir 1))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4899 (if (and recursive |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4900 (not (file-name-absolute-p dir))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4901 (setq dir (expand-file-name dir default-dir))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4902 (if recursive |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4903 ;; Expand recursively |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4904 (setq path1 (append (idlwave-recursive-directory-list dir) path1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4905 ;; Keep unchanged |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4906 (push dir path1))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4907 (message "Expanding path...done") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4908 (nreverse path1))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4909 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4910 (defun idlwave-recursive-directory-list (dir) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4911 ;; Return a list of all directories below DIR, including DIR itself |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4912 (let ((path (list dir)) path1 file files) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4913 (while (setq dir (pop path)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4914 (when (file-directory-p dir) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4915 (setq files (nreverse (directory-files dir t "[^.]"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4916 (while (setq file (pop files)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4917 (if (file-directory-p file) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4918 (push (file-name-as-directory file) path))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4919 (push dir path1))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4920 path1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4921 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4922 ;;----- Asking the shell ------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4923 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4924 ;; First, here is the idl program which can be used to query IDL for |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4925 ;; defined routines. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4926 (defconst idlwave-routine-info.pro |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4927 " |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4928 ;; START OF IDLWAVE SUPPORT ROUTINES |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4929 pro idlwave_print_info_entry,name,func=func,separator=sep |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4930 ;; See if it's an object method |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4931 if name eq '' then return |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4932 func = keyword_set(func) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4933 methsep = strpos(name,'::') |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4934 meth = methsep ne -1 |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4935 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4936 ;; Get routine info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4937 pars = routine_info(name,/parameters,functions=func) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4938 source = routine_info(name,/source,functions=func) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4939 nargs = pars.num_args |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4940 nkw = pars.num_kw_args |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4941 if nargs gt 0 then args = pars.args |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4942 if nkw gt 0 then kwargs = pars.kw_args |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4943 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4944 ;; Trim the class, and make the name |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4945 if meth then begin |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4946 class = strmid(name,0,methsep) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4947 name = strmid(name,methsep+2,strlen(name)-1) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4948 if nargs gt 0 then begin |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4949 ;; remove the self argument |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4950 wh = where(args ne 'SELF',nargs) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4951 if nargs gt 0 then args = args(wh) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4952 endif |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4953 endif else begin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4954 ;; No class, just a normal routine. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4955 class = \"\" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4956 endelse |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4957 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4958 ;; Calling sequence |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4959 cs = \"\" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4960 if func then cs = 'Result = ' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4961 if meth then cs = cs + 'Obj -> [' + '%s' + '::]' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4962 cs = cs + '%s' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4963 if func then cs = cs + '(' else if nargs gt 0 then cs = cs + ', ' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4964 if nargs gt 0 then begin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4965 for j=0,nargs-1 do begin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4966 cs = cs + args(j) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4967 if j lt nargs-1 then cs = cs + ', ' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4968 endfor |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4969 end |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4970 if func then cs = cs + ')' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4971 ;; Keyword arguments |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4972 kwstring = '' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4973 if nkw gt 0 then begin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4974 for j=0,nkw-1 do begin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4975 kwstring = kwstring + ' ' + kwargs(j) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4976 endfor |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4977 endif |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4978 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4979 ret=(['IDLWAVE-PRO','IDLWAVE-FUN'])(func) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
4980 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4981 print,ret + ': ' + name + sep + class + sep + source(0).path $ |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4982 + sep + cs + sep + kwstring |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4983 end |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4984 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4985 pro idlwave_routine_info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4986 sep = '<@>' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4987 print,'>>>BEGIN OF IDLWAVE ROUTINE INFO (\"' + sep + '\" IS THE SEPARATOR)' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4988 all = routine_info() |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4989 for i=0,n_elements(all)-1 do $ |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4990 idlwave_print_info_entry,all(i),separator=sep |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4991 all = routine_info(/functions) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4992 for i=0,n_elements(all)-1 do $ |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
4993 idlwave_print_info_entry,all(i),/func,separator=sep |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4994 print,'>>>END OF IDLWAVE ROUTINE INFO' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
4995 end |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4996 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4997 pro idlwave_get_sysvars |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4998 forward_function strjoin,strtrim,strsplit |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
4999 catch,error_status |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5000 if error_status ne 0 then begin |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5001 print, 'Cannot get info about system variables' |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5002 endif else begin |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5003 help,/brief,output=s,/system_variables ; ? unsafe use of OUTPUT= |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5004 s = strtrim(strjoin(s,' ',/single),2) ; make one line |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5005 v = strsplit(s,' +',/regex,/extract) ; get variables |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5006 for i=0,n_elements(v)-1 do begin |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5007 t = [''] ; get tag list |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5008 a=execute('if n_tags('+v[i]+') gt 0 then t=tag_names('+v[i]+')') |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5009 print, 'IDLWAVE-SYSVAR: '+v[i]+' '+strjoin(t,' ',/single) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5010 endfor |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5011 endelse |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5012 end |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5013 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5014 pro idlwave_get_class_tags, class |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5015 res = execute('tags=tag_names({'+class+'})') |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5016 if res then print,'IDLWAVE-CLASS-TAGS: '+class+' '+strjoin(tags,' ',/single) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5017 end |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5018 ;; END OF IDLWAVE SUPPORT ROUTINES |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5019 " |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5020 "The idl programs to get info from the shell.") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5021 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5022 (defvar idlwave-idlwave_routine_info-compiled nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5023 "Remembers if the routine info procedure is already compiled.") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5024 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5025 (defvar idlwave-shell-temp-pro-file) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5026 (defvar idlwave-shell-temp-rinfo-save-file) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5027 (defun idlwave-shell-update-routine-info (&optional quiet run-hooks preempt) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5028 "Query the shell for routine_info of compiled modules and update the lists." |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5029 ;; Save and compile the procedure. The compiled procedure is then |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5030 ;; saved into an IDL SAVE file, to allow for fast RESTORE. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5031 ;; We need to RESTORE the procedure each time we use it, since |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5032 ;; the user may have killed or redefined it. In particular, |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5033 ;; .RESET_SESSION will kill all user procedures. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5034 (unless (and idlwave-idlwave_routine_info-compiled |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5035 (file-readable-p (idlwave-shell-temp-file 'rinfo))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5036 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5037 (set-buffer (idlwave-find-file-noselect |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5038 (idlwave-shell-temp-file 'pro))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5039 (erase-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5040 (insert idlwave-routine-info.pro) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5041 (save-buffer 0)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5042 (idlwave-shell-send-command |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5043 (concat ".run " idlwave-shell-temp-pro-file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5044 nil 'hide) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5045 ; (message "SENDING SAVE") ; ???????????????????????? |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5046 (idlwave-shell-send-command |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5047 (format "save,'idlwave_routine_info','idlwave_print_info_entry',FILE='%s',/ROUTINES" |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5048 (idlwave-shell-temp-file 'rinfo)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5049 nil 'hide)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5050 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5051 ;; Restore and execute the procedure, analyze the output |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5052 ; (message "SENDING RESTORE & EXECUTE") ; ???????????????????????? |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5053 (idlwave-shell-send-command |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5054 (format "RESTORE, '%s' & idlwave_routine_info" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5055 idlwave-shell-temp-rinfo-save-file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5056 `(progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5057 (idlwave-shell-routine-info-filter) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5058 (idlwave-concatenate-rinfo-lists ,quiet ,run-hooks)) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5059 'hide preempt)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5060 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5061 ;; --------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5062 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5063 ;; Completion and displaying routine calling sequences |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5064 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5065 (defvar idlwave-completion-help-info nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5066 (defvar idlwave-current-obj_new-class nil) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5067 (defvar idlwave-complete-special nil) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5068 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5069 (defun idlwave-complete (&optional arg module class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5070 "Complete a function, procedure or keyword name at point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5071 This function is smart and figures out what can be legally completed |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5072 at this point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5073 - At the beginning of a statement it completes procedure names. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5074 - In the middle of a statement it completes function names. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5075 - after a `(' or `,' in the argument list of a function or procedure, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5076 it completes a keyword of the relevant function or procedure. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5077 - In the first arg of `OBJ_NEW', it completes a class name. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5078 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5079 When several completions are possible, a list will be displayed in the |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5080 *Completions* buffer. If this list is too long to fit into the |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5081 window, scrolling can be achieved by repeatedly pressing |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5082 \\[idlwave-complete]. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5083 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5084 The function also knows about object methods. When it needs a class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5085 name, the action depends upon `idlwave-query-class', which see. You |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5086 can force IDLWAVE to ask you for a class name with a |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5087 \\[universal-argument] prefix argument to this command. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5088 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5089 See also the variables `idlwave-keyword-completion-adds-equal' and |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5090 `idlwave-function-completion-adds-paren'. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5091 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5092 The optional ARG can be used to specify the completion type in order |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5093 to override IDLWAVE's idea of what should be completed at point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5094 Possible values are: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5095 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5096 0 <=> query for the completion type |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5097 1 <=> 'procedure |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5098 2 <=> 'procedure-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5099 3 <=> 'function |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5100 4 <=> 'function-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5101 5 <=> 'procedure-method |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5102 6 <=> 'procedure-method-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5103 7 <=> 'function-method |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5104 8 <=> 'function-method-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5105 9 <=> 'class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5106 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5107 As a special case, the universal argument C-u forces completion of |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5108 function names in places where the default would be a keyword. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5109 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5110 For Lisp programmers only: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5111 When we force a keyword, optional argument MODULE can contain the module name. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5112 When we force a method or a method keyword, CLASS can specify the class." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5113 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5114 (idlwave-routines) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5115 (let* ((where-list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5116 (if (and arg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5117 (or (integerp arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5118 (symbolp arg))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5119 (idlwave-make-force-complete-where-list arg module class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5120 (idlwave-where))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5121 (what (nth 2 where-list)) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
5122 (idlwave-force-class-query (equal arg '(4)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5123 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5124 (if (and module (string-match "::" module)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5125 (setq class (substring module 0 (match-beginning 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5126 module (substring module (match-end 0)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5127 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5128 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5129 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5130 ((and (null arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5131 (eq (car-safe last-command) 'idlwave-display-completion-list) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
5132 (get-buffer-window "*Completions*")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5133 (setq this-command last-command) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5134 (idlwave-scroll-completions)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5135 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5136 ;; Check for any special completion functions |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5137 ((and idlwave-complete-special |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5138 (idlwave-call-special idlwave-complete-special))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5139 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5140 ((and (idlwave-in-quote) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5141 (not (eq what 'class))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5142 (idlwave-complete-filename)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5143 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5144 ((null what) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5145 (error "Nothing to complete here")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5146 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5147 ((eq what 'class) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5148 (setq idlwave-completion-help-info '(class)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5149 (idlwave-complete-class)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5150 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5151 ((eq what 'procedure) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5152 ;; Complete a procedure name |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5153 (let* ((cw-list (nth 3 where-list)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5154 (class-selector (idlwave-determine-class cw-list 'pro)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5155 (super-classes (unless (idlwave-explicit-class-listed cw-list) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5156 (idlwave-all-class-inherits class-selector))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5157 (isa (concat "procedure" (if class-selector "-method" ""))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5158 (type-selector 'pro)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5159 (setq idlwave-completion-help-info |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5160 (list 'routine nil type-selector class-selector nil super-classes)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5161 (idlwave-complete-in-buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5162 'procedure (if class-selector 'method 'routine) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5163 (idlwave-routines) 'idlwave-selector |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5164 (format "Select a %s name%s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5165 isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5166 (if class-selector |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5167 (format " (class is %s)" |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5168 (if (eq class-selector t) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5169 "unknown" class-selector)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5170 "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5171 isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5172 'idlwave-attach-method-classes))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5173 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5174 ((eq what 'function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5175 ;; Complete a function name |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5176 (let* ((cw-list (nth 3 where-list)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5177 (class-selector (idlwave-determine-class cw-list 'fun)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5178 (super-classes (unless (idlwave-explicit-class-listed cw-list) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5179 (idlwave-all-class-inherits class-selector))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5180 (isa (concat "function" (if class-selector "-method" ""))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5181 (type-selector 'fun)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5182 (setq idlwave-completion-help-info |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5183 (list 'routine nil type-selector class-selector nil super-classes)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5184 (idlwave-complete-in-buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5185 'function (if class-selector 'method 'routine) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5186 (idlwave-routines) 'idlwave-selector |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5187 (format "Select a %s name%s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5188 isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5189 (if class-selector |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5190 (format " (class is %s)" |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5191 (if (eq class-selector t) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5192 "unknown" class-selector)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5193 "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5194 isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5195 'idlwave-attach-method-classes))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5196 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5197 ((and (memq what '(procedure-keyword function-keyword)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5198 (equal arg '(4))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5199 (idlwave-complete 3)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5200 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5201 ((eq what 'procedure-keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5202 ;; Complete a procedure keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5203 (let* ((where (nth 3 where-list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5204 (name (car where)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5205 (method-selector name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5206 (type-selector 'pro) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5207 (class (idlwave-determine-class where 'pro)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5208 (class-selector class) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5209 (super-classes (idlwave-all-class-inherits class-selector)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5210 (isa (format "procedure%s-keyword" (if class "-method" ""))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5211 (entry (idlwave-best-rinfo-assq |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5212 name 'pro class (idlwave-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5213 (list (nth 5 entry))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5214 (unless (or entry (eq class t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5215 (error "Nothing known about procedure %s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5216 (idlwave-make-full-name class name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5217 (setq list (idlwave-fix-keywords name 'pro class list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5218 (unless list (error (format "No keywords available for procedure %s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5219 (idlwave-make-full-name class name)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5220 (setq idlwave-completion-help-info |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5221 (list 'keyword name type-selector class-selector nil super-classes)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5222 (idlwave-complete-in-buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5223 'keyword 'keyword list nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5224 (format "Select keyword for procedure %s%s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5225 (idlwave-make-full-name class name) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5226 (if (or (member '("_EXTRA") list) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5227 (member '("_REF_EXTRA") list)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5228 " (note _EXTRA)" "")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5229 isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5230 'idlwave-attach-keyword-classes))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5231 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5232 ((eq what 'function-keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5233 ;; Complete a function keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5234 (let* ((where (nth 3 where-list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5235 (name (car where)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5236 (method-selector name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5237 (type-selector 'fun) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5238 (class (idlwave-determine-class where 'fun)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5239 (class-selector class) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5240 (super-classes (idlwave-all-class-inherits class-selector)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5241 (isa (format "function%s-keyword" (if class "-method" ""))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5242 (entry (idlwave-best-rinfo-assq |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5243 name 'fun class (idlwave-routines))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5244 (list (nth 5 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5245 msg-name) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5246 (unless (or entry (eq class t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5247 (error "Nothing known about function %s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5248 (idlwave-make-full-name class name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5249 (setq list (idlwave-fix-keywords name 'fun class list)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5250 ;; OBJ_NEW: Messages mention the proper Init method |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5251 (setq msg-name (if (and (null class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5252 (string= (upcase name) "OBJ_NEW")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5253 (concat idlwave-current-obj_new-class |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5254 "::Init (via OBJ_NEW)") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5255 (idlwave-make-full-name class name))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5256 (unless list (error (format "No keywords available for function %s" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5257 msg-name))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5258 (setq idlwave-completion-help-info |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5259 (list 'keyword name type-selector class-selector nil super-classes)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5260 (idlwave-complete-in-buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5261 'keyword 'keyword list nil |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5262 (format "Select keyword for function %s%s" msg-name |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5263 (if (or (member '("_EXTRA") list) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5264 (member '("_REF_EXTRA") list)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5265 " (note _EXTRA)" "")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5266 isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5267 'idlwave-attach-keyword-classes))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5268 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5269 (t (error "This should not happen (idlwave-complete)"))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5270 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5271 (defvar idlwave-complete-special nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5272 "List of special completion functions. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5273 These functions are called for each completion. Each function must check |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5274 if its own special completion context is present. If yes, it should |
50857
48163c1bd10e
(idlwave-complete-special): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
49790
diff
changeset
|
5275 use `idlwave-complete-in-buffer' to do some completion and return t. |
48163c1bd10e
(idlwave-complete-special): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
49790
diff
changeset
|
5276 If such a function returns t, *no further* attempts to complete |
48163c1bd10e
(idlwave-complete-special): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
49790
diff
changeset
|
5277 other contexts will be done. If the function returns nil, other completions |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5278 will be tried.") |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5279 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5280 (defun idlwave-call-special (functions &rest args) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5281 (let ((funcs functions) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5282 fun ret) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5283 (catch 'exit |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5284 (while (setq fun (pop funcs)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5285 (if (setq ret (apply fun args)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5286 (throw 'exit ret))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5287 nil))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5288 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5289 (defun idlwave-make-force-complete-where-list (what &optional module class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5290 ;; Return an artificial WHERE specification to force the completion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5291 ;; routine to complete a specific item independent of context. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5292 ;; WHAT is the prefix arg of `idlwave-complete', see there for details. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5293 ;; MODULE and CLASS can be used to specify the routine name and class. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5294 ;; The class name will also be found in MODULE if that is like "class::mod". |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5295 (let* ((what-list '(("procedure") ("procedure-keyword") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5296 ("function") ("function-keyword") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5297 ("procedure-method") ("procedure-method-keyword") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5298 ("function-method") ("function-method-keyword") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5299 ("class"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5300 (module (idlwave-sintern-routine-or-method module class)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5301 (class (idlwave-sintern-class class)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5302 (what (cond |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5303 ((equal what 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5304 (setq what |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5305 (intern (completing-read |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5306 "Complete what? " what-list nil t)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5307 ((integerp what) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5308 (setq what (intern (car (nth (1- what) what-list))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5309 ((and what |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5310 (symbolp what) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5311 (assoc (symbol-name what) what-list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5312 what) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5313 (t (error "Illegal WHAT")))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5314 (nil-list '(nil nil nil nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5315 (class-list (list nil nil (or class t) nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5316 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5317 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5318 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5319 ((eq what 'procedure) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5320 (list nil-list nil-list 'procedure nil-list nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5321 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5322 ((eq what 'procedure-keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5323 (let* ((class-selector nil) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5324 (super-classes nil) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5325 (type-selector 'pro) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5326 (pro (or module |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5327 (idlwave-completing-read |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5328 "Procedure: " (idlwave-routines) 'idlwave-selector)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5329 (setq pro (idlwave-sintern-routine pro)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5330 (list nil-list nil-list 'procedure-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5331 (list pro nil nil nil) nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5332 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5333 ((eq what 'function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5334 (list nil-list nil-list 'function nil-list nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5335 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5336 ((eq what 'function-keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5337 (let* ((class-selector nil) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5338 (super-classes nil) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5339 (type-selector 'fun) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5340 (func (or module |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5341 (idlwave-completing-read |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5342 "Function: " (idlwave-routines) 'idlwave-selector)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5343 (setq func (idlwave-sintern-routine func)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5344 (list nil-list nil-list 'function-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5345 (list func nil nil nil) nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5346 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5347 ((eq what 'procedure-method) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5348 (list nil-list nil-list 'procedure class-list nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5349 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5350 ((eq what 'procedure-method-keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5351 (let* ((class (idlwave-determine-class class-list 'pro)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5352 (class-selector class) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5353 (super-classes (idlwave-all-class-inherits class-selector)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5354 (type-selector 'pro) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5355 (pro (or module |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5356 (idlwave-completing-read |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5357 (format "Procedure in %s class: " class-selector) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5358 (idlwave-routines) 'idlwave-selector)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5359 (setq pro (idlwave-sintern-method pro)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5360 (list nil-list nil-list 'procedure-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5361 (list pro nil class nil) nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5362 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5363 ((eq what 'function-method) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5364 (list nil-list nil-list 'function class-list nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5365 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5366 ((eq what 'function-method-keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5367 (let* ((class (idlwave-determine-class class-list 'fun)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5368 (class-selector class) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5369 (super-classes (idlwave-all-class-inherits class-selector)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5370 (type-selector 'fun) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5371 (func (or module |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5372 (idlwave-completing-read |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5373 (format "Function in %s class: " class-selector) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5374 (idlwave-routines) 'idlwave-selector)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5375 (setq func (idlwave-sintern-method func)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5376 (list nil-list nil-list 'function-keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5377 (list func nil class nil) nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5378 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5379 ((eq what 'class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5380 (list nil-list nil-list 'class nil-list nil)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5381 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5382 (t (error "Illegal value for WHAT"))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5383 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5384 (defun idlwave-completing-read (&rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5385 ;; Completing read, case insensitive |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5386 (let ((old-value (default-value 'completion-ignore-case))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5387 (unwind-protect |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5388 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5389 (setq-default completion-ignore-case t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5390 (apply 'completing-read args)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5391 (setq-default completion-ignore-case old-value)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5392 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5393 (defvar idlwave-shell-default-directory) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5394 (defun idlwave-complete-filename () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5395 "Use the comint stuff to complete a file name." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5396 (require 'comint) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5397 (let* ((comint-file-name-chars "~/A-Za-z0-9+@:_.$#%={}\\-") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5398 (comint-completion-addsuffix nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5399 (default-directory |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5400 (if (and (boundp 'idlwave-shell-default-directory) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5401 (stringp idlwave-shell-default-directory) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5402 (file-directory-p idlwave-shell-default-directory)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5403 idlwave-shell-default-directory |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5404 default-directory))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5405 (comint-dynamic-complete-filename))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5406 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5407 (defun idlwave-make-full-name (class name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5408 ;; Make a fully qualified module name including the class name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5409 (concat (if class (format "%s::" class) "") name)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5410 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5411 (defun idlwave-rinfo-assoc (name type class list) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5412 "Like `idlwave-rinfo-assq', but sintern strings first." |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5413 (idlwave-rinfo-assq |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5414 (idlwave-sintern-routine-or-method name class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5415 type (idlwave-sintern-class class) list)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5416 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5417 (defun idlwave-rinfo-assq (name type class list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5418 ;; Works like assq, but also checks type and class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5419 (catch 'exit |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5420 (let (match) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5421 (while (setq match (assq name list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5422 (and (or (eq type t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5423 (eq (nth 1 match) type)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5424 (eq (nth 2 match) class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5425 (throw 'exit match)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5426 (setq list (cdr (memq match list))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5427 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5428 (defun idlwave-rinfo-assq-any-class (name type class list) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5429 (let* ((classes (cons class (idlwave-all-class-inherits class))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5430 class rtn) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5431 (while classes |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5432 (if (setq rtn (idlwave-rinfo-assq name type (pop classes) list)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5433 (setq classes nil))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5434 rtn)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5435 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5436 (defun idlwave-best-rinfo-assq (name type class list) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5437 "Like `idlwave-rinfo-assq', but get all twins and sort, then return first." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5438 (let ((twins (idlwave-routine-twins |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5439 (idlwave-rinfo-assq-any-class name type class list) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5440 list)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5441 syslibp) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5442 (when (> (length twins) 1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5443 (setq twins (sort twins 'idlwave-routine-entry-compare-twins)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5444 (if (and (eq 'system (car (nth 3 (car twins)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5445 (setq syslibp (idlwave-any-syslib (cdr twins))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5446 (not (equal 1 syslibp))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5447 ;; Its a syslib, so we need to remove the system entry |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5448 (setq twins (cdr twins)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5449 (car twins))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5450 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5451 (defun idlwave-best-rinfo-assoc (name type class list) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5452 "Like `idlwave-best-rinfo-assq', but sintern strings first." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5453 (idlwave-best-rinfo-assq |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5454 (idlwave-sintern-routine-or-method name class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5455 type (idlwave-sintern-class class) list)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5456 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5457 (defun idlwave-any-syslib (entries) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5458 "Does the entry list ENTRIES contain a syslib entry? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5459 If yes, return the index (>=1)." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5460 (let (file (cnt 0)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5461 (catch 'exit |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5462 (while entries |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5463 (incf cnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5464 (setq file (cdr (nth 3 (car entries)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5465 (if (and file |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5466 (idlwave-syslib-p |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5467 (idlwave-expand-lib-file-name file))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5468 (throw 'exit cnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5469 (setq entries (cdr entries)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5470 nil))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5471 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5472 (defun idlwave-all-assq (key list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5473 "Return a list of all associations of Key in LIST." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5474 (let (rtn elt) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5475 (while (setq elt (assq key list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5476 (push elt rtn) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5477 (setq list (cdr (memq elt list)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5478 (nreverse rtn))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5479 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5480 (defun idlwave-all-method-classes (method &optional type) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5481 "Return all classes which have a method METHOD. TYPE is 'fun or 'pro. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5482 When TYPE is not specified, both procedures and functions will be considered." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5483 (if (null method) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5484 (mapcar 'car (idlwave-class-alist)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5485 (let (rtn) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5486 (mapcar (lambda (x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5487 (and (nth 2 x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5488 (or (not type) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5489 (eq type (nth 1 x))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5490 (push (nth 2 x) rtn))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5491 (idlwave-all-assq method (idlwave-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5492 (idlwave-uniquify rtn)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5493 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5494 (defun idlwave-all-method-keyword-classes (method keyword &optional type) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5495 "Return all classes which have a method METHOD with keyword KEYWORD. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5496 TYPE is 'fun or 'pro. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5497 When TYPE is not specified, both procedures and functions will be considered." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5498 (if (or (null method) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5499 (null keyword)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5500 nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5501 (let (rtn) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5502 (mapcar (lambda (x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5503 (and (nth 2 x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5504 (or (not type) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5505 (eq type (nth 1 x))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5506 (assoc keyword (nth 5 x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5507 (push (nth 2 x) rtn))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5508 (idlwave-all-assq method (idlwave-routines))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5509 (idlwave-uniquify rtn)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5510 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5511 (defun idlwave-members-only (list club) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5512 "Return list of all elements in LIST which are also in CLUB." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5513 (let (rtn) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5514 (while list |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5515 (if (member (car list) club) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5516 (setq rtn (cons (car list) rtn))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5517 (setq list (cdr list))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5518 (nreverse rtn))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5519 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5520 (defun idlwave-nonmembers-only (list club) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5521 "Return list of all elements in LIST which are not in CLUB." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5522 (let (rtn) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5523 (while list |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5524 (if (member (car list) club) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5525 nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5526 (setq rtn (cons (car list) rtn))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5527 (setq list (cdr list))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5528 (nreverse rtn))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5529 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5530 (defun idlwave-explicit-class-listed (info) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5531 "Return whether or not the class is listed explicitly, ala a->b::c. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5532 INFO is as returned by idlwave-what-function or -procedure." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5533 (let ((apos (nth 3 info))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5534 (if apos |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5535 (save-excursion (goto-char apos) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5536 (looking-at "->[a-zA-Z][a-zA-Z0-9$_]*::"))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5537 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5538 (defvar idlwave-determine-class-special nil |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5539 "List of special functions for determining class. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5540 Must accept two arguments: `apos' and `info'") |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5541 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5542 (defun idlwave-determine-class (info type) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5543 ;; Determine the class of a routine call. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5544 ;; INFO is the `cw-list' structure as returned by idlwave-where. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5545 ;; The second element in this structure is the class. When nil, we |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5546 ;; return nil. When t, try to get the class from text properties at |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5547 ;; the arrow. When the object is "self", we use the class of the |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5548 ;; current routine. otherwise prompt the user for a class name. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5549 ;; Also stores the selected class as a text property at the arrow. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5550 ;; TYPE is 'fun or 'pro. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5551 (let* ((class (nth 2 info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5552 (apos (nth 3 info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5553 (nassoc (assoc (if (stringp (car info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5554 (upcase (car info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5555 (car info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5556 idlwave-query-class)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5557 (dassoc (assq (if (car info) 'keyword-default 'method-default) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5558 idlwave-query-class)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5559 (query (cond (nassoc (cdr nassoc)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5560 (dassoc (cdr dassoc)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5561 (t t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5562 (arrow (and apos (string= (buffer-substring apos (+ 2 apos)) "->"))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5563 (is-self |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5564 (and arrow |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5565 (save-excursion (goto-char apos) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5566 (forward-word -1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5567 (let ((case-fold-search t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5568 (looking-at "self\\>"))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5569 (force-query idlwave-force-class-query) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5570 store special-class class-alist) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5571 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5572 ((null class) nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5573 ((eq t class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5574 ;; There is an object which would like to know its class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5575 (if (and arrow (get-text-property apos 'idlwave-class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5576 idlwave-store-inquired-class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5577 (not force-query)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5578 (setq class (get-text-property apos 'idlwave-class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5579 class (idlwave-sintern-class class))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5580 (if (and (eq t class) is-self) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5581 (setq class (or (nth 2 (idlwave-current-routine)) class))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5582 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5583 ;; Before prompting, try any special class determination routines |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5584 (when (and (eq t class) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5585 idlwave-determine-class-special |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5586 (not force-query)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5587 (setq special-class |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5588 (idlwave-call-special idlwave-determine-class-special apos)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5589 (if special-class |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5590 (setq class (idlwave-sintern-class special-class) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5591 store idlwave-store-inquired-class))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5592 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5593 ;; Prompt for a class, if we need to |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5594 (when (and (eq class t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5595 (or force-query query)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5596 (setq class-alist |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5597 (mapcar 'list (idlwave-all-method-classes (car info) type))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5598 (setq class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5599 (idlwave-sintern-class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5600 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5601 ((and (= (length class-alist) 0) (not force-query)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5602 (error "No classes available with method %s" (car info))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5603 ((and (= (length class-alist) 1) (not force-query)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5604 (car (car class-alist))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5605 (t |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5606 (setq store idlwave-store-inquired-class) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5607 (idlwave-completing-read |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5608 (format "Class%s: " (if (stringp (car info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5609 (format " for %s method %s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5610 type (car info)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5611 "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5612 class-alist nil nil nil 'idlwave-class-history)))))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5613 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5614 ;; Store it, if requested |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5615 (when (and class (not (eq t class))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5616 ;; We have a real class here |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5617 (when (and store arrow) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5618 (condition-case () |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5619 (add-text-properties |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5620 apos (+ apos 2) |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5621 `(idlwave-class ,class face ,idlwave-class-arrow-face |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5622 rear-nonsticky t)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5623 (error nil))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5624 (setf (nth 2 info) class)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5625 ;; Return the class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5626 class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5627 ;; Default as fallback |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5628 (t class)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5629 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5630 (defvar type-selector) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5631 (defvar class-selector) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5632 (defvar method-selector) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5633 (defvar super-classes) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5634 (defun idlwave-selector (a) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5635 (and (eq (nth 1 a) type-selector) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5636 (or (and (nth 2 a) (eq class-selector t)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5637 (eq (nth 2 a) class-selector) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5638 (memq (nth 2 a) super-classes) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5639 ))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5640 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5641 (defun idlwave-where () |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5642 "Find out where we are. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5643 The return value is a list with the following stuff: |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5644 \(PRO-LIST FUNC-LIST COMPLETE-WHAT CW-LIST LAST-CHAR) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5645 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5646 PRO-LIST (PRO POINT CLASS ARROW) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5647 FUNC-LIST (FUNC POINT CLASS ARROW) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5648 COMPLETE-WHAT a symbol indicating what kind of completion makes sense here |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5649 CW-LIST (PRO-OR-FUNC POINT CLASS ARROW) Like PRO-LIST, for what can |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5650 be completed here. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5651 LAST-CHAR last relevant character before point (non-white non-comment, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5652 not part of current identifier or leading slash). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5653 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5654 In the lists, we have these meanings: |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5655 PRO: Procedure name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5656 FUNC: Function name |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5657 POINT: Where is this |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5658 CLASS: What class has the routine (nil=no, t=is method, but class unknown) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5659 ARROW: Location of the arrow" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5660 (idlwave-routines) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5661 (let* (;(bos (save-excursion (idlwave-beginning-of-statement) (point))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5662 (bos (save-excursion (idlwave-start-of-substatement 'pre) (point))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5663 (func-entry (idlwave-what-function bos)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5664 (func (car func-entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5665 (func-class (nth 1 func-entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5666 (func-arrow (nth 2 func-entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5667 (func-point (or (nth 3 func-entry) 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5668 (func-level (or (nth 4 func-entry) 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5669 (pro-entry (idlwave-what-procedure bos)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5670 (pro (car pro-entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5671 (pro-class (nth 1 pro-entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5672 (pro-arrow (nth 2 pro-entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5673 (pro-point (or (nth 3 pro-entry) 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5674 (last-char (idlwave-last-valid-char)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5675 (case-fold-search t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5676 cw cw-mod cw-arrow cw-class cw-point) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5677 (if (< func-point pro-point) (setq func nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5678 (cond |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5679 ((string-match "\\`[ \t]*\\(pro\\|function\\)[ \t]+[a-zA-Z0-9_]*\\'" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5680 (buffer-substring bos (point))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5681 (setq cw 'class)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5682 ((string-match |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5683 "\\`[ \t]*\\([a-zA-Z][a-zA-Z0-9$_]*\\)?\\'" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5684 (buffer-substring (if (> pro-point 0) pro-point bos) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5685 (setq cw 'procedure cw-class pro-class cw-point pro-point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5686 cw-arrow pro-arrow)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5687 ((string-match "\\`[ \t]*\\(pro\\|function\\)\\>" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5688 (buffer-substring bos (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5689 nil) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5690 ((string-match "OBJ_NEW([ \t]*['\"]\\([a-zA-Z0-9$_]*\\)?\\'" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5691 (buffer-substring bos (point))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5692 (setq cw 'class)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5693 ((string-match "\\<inherits\\s-+\\([a-zA-Z0-9$_]*\\)?\\'" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5694 (buffer-substring bos (point))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5695 (setq cw 'class)) |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5696 ((and func |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5697 (> func-point pro-point) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5698 (= func-level 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5699 (memq last-char '(?\( ?,))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5700 (setq cw 'function-keyword cw-mod func cw-point func-point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5701 cw-class func-class cw-arrow func-arrow)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5702 ((and pro (eq last-char ?,)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5703 (setq cw 'procedure-keyword cw-mod pro cw-point pro-point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5704 cw-class pro-class cw-arrow pro-arrow)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5705 ; ((member last-char '(?\' ?\) ?\] ?!)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5706 ; ;; after these chars, a function makes no sense |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5707 ; ;; FIXME: I am sure there can be more in this list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5708 ; ;; FIXME: Do we want to do this at all? |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5709 ; nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5710 ;; Everywhere else we try a function. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5711 (t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5712 (setq cw 'function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5713 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5714 (if (re-search-backward "->[ \t]*\\(\\([$a-zA-Z0-9_]+\\)::\\)?[$a-zA-Z0-9_]*\\=" bos t) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5715 (setq cw-arrow (copy-marker (match-beginning 0)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5716 cw-class (if (match-end 2) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5717 (idlwave-sintern-class (match-string 2)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5718 t)))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5719 (list (list pro pro-point pro-class pro-arrow) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5720 (list func func-point func-class func-arrow) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5721 cw |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5722 (list cw-mod cw-point cw-class cw-arrow) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5723 last-char))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5724 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5725 (defun idlwave-this-word (&optional class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5726 ;; Grab the word around point. CLASS is for the `skip-chars=...' functions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5727 (setq class (or class "a-zA-Z0-9$_")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5728 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5729 (buffer-substring-no-properties |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5730 (progn (skip-chars-backward class) (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5731 (progn (skip-chars-forward class) (point))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5732 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5733 (defun idlwave-what-function (&optional bound) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5734 ;; Find out if point is within the argument list of a function. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5735 ;; The return value is ("function-name" class arrow-start (point) level). |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5736 ;; Level is 1 on the top level parentheses, higher further down. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5737 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5738 ;; If the optional BOUND is an integer, bound backwards directed |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5739 ;; searches to this point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5740 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5741 (catch 'exit |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5742 (let (pos |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5743 func-point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5744 (cnt 0) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5745 func arrow-start class) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5746 (idlwave-with-special-syntax |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5747 (save-restriction |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5748 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5749 (narrow-to-region (max 1 (or bound 0)) (point-max)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5750 ;; move back out of the current parenthesis |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5751 (while (condition-case nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5752 (progn (up-list -1) t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5753 (error nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5754 (setq pos (point)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5755 (incf cnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5756 (when (and (= (following-char) ?\() |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5757 (re-search-backward |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5758 "\\(::\\|\\<\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)[ \t]*\\=" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5759 bound t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5760 (setq func (match-string 2) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5761 func-point (goto-char (match-beginning 2)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5762 pos func-point) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5763 (if (re-search-backward |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5764 "->[ \t]*\\(\\([a-zA-Z][a-zA-Z0-9$_]*\\)::\\)?\\=" bound t) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5765 (setq arrow-start (copy-marker (match-beginning 0)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5766 class (or (match-string 2) t))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5767 (throw |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5768 'exit |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5769 (list |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5770 (idlwave-sintern-routine-or-method func class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5771 (idlwave-sintern-class class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5772 arrow-start func-point cnt))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5773 (goto-char pos)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5774 (throw 'exit nil))))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5775 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5776 (defun idlwave-what-procedure (&optional bound) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5777 ;; Find out if point is within the argument list of a procedure. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5778 ;; The return value is ("procedure-name" class arrow-pos (point)). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5779 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5780 ;; If the optional BOUND is an integer, bound backwards directed |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5781 ;; searches to this point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5782 (let ((pos (point)) pro-point |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5783 pro class arrow-start string) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5784 (save-excursion |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5785 ;;(idlwave-beginning-of-statement) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5786 (idlwave-start-of-substatement 'pre) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5787 (setq string (buffer-substring (point) pos)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5788 (if (string-match |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5789 "\\`[ \t]*\\([a-zA-Z][a-zA-Z0-9$_]*\\)[ \t]*\\(,\\|\\'\\)" string) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5790 (setq pro (match-string 1 string) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5791 pro-point (+ (point) (match-beginning 1))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5792 (if (and (idlwave-skip-object) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5793 (setq string (buffer-substring (point) pos)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5794 (string-match |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5795 "\\`[ \t]*\\(->\\)[ \t]*\\(\\([a-zA-Z][a-zA-Z0-9$_]*\\)::\\)?\\([a-zA-Z][a-zA-Z0-9$_]*\\)?[ \t]*\\(,\\|\\'\\)" string)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5796 (setq pro (if (match-beginning 4) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5797 (match-string 4 string)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5798 pro-point (if (match-beginning 4) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5799 (+ (point) (match-beginning 4)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5800 pos) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5801 arrow-start (copy-marker (+ (point) (match-beginning 1))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5802 class (or (match-string 3 string) t))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5803 (list (idlwave-sintern-routine-or-method pro class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5804 (idlwave-sintern-class class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5805 arrow-start |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5806 pro-point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5807 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5808 (defun idlwave-skip-object () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5809 ;; If there is an object at point, move over it and return t. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5810 (let ((pos (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5811 (if (catch 'exit |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5812 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5813 (skip-chars-forward " ") ; white space |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5814 (skip-chars-forward "*") ; de-reference |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5815 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5816 ((looking-at idlwave-identifier) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5817 (goto-char (match-end 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5818 ((eq (following-char) ?\() |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5819 nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5820 (t (throw 'exit nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5821 (catch 'endwhile |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5822 (while t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5823 (cond ((eq (following-char) ?.) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5824 (forward-char 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5825 (if (not (looking-at idlwave-identifier)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5826 (throw 'exit nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5827 (goto-char (match-end 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5828 ((memq (following-char) '(?\( ?\[)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5829 (condition-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5830 (forward-list 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5831 (error (throw 'exit nil)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5832 (t (throw 'endwhile t))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5833 (if (looking-at "[ \t]*->") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5834 (throw 'exit (setq pos (match-beginning 0))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5835 (throw 'exit nil)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5836 (goto-char pos) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5837 nil))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5838 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5839 (defun idlwave-last-valid-char () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5840 "Return the last character before point which is not white or a comment |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5841 and also not part of the current identifier. Since we do this in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5842 order to identify places where keywords are, we consider the initial |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5843 `/' of a keyword as part of the identifier. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5844 This function is not general, can only be used for completion stuff." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5845 (catch 'exit |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5846 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5847 ;; skip the current identifier |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5848 (skip-chars-backward "a-zA-Z0-9_$") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5849 ;; also skip a leading slash which might be belong to the keyword |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5850 (if (eq (preceding-char) ?/) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5851 (backward-char 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5852 ;; FIXME: does not check if this is a valid identifier |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5853 (while t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5854 (skip-chars-backward " \t") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5855 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5856 ((memq (preceding-char) '(?\; ?\$)) (throw 'exit nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5857 ((eq (preceding-char) ?\n) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5858 (beginning-of-line 0) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
5859 (if (looking-at "\\([^;\n]*\\)\\$[ \t]*\\(;[^\n]*\\)?\n") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5860 ;; continuation line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5861 (goto-char (match-end 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5862 (throw 'exit nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5863 (t (throw 'exit (preceding-char)))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5864 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5865 (defvar idlwave-complete-after-success-form nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5866 "A form to evaluate after successful completion.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5867 (defvar idlwave-complete-after-success-form-force nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5868 "A form to evaluate after completion selection in *Completions* buffer.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5869 (defconst idlwave-completion-mark (make-marker) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5870 "A mark pointing to the beginning of the completion string.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5871 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5872 (defun idlwave-complete-in-buffer (type stype list selector prompt isa |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5873 &optional prepare-display-function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5874 "Perform TYPE completion of word before point against LIST. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5875 SELECTOR is the PREDICATE argument for the completion function. Show |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5876 PROMPT in echo area. TYPE is one of 'function, 'procedure, |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5877 'class-tag, or 'keyword." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5878 (let* ((completion-ignore-case t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5879 beg (end (point)) slash part spart completion all-completions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5880 dpart dcompletion) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5881 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5882 (unless list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5883 (error (concat prompt ": No completions available"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5884 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5885 ;; What is already in the buffer? |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5886 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5887 (skip-chars-backward "a-zA-Z0-9_$") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5888 (setq slash (eq (preceding-char) ?/) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5889 beg (point) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5890 idlwave-complete-after-success-form |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5891 (list 'idlwave-after-successful-completion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5892 (list 'quote type) slash beg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5893 idlwave-complete-after-success-form-force |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5894 (list 'idlwave-after-successful-completion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5895 (list 'quote type) slash (list 'quote 'force)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5896 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5897 ;; Try a completion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5898 (setq part (buffer-substring beg end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5899 dpart (downcase part) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5900 spart (idlwave-sintern stype part) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5901 completion (try-completion part list selector) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5902 dcompletion (if (stringp completion) (downcase completion))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5903 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5904 ((null completion) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5905 ;; nothing available. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5906 (error (concat prompt ": no completion for \"%s\"") part)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5907 ((and (not (equal dpart dcompletion)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5908 (not (eq t completion))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5909 ;; We can add something |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5910 (delete-region beg end) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5911 (if (and (string= part dpart) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5912 (or (not (string= part "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5913 idlwave-complete-empty-string-as-lower-case) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5914 (not idlwave-completion-force-default-case)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5915 (insert dcompletion) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5916 (insert completion)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5917 (if (eq t (try-completion completion list selector)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5918 ;; Now this is a unique match |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5919 (idlwave-after-successful-completion type slash beg)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5920 t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5921 ((or (eq completion t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5922 (and (equal dpart dcompletion) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5923 (= 1 (length (setq all-completions |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5924 (idlwave-uniquify |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5925 (all-completions part list selector))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5926 ;; This is already complete |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5927 (idlwave-after-successful-completion type slash beg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5928 (message "%s is already the complete %s" part isa) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5929 nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5930 (t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5931 ;; We cannot add something - offer a list. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5932 (message "Making completion list...") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5933 (let* ((list all-completions) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5934 ;; "complete" means, this is already a valid completion |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5935 (complete (memq spart all-completions)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5936 (completion-highlight-first-word-only t) ; XEmacs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5937 (completion-fixup-function ; Emacs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5938 (lambda () (and (eq (preceding-char) ?>) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5939 (re-search-backward " <" beg t))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5940 (setq list (sort list (lambda (a b) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5941 (string< (downcase a) (downcase b))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5942 (if prepare-display-function |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5943 (setq list (funcall prepare-display-function list))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5944 (if (and (string= part dpart) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5945 (or (not (string= part "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5946 idlwave-complete-empty-string-as-lower-case) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5947 (not idlwave-completion-force-default-case)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5948 (setq list (mapcar (lambda (x) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5949 (if (listp x) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5950 (setcar x (downcase (car x))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5951 (setq x (downcase x))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5952 x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5953 list))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5954 (idlwave-display-completion-list list prompt beg complete)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5955 t)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5956 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5957 (defun idlwave-complete-class () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5958 "Complete a class at point." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5959 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5960 ;; Call `idlwave-routines' to make sure the class list will be available |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5961 (idlwave-routines) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5962 ;; Check for the special case of completing empty string after pro/function |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5963 (if (let ((case-fold-search t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5964 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5965 (and |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5966 (re-search-backward "\\<\\(pro\\|function\\)[ \t]+\\=" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5967 (- (point) 15) t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5968 (goto-char (point-min)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5969 (re-search-forward |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5970 "^[ \t]*\\(pro\\|function\\)[ \t]+\\([a-zA-Z0-9_]+::\\)" nil t)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5971 ;; Yank the full class specification |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5972 (insert (match-string 2)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5973 ;; Do the completion |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5974 (idlwave-complete-in-buffer 'class 'class (idlwave-class-alist) nil |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
5975 "Select a class" "class"))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5976 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5977 (defun idlwave-attach-classes (list type show-classes) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5978 ;; Attach the proper class list to a LIST of completion items. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5979 ;; TYPE, when 'kwd, shows classes for method keywords, when |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5980 ;; 'class-tag, for class tags, and otherwise for methods. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5981 ;; SHOW-CLASSES is the value of `idlwave-completion-show-classes'. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5982 (if (or (null show-classes) ; don't want to see classes |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5983 (null class-selector) ; not a method call |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5984 (and |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5985 (stringp class-selector) ; the class is already known |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5986 (not super-classes))) ; no possibilities for inheritance |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5987 ;; In these cases, we do not have to do anything |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5988 list |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5989 (let* ((do-prop (and (>= show-classes 0) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5990 (>= emacs-major-version 21))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5991 (do-buf (not (= show-classes 0))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5992 ;; (do-dots (featurep 'xemacs)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5993 (do-dots t) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
5994 (inherit (if (and (not (eq type 'class-tag)) super-classes) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
5995 (cons class-selector super-classes))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5996 (max (abs show-classes)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5997 (lmax (if do-dots (apply 'max (mapcar 'length list)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
5998 classes nclasses class-info space) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
5999 (mapcar |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6000 (lambda (x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6001 ;; get the classes |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6002 (if (eq type 'class-tag) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6003 ;; Just one class for tags |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6004 (setq classes |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6005 (list |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6006 (idlwave-class-or-superclass-with-tag class-selector x))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6007 ;; Multiple classes for method of method-keyword |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6008 (setq classes |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6009 (if (eq type 'kwd) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6010 (idlwave-all-method-keyword-classes |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6011 method-selector x type-selector) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6012 (idlwave-all-method-classes x type-selector))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6013 (if inherit |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6014 (setq classes |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6015 (delq nil |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6016 (mapcar (lambda (x) (if (memq x inherit) x nil)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6017 classes))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6018 (setq nclasses (length classes)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6019 ;; Make the separator between item and class-info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6020 (if do-dots |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6021 (setq space (concat " " (make-string (- lmax (length x)) ?.))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6022 (setq space " ")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6023 (if do-buf |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6024 ;; We do want info in the buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6025 (if (<= nclasses max) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6026 (setq class-info (concat |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6027 space |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6028 "<" (mapconcat 'identity classes ",") ">")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6029 (setq class-info (format "%s<%d classes>" space nclasses))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6030 (setq class-info nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6031 (when do-prop |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6032 ;; We do want properties |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6033 (setq x (copy-sequence x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6034 (put-text-property 0 (length x) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6035 'help-echo (mapconcat 'identity classes " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6036 x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6037 (if class-info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6038 (list x class-info) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6039 x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6040 list)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6041 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6042 (defun idlwave-attach-method-classes (list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6043 ;; Call idlwave-attach-classes with method parameters |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6044 (idlwave-attach-classes list 'method idlwave-completion-show-classes)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6045 (defun idlwave-attach-keyword-classes (list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6046 ;; Call idlwave-attach-classes with keyword parameters |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6047 (idlwave-attach-classes list 'kwd idlwave-completion-show-classes)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6048 (defun idlwave-attach-class-tag-classes (list) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6049 ;; Call idlwave-attach-classes with class structure tags |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6050 (idlwave-attach-classes list 'class-tag idlwave-completion-show-classes)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6051 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6052 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6053 ;;---------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6054 ;;---------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6055 ;;---------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6056 ;;---------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6057 ;;---------------------------------------------------------------------- |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6058 (defvar rtn) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6059 (defun idlwave-pset (item) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6060 (set 'rtn item)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6061 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6062 (defun idlwave-popup-select (ev list title &optional sort) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6063 "Select an item in LIST with a popup menu. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6064 TITLE is the title to put atop the popup. If SORT is non-nil, |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6065 sort the list before displaying" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6066 (let ((maxpopup idlwave-max-popup-menu-items) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6067 rtn menu resp) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6068 (cond ((null list)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6069 ((= 1 (length list)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6070 (setq rtn (car list))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6071 ((featurep 'xemacs) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6072 (if sort (setq list (sort list (lambda (a b) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6073 (string< (upcase a) (upcase b)))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6074 (setq menu |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6075 (append (list title) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6076 (mapcar (lambda (x) (vector x (list 'idlwave-pset |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6077 x))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6078 list))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6079 (setq menu (idlwave-split-menu-xemacs menu maxpopup)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6080 (setq resp (get-popup-menu-response menu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6081 (funcall (event-function resp) (event-object resp))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6082 (t |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6083 (if sort (setq list (sort list (lambda (a b) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6084 (string< (upcase a) (upcase b)))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6085 (setq menu (cons title |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6086 (list |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6087 (append (list "") |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6088 (mapcar (lambda(x) (cons x x)) list))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6089 (setq menu (idlwave-split-menu-emacs menu maxpopup)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6090 (setq rtn (x-popup-menu ev menu)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6091 rtn)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6092 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6093 (defun idlwave-split-menu-xemacs (menu N) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6094 "Split the MENU into submenus of maximum length N." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6095 (if (<= (length menu) (1+ N)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6096 ;; No splitting needed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6097 menu |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6098 (let* ((title (car menu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6099 (entries (cdr menu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6100 (menu (list title)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6101 (cnt 0) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6102 (nextmenu nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6103 (while entries |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6104 (while (and entries (< cnt N)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6105 (setq cnt (1+ cnt) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6106 nextmenu (cons (car entries) nextmenu) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6107 entries (cdr entries))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6108 (setq nextmenu (nreverse nextmenu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6109 (setq nextmenu (cons (format "%s...%s" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6110 (aref (car nextmenu) 0) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6111 (aref (nth (1- cnt) nextmenu) 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6112 nextmenu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6113 (setq menu (cons nextmenu menu) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6114 nextmenu nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6115 cnt 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6116 (nreverse menu)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6117 |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6118 (defun idlwave-split-menu-emacs (menu N) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6119 "Split the MENU into submenus of maximum length N." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6120 (if (<= (length (nth 1 menu)) (1+ N)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6121 ;; No splitting needed |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6122 menu |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6123 (let* ((title (car menu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6124 (entries (cdr (nth 1 menu))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6125 (menu nil) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6126 (cnt 0) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6127 (nextmenu nil)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6128 (while entries |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6129 (while (and entries (< cnt N)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6130 (setq cnt (1+ cnt) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6131 nextmenu (cons (car entries) nextmenu) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6132 entries (cdr entries))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6133 (setq nextmenu (nreverse nextmenu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6134 (prin1 nextmenu) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6135 (setq nextmenu (cons (format "%s...%s" |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6136 (car (car nextmenu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6137 (car (nth (1- cnt) nextmenu))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6138 nextmenu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6139 (setq menu (cons nextmenu menu) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6140 nextmenu nil |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6141 cnt 0)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6142 (setq menu (nreverse menu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6143 (setq menu (cons title menu)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6144 menu))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6145 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6146 (defvar idlwave-completion-setup-hook nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6147 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6148 (defun idlwave-scroll-completions (&optional message) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6149 "Scroll the completion window on this frame." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6150 (let ((cwin (get-buffer-window "*Completions*" 'visible)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6151 (win (selected-window))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6152 (unwind-protect |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6153 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6154 (select-window cwin) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6155 (condition-case nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6156 (scroll-up) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6157 (error (if (and (listp last-command) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6158 (nth 2 last-command)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6159 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6160 (select-window win) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6161 (eval idlwave-complete-after-success-form)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6162 (set-window-start cwin (point-min))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6163 (and message (message message))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6164 (select-window win)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6165 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6166 (defun idlwave-display-completion-list (list &optional message beg complete) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6167 "Display the completions in LIST in the completions buffer and echo MESSAGE." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6168 (unless (and (get-buffer-window "*Completions*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6169 (idlwave-local-value 'idlwave-completion-p "*Completions*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6170 (move-marker idlwave-completion-mark beg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6171 (setq idlwave-before-completion-wconf (current-window-configuration))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6172 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6173 (if (featurep 'xemacs) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6174 (idlwave-display-completion-list-xemacs |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6175 list) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6176 (idlwave-display-completion-list-emacs list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6177 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6178 ;; Store a special value in `this-command'. When `idlwave-complete' |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6179 ;; finds this in `last-command', it will scroll the *Completions* buffer. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6180 (setq this-command (list 'idlwave-display-completion-list message complete)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6181 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6182 ;; Mark the completions buffer as created by cib |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6183 (idlwave-set-local 'idlwave-completion-p t "*Completions*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6184 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6185 ;; Fontify the classes |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6186 (if (and idlwave-completion-fontify-classes |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6187 (consp (car list))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6188 (idlwave-completion-fontify-classes)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6189 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6190 ;; Run the hook |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6191 (run-hooks 'idlwave-completion-setup-hook) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6192 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6193 ;; Display the message |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6194 (message (or message "Making completion list...done"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6195 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6196 (defun idlwave-choose (function &rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6197 "Call FUNCTION as a completion chooser and pass ARGS to it." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6198 (let ((completion-ignore-case t)) ; install correct value |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6199 (apply function args)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6200 (if (and (eq major-mode 'idlwave-shell-mode) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6201 (boundp 'font-lock-mode) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6202 (not font-lock-mode)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6203 ;; Remove the fontification of the word before point |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6204 (let ((beg (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6205 (skip-chars-backward "a-zA-Z0-9_") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6206 (point)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6207 (remove-text-properties beg (point) '(face nil)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6208 (eval idlwave-complete-after-success-form-force)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6209 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6210 (defun idlwave-keyboard-quit () |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6211 (interactive) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6212 (unwind-protect |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6213 (if (eq (car-safe last-command) 'idlwave-display-completion-list) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6214 (idlwave-restore-wconf-after-completion)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6215 (keyboard-quit))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6216 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6217 (defun idlwave-restore-wconf-after-completion () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6218 "Restore the old (before completion) window configuration." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6219 (and idlwave-completion-restore-window-configuration |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6220 idlwave-before-completion-wconf |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6221 (set-window-configuration idlwave-before-completion-wconf))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6222 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6223 (defun idlwave-set-local (var value &optional buffer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6224 "Set the buffer-local value of VAR in BUFFER to VALUE." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6225 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6226 (set-buffer (or buffer (current-buffer))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6227 (set (make-local-variable var) value))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6228 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6229 (defun idlwave-local-value (var &optional buffer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6230 "Return the value of VAR in BUFFER, but only if VAR is local to BUFFER." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6231 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6232 (set-buffer (or buffer (current-buffer))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6233 (and (local-variable-p var (current-buffer)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6234 (symbol-value var)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6235 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6236 ;; In XEmacs, we can use :activate-callback directly to advice the |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6237 ;; choose functions. We use the private keymap only for the online |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6238 ;; help feature. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6239 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6240 (defvar idlwave-completion-map nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6241 "Keymap for completion-list-mode with idlwave-complete.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6242 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6243 (defun idlwave-display-completion-list-xemacs (list &rest cl-args) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6244 (with-output-to-temp-buffer "*Completions*" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6245 (apply 'display-completion-list list |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6246 ':activate-callback 'idlwave-default-choose-completion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6247 cl-args)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6248 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6249 (set-buffer "*Completions*") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6250 (use-local-map |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6251 (or idlwave-completion-map |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6252 (setq idlwave-completion-map |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6253 (idlwave-make-modified-completion-map-xemacs |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6254 (current-local-map))))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6255 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6256 (defun idlwave-default-choose-completion (&rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6257 "Execute `default-choose-completion' and then restore the win-conf." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6258 (apply 'idlwave-choose 'default-choose-completion args)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6259 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6260 (defun idlwave-make-modified-completion-map-xemacs (old-map) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6261 "Replace `choose-completion' and `mouse-choose-completion' in OLD-MAP." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6262 (let ((new-map (copy-keymap old-map))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6263 (define-key new-map [button3up] 'idlwave-mouse-completion-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6264 (define-key new-map [button3] (lambda () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6265 (interactive) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6266 (setq this-command last-command))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6267 new-map)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6268 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6269 ;; In Emacs we also replace keybindings in the completion |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6270 ;; map in order to install our wrappers. |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6271 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6272 (defun idlwave-display-completion-list-emacs (list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6273 "Display completion list and install the choose wrappers." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6274 (with-output-to-temp-buffer "*Completions*" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6275 (display-completion-list list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6276 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6277 (set-buffer "*Completions*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6278 (use-local-map |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6279 (or idlwave-completion-map |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6280 (setq idlwave-completion-map |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6281 (idlwave-make-modified-completion-map-emacs |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6282 (current-local-map))))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6283 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6284 (defun idlwave-make-modified-completion-map-emacs (old-map) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6285 "Replace `choose-completion' and `mouse-choose-completion' in OLD-MAP." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6286 (let ((new-map (copy-keymap old-map))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6287 (substitute-key-definition |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6288 'choose-completion 'idlwave-choose-completion new-map) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6289 (substitute-key-definition |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6290 'mouse-choose-completion 'idlwave-mouse-choose-completion new-map) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6291 (define-key new-map [mouse-3] 'idlwave-mouse-completion-help) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6292 new-map)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6293 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6294 (defun idlwave-choose-completion (&rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6295 "Choose the completion that point is in or next to." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6296 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6297 (apply 'idlwave-choose 'choose-completion args)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6298 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6299 (defun idlwave-mouse-choose-completion (&rest args) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6300 "Click on an alternative in the `*Completions*' buffer to choose it." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6301 (interactive "e") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6302 (apply 'idlwave-choose 'mouse-choose-completion args)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6303 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6304 ;;---------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6305 ;;---------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6306 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6307 ;;; ------------------------------------------------------------------------ |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6308 ;;; Sturucture parsing code, and code to manage class info |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6309 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6310 ;; |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6311 ;; - Go again over the documentation how to write a completion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6312 ;; plugin. It is in self.el, but currently still very bad. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6313 ;; This could be in a separate file in the distribution, or |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6314 ;; in an appendix for the manual. |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6315 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6316 (defun idlwave-struct-tags () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6317 "Return a list of all tags in the structure defined at point. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6318 Point is expected just before the opening `{' of the struct definition." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6319 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6320 (let* ((borders (idlwave-struct-borders)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6321 (beg (car borders)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6322 (end (cdr borders)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6323 tags) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6324 (goto-char beg) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6325 (while (re-search-forward "[{,][ \t]*\\(\\$.*\n\\(^[ \t]*\\(\\$[ \t]*\\)?\\(;.*\\)?\n\\)*[ \t]*\\)?\\([a-zA-Z][a-zA-Z0-9_]*\\)[ \t]*:" end t) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6326 ;; Check if we are still on the top level of the structure. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6327 (if (and (condition-case nil (progn (up-list -1) t) (error nil)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6328 (= (point) beg)) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6329 (push (match-string 5) tags)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6330 (goto-char (match-end 0))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6331 (nreverse tags)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6332 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6333 (defun idlwave-find-struct-tag (tag) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6334 "Find a given TAG in the structure defined at point." |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6335 (let* ((borders (idlwave-struct-borders)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6336 (beg (car borders)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6337 (end (cdr borders)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6338 (case-fold-search t)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6339 (re-search-forward (concat "\\(^[ \t]*\\|[,{][ \t]*\\)" tag "[ \t]*:") |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6340 end t))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6341 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6342 (defun idlwave-struct-inherits () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6343 "Return a list of all `inherits' names in the struct at point. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6344 Point is expected just before the opening `{' of the struct definition." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6345 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6346 (let* ((borders (idlwave-struct-borders)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6347 (beg (car borders)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6348 (end (cdr borders)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6349 (case-fold-search t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6350 names) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6351 (goto-char beg) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6352 (while (re-search-forward "[{,][ \t]*\\(\\$.*\n[ \t]*\\)?inherits[ \t]*\\(\\$.*\n[ \t]*\\)?\\([a-zA-Z][a-zA-Z0-9_]*\\)" end t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6353 ;; Check if we are still on the top level of the structure. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6354 (if (and (condition-case nil (progn (up-list -1) t) (error nil)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6355 (= (point) beg)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6356 (push (match-string 3) names)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6357 (goto-char (match-end 0))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6358 (nreverse names)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6359 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6360 (defun idlwave-in-structure () |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6361 "Return t if point is inside an IDL structure." |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6362 (let ((beg (point))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6363 (save-excursion |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6364 (if (not (or (idlwave-in-comment) (idlwave-in-quote))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6365 (if (idlwave-find-structure-definition nil nil 'back) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6366 (let ((borders (idlwave-struct-borders))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6367 (or (= (car borders) (cdr borders)) ;; struct not yet closed... |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6368 (and (> beg (car borders)) (< beg (cdr borders)))))))))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6369 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6370 (defun idlwave-struct-borders () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6371 "Return the borders of the {...} after point as a cons cell." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6372 (let (beg) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6373 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6374 (skip-chars-forward "^{") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6375 (setq beg (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6376 (condition-case nil (forward-list 1) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6377 (error (goto-char beg))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6378 (cons beg (point))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6379 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6380 (defun idlwave-find-structure-definition (&optional var name bound) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6381 "Search forward for a structure definition. |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6382 If VAR is non-nil, search for a structure assigned to variable VAR. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6383 If NAME is non-nil, search for a named structure NAME. If BOUND is an |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6384 integer, limit the search. If BOUND is the symbol `all', we search |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6385 first back and then forward through the entire file. If BOUND is the |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6386 symbol `back' we search only backward." |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6387 (let* ((ws "[ \t]*\\(\\$.*\n[ \t]*\\)*") |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6388 (case-fold-search t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6389 (lim (if (integerp bound) bound nil)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6390 (re (concat |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6391 (if var |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6392 (concat "\\<" (regexp-quote (downcase var)) "\\>" ws) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6393 "\\(\\)") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6394 "=" ws "\\({\\)" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6395 (if name (concat ws "\\<" (downcase name) "[^a-zA-Z0-9_$]") "")))) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6396 (if (or (and (or (eq bound 'all) (eq bound 'back)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6397 (re-search-backward re nil t)) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6398 (and (not (eq bound 'back)) (re-search-forward re lim t))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6399 (goto-char (match-beginning 3))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6400 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6401 (defvar idlwave-class-info nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6402 (defvar idlwave-system-class-info nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6403 (add-hook 'idlwave-update-rinfo-hook |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6404 (lambda () (setq idlwave-class-info nil))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6405 (add-hook 'idlwave-after-load-rinfo-hook |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6406 (lambda () (setq idlwave-class-info nil))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6407 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6408 (defun idlwave-class-info (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6409 (let (list entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6410 (unless idlwave-class-info |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6411 ;; Info is nil, put in the system stuff. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6412 (setq idlwave-class-info idlwave-system-class-info) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6413 (setq list idlwave-class-info) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6414 (while (setq entry (pop list)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6415 (idlwave-sintern-class-info entry))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6416 (setq class (idlwave-sintern-class class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6417 (setq entry (assq class idlwave-class-info)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6418 (unless entry |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6419 (setq entry (idlwave-find-class-info class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6420 (when entry |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6421 ;; Sintern and cache the info |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6422 (idlwave-sintern-class-info entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6423 (push entry idlwave-class-info))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6424 entry)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6425 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6426 (defun idlwave-sintern-class-info (entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6427 "Sintern the class names in a class-info entry." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6428 (let ((taglist (assq 'tags entry)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6429 (inherits (assq 'inherits entry))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6430 (setcar entry (idlwave-sintern-class (car entry) 'set)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6431 (if inherits |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6432 (setcdr inherits (mapcar (lambda (x) (idlwave-sintern-class x 'set)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6433 (cdr inherits)))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6434 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6435 (defun idlwave-find-class-definition (class) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6436 (let ((case-fold-search t)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6437 (if (re-search-forward |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6438 (concat "^[ \t]*pro[ \t]+" (downcase class) "__define" "\\>") nil t) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6439 ;; FIXME: should we limit to end of pro here? |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6440 (idlwave-find-structure-definition nil class)))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6441 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6442 (defun idlwave-find-class-info (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6443 "Find the __define procedure for a class structure and return info entry." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6444 (let* ((pro (concat (downcase class) "__define")) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6445 (class (idlwave-sintern-class class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6446 (idlwave-auto-routine-info-updates nil) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6447 (file (cdr (nth 3 (idlwave-rinfo-assoc pro 'pro nil |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6448 (idlwave-routines))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6449 buf) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6450 (if (or (not file) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6451 (not (file-regular-p |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6452 (setq file (idlwave-expand-lib-file-name file))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6453 nil ; Cannot get info |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6454 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6455 (if (setq buf (idlwave-get-buffer-visiting file)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6456 (set-buffer buf) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6457 (set-buffer (get-buffer-create " *IDLWAVE-tmp*")) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6458 (erase-buffer) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6459 (unless (eq major-mode 'idlwave-mode) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6460 (idlwave-mode)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6461 (insert-file-contents file)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6462 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6463 (goto-char 1) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6464 (if (idlwave-find-class-definition class) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6465 (list class |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6466 (cons 'tags (idlwave-struct-tags)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6467 (cons 'inherits (idlwave-struct-inherits))))))))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6468 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6469 (defun idlwave-class-tags (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6470 "Return the native tags in CLASS." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6471 (cdr (assq 'tags (idlwave-class-info class)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6472 (defun idlwave-class-inherits (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6473 "Return the direct superclasses of CLASS." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6474 (cdr (assq 'inherits (idlwave-class-info class)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6475 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6476 (defun idlwave-all-class-tags (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6477 "Return a list of native and inherited tags in CLASS." |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6478 (condition-case err |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6479 (apply 'append (mapcar 'idlwave-class-tags |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6480 (cons class (idlwave-all-class-inherits class)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6481 (error |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6482 (idlwave-class-tag-reset) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6483 (error "%s" (error-message-string err))))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6484 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6485 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6486 (defun idlwave-all-class-inherits (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6487 "Return a list of all superclasses of CLASS (recursively expanded). |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
6488 The list is cached in `idlwave-class-info' for faster access." |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6489 (cond |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6490 ((not idlwave-support-inheritance) nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6491 ((eq class nil) nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6492 ((eq class t) nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6493 (t |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6494 (let ((info (idlwave-class-info class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6495 entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6496 (if (setq entry (assq 'all-inherits info)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6497 (cdr entry) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6498 ;; Save the depth of inheritance scan to check for circular references |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6499 (let ((inherits (mapcar (lambda (x) (cons x 0)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6500 (idlwave-class-inherits class))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6501 rtn all-inherits cl) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6502 (while inherits |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6503 (setq cl (pop inherits) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6504 rtn (cons (car cl) rtn) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6505 inherits (append (mapcar (lambda (x) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6506 (cons x (1+ (cdr cl)))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6507 (idlwave-class-inherits (car cl))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6508 inherits)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6509 (if (> (cdr cl) 999) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6510 (error |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6511 "Class scan: inheritance depth exceeded. Circular inheritance?") |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6512 )) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6513 (setq all-inherits (nreverse rtn)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6514 (nconc info (list (cons 'all-inherits all-inherits))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6515 all-inherits)))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6516 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6517 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6518 ;;========================================================================== |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6519 ;; |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6520 ;; Completing class structure tags. This is a completion plugin. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6521 ;; The necessary taglist is constructed dynamically |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6522 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6523 (defvar idlwave-current-tags-class nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6524 (defvar idlwave-current-class-tags nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6525 (defvar idlwave-current-native-class-tags nil) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6526 (defvar idlwave-sint-class-tags nil) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6527 (idlwave-new-sintern-type 'class-tag) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6528 (add-to-list 'idlwave-complete-special 'idlwave-complete-class-structure-tag) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6529 (add-hook 'idlwave-update-rinfo-hook 'idlwave-class-tag-reset) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6530 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6531 (defun idlwave-complete-class-structure-tag () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6532 "Complete a structure tag on a `self' argument in an object method." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6533 (interactive) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6534 (let ((pos (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6535 (case-fold-search t)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6536 (if (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6537 ;; Check if the context is right |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6538 (skip-chars-backward "[a-zA-Z0-9._$]") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6539 (and (< (point) (- pos 4)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6540 (looking-at "self\\."))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6541 (let* ((class-selector (nth 2 (idlwave-current-routine))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6542 (super-classes (idlwave-all-class-inherits class-selector))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6543 ;; Check if we are in a class routine |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6544 (unless class-selector |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
6545 (error "Not in a method procedure or function")) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6546 ;; Check if we need to update the "current" class |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6547 (if (not (equal class-selector idlwave-current-tags-class)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6548 (idlwave-prepare-class-tag-completion class-selector)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6549 (setq idlwave-completion-help-info |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6550 (list 'idlwave-complete-class-structure-tag-help |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6551 (idlwave-sintern-routine |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6552 (concat class-selector "__define")) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6553 nil)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6554 (let ((idlwave-cpl-bold idlwave-current-native-class-tags)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6555 (idlwave-complete-in-buffer |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6556 'class-tag 'class-tag |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6557 idlwave-current-class-tags nil |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6558 (format "Select a tag of class %s" class-selector) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6559 "class tag" |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6560 'idlwave-attach-class-tag-classes)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6561 t) ; return t to skip other completions |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6562 nil))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6563 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6564 (defun idlwave-class-tag-reset () |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6565 (setq idlwave-current-tags-class nil)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6566 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6567 (defun idlwave-prepare-class-tag-completion (class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6568 "Find and parse the necessary class definitions for class structure tags." |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6569 (setq idlwave-sint-class-tags nil) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6570 (setq idlwave-current-tags-class class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6571 (setq idlwave-current-class-tags |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6572 (mapcar (lambda (x) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6573 (list (idlwave-sintern-class-tag x 'set))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6574 (idlwave-all-class-tags class))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6575 (setq idlwave-current-native-class-tags |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6576 (mapcar 'downcase (idlwave-class-tags class)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6577 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6578 ;=========================================================================== |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6579 ;; |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6580 ;; Completing system variables and their structure fields |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6581 ;; This is also a plugin. It is a bit bigger since we support loading |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6582 ;; current system variables from the shell and highlighting in the |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6583 ;; completions buffer. |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6584 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6585 (defvar idlwave-sint-sysvars nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6586 (defvar idlwave-sint-sysvartags nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6587 (idlwave-new-sintern-type 'sysvar) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6588 (idlwave-new-sintern-type 'sysvartag) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6589 (add-to-list 'idlwave-complete-special 'idlwave-complete-sysvar-or-tag) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6590 (add-hook 'idlwave-update-rinfo-hook 'idlwave-sysvars-reset) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6591 (add-hook 'idlwave-after-load-rinfo-hook 'idlwave-remember-builtin-sysvars) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6592 (add-hook 'idlwave-after-load-rinfo-hook 'idlwave-sintern-sysvar-alist) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6593 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6594 (defvar idlwave-system-variables-alist nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6595 "Alist of system variables and the associated structure tags. |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6596 Gets set in `idlw-rinfo.el'.") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6597 (defvar idlwave-builtin-system-variables nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6598 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6599 (defun idlwave-complete-sysvar-or-tag () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6600 "Complete a system variable." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6601 (interactive) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6602 (let ((pos (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6603 (case-fold-search t)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6604 (cond ((save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6605 ;; Check if the context is right for system variable |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6606 (skip-chars-backward "[a-zA-Z0-9_$]") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6607 (equal (char-before) ?!)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6608 (setq idlwave-completion-help-info '(idlwave-complete-sysvar-help)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6609 (idlwave-complete-in-buffer 'sysvar 'sysvar |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6610 idlwave-system-variables-alist nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6611 "Select a system variable" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6612 "system variable") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6613 t) ; return t to skip other completions |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6614 ((save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6615 ;; Check if the context is right for sysvar tag |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6616 (skip-chars-backward "[a-zA-Z0-9_$.]") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6617 (and (equal (char-before) ?!) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6618 (looking-at "\\([a-zA-Z][a-zA-Z0-9_$]*\\)\\.") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6619 (<= (match-end 0) pos))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6620 ;; Complete a system variable tag |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6621 (let* ((var (idlwave-sintern-sysvar (match-string 1))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6622 (entry (assq var idlwave-system-variables-alist)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6623 (tags (cdr entry))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6624 (or entry (error "!%s is not know to be a system variable" var)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6625 (or tags (error "System variable !%s is not a structure" var)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6626 (setq idlwave-completion-help-info |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6627 (list 'idlwave-complete-sysvar-help var)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6628 (idlwave-complete-in-buffer 'sysvartag 'sysvartag |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6629 tags nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6630 "Select a system variable tag" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6631 "system variable tag") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6632 t)) ; return t to skip other completions |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6633 (t nil)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6634 |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6635 ;; Here we fake help using the routine "system variables" with keyword |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6636 ;; set to the sysvar. Name and kwd are global variables here. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6637 (defvar name) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6638 (defvar kwd) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6639 (defun idlwave-complete-sysvar-help (mode word) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6640 (cond |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6641 ((eq mode 'test) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6642 (or (and (eq nil (nth 1 idlwave-completion-help-info)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6643 (member (downcase word) idlwave-builtin-system-variables)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6644 (and (stringp (nth 1 idlwave-completion-help-info)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6645 (member (downcase (nth 1 idlwave-completion-help-info)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6646 idlwave-builtin-system-variables)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6647 ((eq mode 'set) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6648 (setq name "system variables" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6649 kwd (concat "!" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6650 (if (stringp (nth 1 idlwave-completion-help-info)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6651 (nth 1 idlwave-completion-help-info) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6652 word)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6653 (t (error "This should not happen")))) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6654 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6655 ;; Fake help in the source buffer for class structure tags. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6656 ;; kwd and name are global-variables here. |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6657 (defvar idlwave-help-do-class-struct-tag nil) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6658 (defun idlwave-complete-class-structure-tag-help (mode word) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6659 (cond |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6660 ((eq mode 'test) ; nothing gets fontified for class tags |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6661 nil) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6662 ((eq mode 'set) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6663 (let (class-with) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6664 (when (setq class-with |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6665 (idlwave-class-or-superclass-with-tag |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6666 idlwave-current-tags-class |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6667 word)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6668 (if (assq (idlwave-sintern-class class-with) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6669 idlwave-system-class-info) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6670 (error "No help available for system class tags.")) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6671 (setq name (concat class-with "__define")))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6672 (setq kwd word |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6673 idlwave-help-do-class-struct-tag t)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6674 (t (error "This should not happen")))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6675 |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6676 (defun idlwave-class-or-superclass-with-tag (class tag) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6677 "Find and return the CLASS or one of its superclass with the |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6678 associated TAG, if any." |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6679 (let ((sclasses (cons class (cdr (assq 'all-inherits |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6680 (idlwave-class-info class))))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6681 cl) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6682 (catch 'exit |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6683 (while sclasses |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6684 (setq cl (pop sclasses)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6685 (let ((tags (idlwave-class-tags cl))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6686 (while tags |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6687 (if (eq t (compare-strings tag 0 nil (car tags) 0 nil t)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6688 (throw 'exit cl)) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6689 (setq tags (cdr tags)))))))) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6690 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6691 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6692 (defun idlwave-sysvars-reset () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6693 (if (and (fboundp 'idlwave-shell-is-running) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6694 (idlwave-shell-is-running)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6695 (idlwave-shell-send-command "idlwave_get_sysvars" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6696 'idlwave-process-sysvars 'hide))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6697 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6698 (defun idlwave-process-sysvars () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6699 (idlwave-shell-filter-sysvars) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6700 (setq idlwave-sint-sysvars nil |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6701 idlwave-sint-sysvartags nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6702 (idlwave-sintern-sysvar-alist)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6703 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6704 (defun idlwave-remember-builtin-sysvars () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6705 (setq idlwave-builtin-system-variables |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6706 (mapcar 'downcase |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6707 (mapcar 'car idlwave-system-variables-alist)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6708 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6709 (defun idlwave-sintern-sysvar-alist () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6710 (let ((list idlwave-system-variables-alist) entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6711 (while (setq entry (pop list)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6712 (setcar entry (idlwave-sintern-sysvar (car entry) 'set)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6713 (setcdr entry (mapcar (lambda (x) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6714 (list (idlwave-sintern-sysvartag (car x) 'set))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6715 (cdr entry)))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6716 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6717 (defvar idlwave-shell-command-output) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6718 (defun idlwave-shell-filter-sysvars () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6719 "Get the system variables and structure tags." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6720 (let ((text idlwave-shell-command-output) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6721 (start 0) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6722 (old idlwave-system-variables-alist) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6723 var tags type name class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6724 (setq idlwave-system-variables-alist nil) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6725 (while (string-match "^IDLWAVE-SYSVAR: !\\([a-zA-Z0-9_$]+\\)\\( \\(.*\\)\\)?" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6726 text start) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6727 (setq start (match-end 0) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6728 var (match-string 1 text) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6729 tags (if (match-end 3) (idlwave-split-string (match-string 3 text)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6730 (setq idlwave-system-variables-alist |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6731 (cons (cons var (mapcar 'list tags)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6732 idlwave-system-variables-alist))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6733 ;; Keep the old value if query was not successful |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6734 (setq idlwave-system-variables-alist |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6735 (or idlwave-system-variables-alist old)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6736 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6737 (defun idlwave-completion-fontify-classes () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6738 "Goto the *Completions* buffer and fontify the class info." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6739 (when (featurep 'font-lock) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6740 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6741 (set-buffer "*Completions*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6742 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6743 (goto-char (point-min)) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6744 (let ((buffer-read-only nil)) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6745 (while (re-search-forward "\\.*<[^>]+>" nil t) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6746 (put-text-property (match-beginning 0) (match-end 0) |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6747 'face 'font-lock-string-face))))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6748 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6749 (defun idlwave-uniquify (list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6750 (let (nlist) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6751 (loop for x in list do |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6752 (add-to-list 'nlist x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6753 nlist)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6754 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6755 (defun idlwave-after-successful-completion (type slash &optional verify) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6756 "Add `=' or `(' after successful completion of keyword and function. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6757 Restore the pre-completion window configuration if possible." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6758 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6759 ((eq type 'procedure) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6760 nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6761 ((eq type 'function) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6762 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6763 ((equal idlwave-function-completion-adds-paren nil) nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6764 ((or (equal idlwave-function-completion-adds-paren t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6765 (equal idlwave-function-completion-adds-paren 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6766 (insert "(")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6767 ((equal idlwave-function-completion-adds-paren 2) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6768 (insert "()") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6769 (backward-char 1)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6770 (t nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6771 ((eq type 'keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6772 (if (and idlwave-keyword-completion-adds-equal |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6773 (not slash)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6774 (progn (insert "=") t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6775 nil))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6776 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6777 ;; Restore the pre-completion window configuration if this is safe. |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6778 |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6779 (if (or (eq verify 'force) ; force |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6780 (and |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6781 (get-buffer-window "*Completions*") ; visible |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6782 (idlwave-local-value 'idlwave-completion-p |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6783 "*Completions*") ; cib-buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6784 (eq (marker-buffer idlwave-completion-mark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6785 (current-buffer)) ; buffer OK |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6786 (equal (marker-position idlwave-completion-mark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6787 verify))) ; pos OK |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6788 (idlwave-restore-wconf-after-completion)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6789 (move-marker idlwave-completion-mark nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6790 (setq idlwave-before-completion-wconf nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6791 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6792 (defun idlwave-mouse-context-help (ev &optional arg) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6793 "Call `idlwave-context-help' on the clicked location." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6794 (interactive "eP") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6795 (mouse-set-point ev) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6796 (idlwave-context-help arg)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6797 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6798 (defvar idlwave-last-context-help-pos nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6799 (defun idlwave-context-help (&optional arg) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6800 "Display IDL Online Help on context. |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6801 If point is on a keyword, help for that keyword will be shown. If |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6802 point is on a routine name or in the argument list of a routine, help |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6803 for that routine will be displayed. Works for system routines and |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6804 keywords, it pulls up text help. For other routies and keywords, |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6805 visits the source file, finding help in the header (if |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6806 `idlwave-help-source-try-header' is non-nil) or the routine definition |
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6807 itself." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6808 (interactive "P") |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6809 (idlwave-require-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6810 (idlwave-do-context-help arg)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6811 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6812 (defun idlwave-mouse-completion-help (ev) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6813 "Display online help about the completion at point." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6814 (interactive "eP") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6815 (idlwave-require-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6816 ;; Restore last-command for next command, to make scrolling of completions |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6817 ;; work. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6818 (setq this-command last-command) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6819 (idlwave-do-mouse-completion-help ev)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6820 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6821 (defvar idlwave-help-is-loaded nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6822 "Is online help avaiable?") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6823 ;; The following variables will be defined by `idlw-help.el'. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6824 (defvar idlwave-help-frame-width nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6825 (defvar idlwave-help-file nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6826 (defvar idlwave-help-topics nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6827 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6828 (defun idlwave-help-directory () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6829 "Return the help directory, or nil if that is not known." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6830 (or (and (stringp idlwave-help-directory) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6831 (> (length idlwave-help-directory) 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6832 idlwave-help-directory) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6833 (getenv "IDLWAVE_HELP_DIRECTORY"))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6834 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6835 (defun idlwave-require-online-help () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6836 (if idlwave-help-is-loaded |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6837 t ;; everything is OK. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6838 (let* ((dir (or (idlwave-help-directory) |
47440
0e5a022947e9
Updated to IDLWAVE version 4.15. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
47261
diff
changeset
|
6839 (error "Online Help not installed (help directory unknown) - download at idlwave.org"))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6840 (lfile1 (expand-file-name "idlw-help.elc" dir)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6841 (lfile2 (expand-file-name "idlw-help.el" dir)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6842 (hfile (expand-file-name "idlw-help.txt" dir))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6843 (if (or (and (file-regular-p lfile1) (load-file lfile1)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6844 (and (file-regular-p lfile2) (load-file lfile2))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6845 (progn |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6846 (if (and idlwave-help-frame-parameters |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6847 (not (assoc 'width idlwave-help-frame-parameters))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6848 (push (cons 'width idlwave-help-frame-width) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6849 idlwave-help-frame-parameters)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6850 (or idlwave-help-topics |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6851 (error "File `%s' in help dir `%s' does not define `idlwave-help-topics'" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6852 "idlw-help.el" dir))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6853 (error "No such file `%s' in help dir `%s'" "idlw-help.el" dir)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6854 (if (file-regular-p hfile) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6855 (setq idlwave-help-is-loaded t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6856 idlwave-help-file hfile) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6857 (error "No such file `%s' in dir `%s'" "idlw-help.txt" dir))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6858 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6859 (defun idlwave-routine-info (&optional arg external) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6860 "Display a routines calling sequence and list of keywords. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6861 When point is on the name a function or procedure, or in the argument |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6862 list of a function or procedure, this command displays a help buffer |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6863 with the information. When called with prefix arg, enforce class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6864 query. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6865 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6866 When point is on an object operator `->', display the class stored in |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6867 this arrow, if any (see `idlwave-store-inquired-class'). With a |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6868 prefix arg, the class property is cleared out." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6869 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6870 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6871 (idlwave-routines) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6872 (if (string-match "->" (buffer-substring |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6873 (max (point-min) (1- (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6874 (min (+ 2 (point)) (point-max)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6875 ;; Cursor is on an arrow |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6876 (if (get-text-property (point) 'idlwave-class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6877 ;; arrow has class property |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6878 (if arg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6879 ;; Remove property |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6880 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6881 (backward-char 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6882 (when (looking-at ".?\\(->\\)") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6883 (remove-text-properties (match-beginning 1) (match-end 1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6884 '(idlwave-class nil face nil)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6885 (message "Class property removed from arrow"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6886 ;; Echo class property |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6887 (message "Arrow has text property identifying object to be class %s" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6888 (get-text-property (point) 'idlwave-class))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6889 ;; No property found |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6890 (message "Arrow has no class text property")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6891 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6892 ;; Not on an arrow... |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6893 (let* ((idlwave-query-class nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6894 (idlwave-force-class-query (equal arg '(4))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6895 (module (idlwave-what-module))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6896 (if (car module) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6897 (apply 'idlwave-display-calling-sequence |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6898 (idlwave-fix-module-if-obj_new module)) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
6899 (error "Don't know which calling sequence to show"))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6900 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6901 (defun idlwave-resolve (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6902 "Call RESOLVE on the module name at point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6903 Like `idlwave-routine-info', this looks for a routine call at point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6904 After confirmation in the minibuffer, it will use the shell to issue |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6905 a RESOLVE call for this routine, to attempt to make it defined and its |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6906 routine info available for IDLWAVE. If the routine is a method call, |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6907 both `class__method' and `class__define' will be tried. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6908 With ARG, enforce query for the class of object methods." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6909 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6910 (let* ((idlwave-query-class nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6911 (idlwave-force-class-query (equal arg '(4))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6912 (module (idlwave-what-module)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6913 (name (idlwave-make-full-name (nth 2 module) (car module))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6914 (type (if (eq (nth 1 module) 'pro) "pro" "function")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6915 (resolve (read-string "Resolve: " (format "%s %s" type name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6916 (kwd "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6917 class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6918 (if (string-match "\\(pro\\|function\\)[ \t]+\\(\\(.*\\)::\\)?\\(.*\\)" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6919 resolve) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6920 (setq type (match-string 1 resolve) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6921 class (if (match-beginning 2) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6922 (match-string 3 resolve) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6923 nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6924 name (match-string 4 resolve))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6925 (if (string= (downcase type) "function") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6926 (setq kwd ",/is_function")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6927 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6928 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6929 ((null class) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6930 (idlwave-shell-send-command |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6931 (format "resolve_routine,'%s'%s" (downcase name) kwd) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6932 'idlwave-update-routine-info |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6933 nil t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6934 (t |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6935 (idlwave-shell-send-command |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6936 (format "resolve_routine,'%s__define'%s" (downcase class) kwd) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6937 (list 'idlwave-shell-send-command |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6938 (format "resolve_routine,'%s__%s'%s" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6939 (downcase class) (downcase name) kwd) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6940 '(idlwave-update-routine-info) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6941 nil t)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6942 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6943 (defun idlwave-find-module (&optional arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6944 "Find the source code of an IDL module. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6945 Works for modules for which IDLWAVE has routine info available. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6946 The function offers as default the module name `idlwave-routine-info' would |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6947 use. With ARG force class query for object methods." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6948 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6949 (let* ((idlwave-query-class nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6950 (idlwave-force-class-query (equal arg '(4))) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6951 (module (idlwave-fix-module-if-obj_new (idlwave-what-module))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6952 (default (concat (idlwave-make-full-name (nth 2 module) (car module)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6953 (if (eq (nth 1 module) 'pro) "<p>" "<f>"))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6954 (list |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6955 (delq nil |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6956 (mapcar (lambda (x) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6957 (if (eq 'system (car-safe (nth 3 x))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6958 ;; Take out system routines with no source. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6959 nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6960 (cons |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6961 (concat (idlwave-make-full-name (nth 2 x) (car x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6962 (if (eq (nth 1 x) 'pro) "<p>" "<f>")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6963 (cdr x)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6964 (idlwave-routines)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6965 (name (idlwave-completing-read |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6966 (format "Module (Default %s): " |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6967 (if default default "none")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6968 list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6969 type class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6970 (if (string-match "\\`\\s-*\\'" name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6971 ;; Nothing, use the default. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6972 (setq name default)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6973 (if (string-match "<[fp]>" name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6974 (setq type (substring name -2 -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6975 name (substring name 0 -3))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6976 (if (string-match "\\(.*\\)::\\(.*\\)" name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6977 (setq class (match-string 1 name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6978 name (match-string 2 name))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6979 (setq name (idlwave-sintern-routine-or-method name class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6980 class (idlwave-sintern-class class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6981 type (cond ((equal type "f") 'fun) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6982 ((equal type "p") 'pro) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6983 (t t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6984 (idlwave-do-find-module name type class))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6985 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6986 (defun idlwave-do-find-module (name type class &optional force-source) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6987 (let ((name1 (idlwave-make-full-name class name)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6988 source buf1 entry |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6989 (buf (current-buffer)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6990 (pos (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6991 name2) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
6992 (setq entry (idlwave-best-rinfo-assq name type class (idlwave-routines)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6993 source (or force-source (nth 3 entry)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6994 name2 (if (nth 2 entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
6995 (idlwave-make-full-name (nth 2 entry) name) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
6996 name1)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6997 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6998 ((or (null name) (equal name "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
6999 (error "Abort")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7000 ((null entry) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7001 (error "Nothing known about a module %s" name2)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7002 ((eq (car source) 'system) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7003 (error "Source code for system routine %s is not available" |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7004 name2)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7005 ((equal (cdr source) "") |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
7006 (error "Source code for routine %s is not available" |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7007 name2)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7008 ((memq (car source) '(buffer lib compiled)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7009 (setq buf1 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7010 (if (eq (car source) 'lib) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7011 (idlwave-find-file-noselect |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7012 (idlwave-expand-lib-file-name |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7013 (or (cdr source) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7014 (format "%s.pro" (downcase name)))) 'find) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7015 (idlwave-find-file-noselect (cdr source) 'find))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7016 (pop-to-buffer buf1 t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7017 (goto-char (point-max)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7018 (let ((case-fold-search t)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7019 (if (re-search-backward |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7020 (concat "^[ \t]*\\<" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7021 (cond ((equal type "f") "function") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7022 ((equal type "p") "pro") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7023 (t "\\(pro\\|function\\)")) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7024 "\\>[ \t]+" |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7025 (regexp-quote (downcase name2)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7026 "[^a-zA-Z0-9_$]") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7027 nil t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7028 (goto-char (match-beginning 0)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7029 (pop-to-buffer buf) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7030 (goto-char pos) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7031 (error "Could not find routine %s" name2))))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7032 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7033 (defun idlwave-what-module () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7034 "Return a default module for stuff near point. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7035 Used by `idlwave-routine-info' and `idlwave-find-module'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7036 (idlwave-routines) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7037 (if (let ((case-fold-search t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7038 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7039 (idlwave-beginning-of-statement) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7040 (looking-at "[ \t]*\\(pro\\|function\\)[ \t]+\\(\\([a-zA-Z0-9_$]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)\\([, \t\n]\\|$\\)"))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7041 ;; This is a function or procedure definition statement |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7042 ;; We return the defined routine as module. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7043 (list |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7044 (idlwave-sintern-routine-or-method (match-string 4) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7045 (match-string 2)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7046 (if (equal (downcase (match-string 1)) "pro") 'pro 'fun) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7047 (idlwave-sintern-class (match-string 3))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7048 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7049 ;; Not a definition statement - analyze precise positon. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7050 (let* ((where (idlwave-where)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7051 (cw (nth 2 where)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7052 (pro (car (nth 0 where))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7053 (func (car (nth 1 where))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7054 (this-word (idlwave-this-word "a-zA-Z0-9$_")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7055 (next-char (save-excursion (skip-chars-forward "a-zA-Z0-9$_") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7056 (following-char))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7057 ) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7058 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7059 ((and (eq cw 'procedure) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7060 (not (equal this-word ""))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7061 (setq this-word (idlwave-sintern-routine-or-method |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7062 this-word (nth 2 (nth 3 where)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7063 (list this-word 'pro |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7064 (idlwave-determine-class |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7065 (cons this-word (cdr (nth 3 where))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7066 'pro))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7067 ((and (eq cw 'function) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7068 (not (equal this-word "")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7069 (or (eq next-char ?\() ; exclude arrays, vars. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7070 (looking-at "[a-zA-Z0-9_]*[ \t]*("))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7071 (setq this-word (idlwave-sintern-routine-or-method |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7072 this-word (nth 2 (nth 3 where)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7073 (list this-word 'fun |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7074 (idlwave-determine-class |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7075 (cons this-word (cdr (nth 3 where))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7076 'fun))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7077 ((and (memq cw '(function-keyword procedure-keyword)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7078 (not (equal this-word "")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7079 (eq next-char ?\()) ; A function! |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7080 (setq this-word (idlwave-sintern-routine this-word)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7081 (list this-word 'fun nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7082 (func |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7083 (list func 'fun (idlwave-determine-class (nth 1 where) 'fun))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7084 (pro |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7085 (list pro 'pro (idlwave-determine-class (nth 0 where) 'pro))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7086 (t nil))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7087 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7088 (defun idlwave-what-module-find-class () |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7089 "Call idlwave-what-module and find the inherited class if necessary." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7090 (let* ((module (idlwave-what-module)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7091 (class (nth 2 module)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7092 classes) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7093 (if (and (= (length module) 3) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7094 (stringp class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7095 (list (car module) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7096 (nth 1 module) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7097 (apply 'idlwave-find-inherited-class module)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7098 module))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7099 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7100 (defun idlwave-find-inherited-class (name type class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7101 "Find the class which defines TYPE NAME and is CLASS or inherited by CLASS." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7102 (let ((entry (idlwave-best-rinfo-assoc name type class (idlwave-routines)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7103 (if entry |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7104 (nth 2 entry) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7105 class))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7106 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7107 (defun idlwave-fix-module-if-obj_new (module) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7108 "Check if MODULE points to obj_new. If yes, and if the cursor is in the |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7109 keyword region, change to the appropriate Init method." |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7110 (let* ((name (car module)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7111 (pos (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7112 (case-fold-search t) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7113 string) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7114 (if (and (stringp name) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7115 (equal (downcase name) "obj_new") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7116 (save-excursion |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7117 (idlwave-beginning-of-statement) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7118 (setq string (buffer-substring (point) pos)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7119 (string-match "obj_new([^'\"]*['\"]\\([a-zA-Z0-9_]+\\)" |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7120 string))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7121 (let ((name "Init") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7122 (class (match-string 1 string))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7123 (setq module (list (idlwave-sintern-method "Init") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7124 'fun |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7125 (idlwave-sintern-class class))))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7126 module)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7127 |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7128 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7129 (defun idlwave-fix-keywords (name type class keywords) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7130 ;; This fixes the list of keywords. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7131 (let ((case-fold-search t)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7132 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7133 ;; If this is the OBJ_NEW function, try to figure out the class and use |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7134 ;; the keywords from the corresponding INIT method. |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7135 (if (and (equal (upcase name) "OBJ_NEW") |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7136 (or (eq major-mode 'idlwave-mode) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7137 (eq major-mode 'idlwave-shell-mode))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7138 (let* ((bos (save-excursion (idlwave-beginning-of-statement) (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7139 (string (buffer-substring bos (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7140 (case-fold-search t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7141 class) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7142 (and (string-match "obj_new([^'\"]*['\"]\\([a-zA-Z0-9_]+\\)" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7143 string) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7144 (setq class (idlwave-sintern-class (match-string 1 string))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7145 (setq idlwave-current-obj_new-class class) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7146 (setq keywords |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7147 (append keywords |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7148 (nth 5 (idlwave-rinfo-assq |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7149 (idlwave-sintern-method "INIT") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7150 'fun |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7151 class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7152 (idlwave-routines)))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7153 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7154 ;; If the class is `t', combine all keywords of all methods NAME |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7155 (when (eq class t) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7156 (loop for x in (idlwave-routines) do |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7157 (and (nth 2 x) ; non-nil class |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7158 (eq (nth 1 x) type) ; correct type |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7159 (eq (car x) name) ; correct name |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7160 (mapcar (lambda (k) (add-to-list 'keywords k)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7161 (nth 5 x)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7162 (setq keywords (idlwave-uniquify keywords))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7163 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7164 ;; If we have inheritance, add all keywords from superclasses, if |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7165 ;; the user indicated that method in |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7166 ;; `idlwave-keyword-class-inheritance' |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7167 (when (and |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7168 idlwave-keyword-class-inheritance |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7169 (stringp class) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7170 (or (assq (idlwave-sintern-keyword "_extra") keywords) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7171 (assq (idlwave-sintern-keyword "_ref_extra") keywords)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7172 (boundp 'super-classes) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7173 ;; Check if one of the keyword-class regexps matches the name |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7174 (let ((regexps idlwave-keyword-class-inheritance) re) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7175 (catch 'exit |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7176 (while (setq re (pop regexps)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7177 (if (string-match re name) (throw 'exit t)))))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7178 (loop for x in (idlwave-routines) do |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7179 (and (nth 2 x) ; non-nil class |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7180 (or (eq (nth 2 x) class) ; the right class |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7181 (memq (nth 2 x) super-classes)) ; an inherited class |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7182 (eq (nth 1 x) type) ; correct type |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7183 (eq (car x) name) ; correct name |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7184 (mapcar (lambda (k) (add-to-list 'keywords k)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7185 (nth 5 x)))) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7186 (setq keywords (idlwave-uniquify keywords))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7187 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7188 ;; Return the final list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7189 keywords)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7190 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7191 (defun idlwave-expand-keyword (keyword module) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7192 "Expand KEYWORD to one of the legal keyword parameters of MODULE. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7193 KEYWORD may be an exact match or an abbreviation of a keyword. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7194 If the match is exact, KEYWORD itself is returned, even if there may be other |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7195 keywords of which KEYWORD is an abbreviation. This is necessary because some |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7196 system routines have keywords which are prefixes of other keywords. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7197 If KEYWORD is an abbreviation of several keywords, a list of all possible |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7198 completions is returned. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7199 If the abbreviation was unique, the correct keyword is returned. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7200 If it cannot be a keyword, the function return nil. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7201 If we do not know about MODULE, just return KEYWORD literally." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7202 (let* ((name (car module)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7203 (type (nth 1 module)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7204 (class (nth 2 module)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7205 (kwd (idlwave-sintern-keyword keyword)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7206 (entry (idlwave-best-rinfo-assoc name type class (idlwave-routines))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7207 (kwd-alist (nth 5 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7208 (extra (or (assq (idlwave-sintern-keyword "_EXTRA") kwd-alist) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7209 (assq (idlwave-sintern-keyword "_REF_EXTRA") kwd-alist))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7210 (completion-ignore-case t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7211 candidates) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7212 (cond ((assq kwd kwd-alist) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7213 kwd) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7214 ((setq candidates (all-completions kwd kwd-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7215 (if (= (length candidates) 1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7216 (car candidates) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7217 candidates)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7218 ((and entry extra) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7219 ;; Inheritance may cause this keyword to be correct |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7220 keyword) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7221 (entry |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7222 ;; We do know the function, which does not have the keyword. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7223 nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7224 (t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7225 ;; We do not know the function, so this just might be a correct |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7226 ;; keyword - return it as it is. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7227 keyword)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7228 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7229 (defvar idlwave-rinfo-mouse-map (make-sparse-keymap)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7230 (defvar idlwave-rinfo-map (make-sparse-keymap)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7231 (define-key idlwave-rinfo-mouse-map |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7232 (if (featurep 'xemacs) [button2] [mouse-2]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7233 'idlwave-mouse-active-rinfo) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7234 (define-key idlwave-rinfo-mouse-map |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7235 (if (featurep 'xemacs) [(shift button2)] [(shift mouse-2)]) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7236 'idlwave-mouse-active-rinfo-shift) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7237 (define-key idlwave-rinfo-mouse-map |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7238 (if (featurep 'xemacs) [button3] [mouse-3]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7239 'idlwave-mouse-active-rinfo-right) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7240 (define-key idlwave-rinfo-mouse-map " " 'idlwave-active-rinfo-space) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7241 (define-key idlwave-rinfo-map "q" 'idlwave-quit-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7242 (define-key idlwave-rinfo-mouse-map "q" 'idlwave-quit-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7243 (defvar idlwave-popup-source nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7244 (defvar idlwave-rinfo-marker (make-marker)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7245 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7246 (defun idlwave-quit-help () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7247 (interactive) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7248 (let ((ri-window (get-buffer-window "*Help*")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7249 (olh-window (get-buffer-window "*IDLWAVE Help*"))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7250 (when (and olh-window |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7251 (fboundp 'idlwave-help-quit)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7252 (select-window olh-window) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7253 (idlwave-help-quit)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7254 (when (window-live-p ri-window) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7255 (delete-window ri-window)))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7256 |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7257 (defun idlwave-display-calling-sequence (name type class |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7258 &optional initial-class) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7259 ;; Display the calling sequence of module NAME, type TYPE in class CLASS. |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7260 (let* ((initial-class (or initial-class class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7261 (entry (or (idlwave-best-rinfo-assq name type class |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7262 (idlwave-routines)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7263 (idlwave-rinfo-assq name type class |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7264 idlwave-unresolved-routines))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7265 (name (or (car entry) name)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7266 (class (or (nth 2 entry) class)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7267 (superclasses (idlwave-all-class-inherits initial-class)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7268 (twins (idlwave-routine-twins entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7269 (dtwins (idlwave-study-twins twins)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7270 (all dtwins) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7271 (system (idlwave-rinfo-assq |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7272 name type class idlwave-system-routines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7273 (have-sysdoc (and system (idlwave-help-directory))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7274 ;; (source (nth 3 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7275 (have-olh (and (or system idlwave-extra-help-function) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7276 (idlwave-help-directory))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7277 (calling-seq (nth 4 entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7278 (keywords (nth 5 entry)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7279 (olh (nth 6 entry)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7280 (help-echo-kwd |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7281 (if have-olh |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7282 "Button2: Insert KEYWORD (SHIFT=`/KEYWORD') Button3: Online Help " |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7283 "Button2: Insert KEYWORD (SHIFT=`/KEYWORD').")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7284 (help-echo-use |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7285 (if have-olh |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7286 "Button2/3: Online Help" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7287 nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7288 (help-echo-src |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7289 (if (idlwave-help-directory) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7290 "Button2: Pop to source and back. Button3: Source in Help window." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7291 "Button2: Pop to source and back.")) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7292 (help-echo-class |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7293 "Button2: Display info about same method in superclass") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7294 (col 0) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7295 (data (list name type class (current-buffer) olh initial-class)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7296 (km-prop (if (featurep 'xemacs) 'keymap 'local-map)) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7297 (face 'idlwave-help-link-face) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7298 beg props win cnt total) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7299 (setq keywords (idlwave-fix-keywords name type class keywords)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7300 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7301 ((null entry) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7302 (error "No %s %s known %s" type name |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7303 (if initial-class (concat "in class " initial-class) ""))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7304 ((or (null name) (equal name "")) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
7305 (error "No function or procedure call at point")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7306 ((null calling-seq) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7307 (error "Calling sequence of %s %s is not available" type name)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7308 (t |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7309 (save-excursion |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7310 (move-marker idlwave-rinfo-marker (point)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7311 (set-buffer (get-buffer-create "*Help*")) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7312 (use-local-map idlwave-rinfo-map) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7313 (setq buffer-read-only nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7314 (erase-buffer) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7315 (set (make-local-variable 'idlwave-popup-source) nil) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7316 (set (make-local-variable 'idlwave-current-obj_new-class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7317 idlwave-current-obj_new-class) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7318 (when superclasses |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7319 (setq props (list 'mouse-face 'highlight |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7320 km-prop idlwave-rinfo-mouse-map |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7321 'help-echo help-echo-class |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7322 'data (cons 'class data))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7323 (let ((classes (cons initial-class superclasses)) c) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7324 (insert "Classes: ") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7325 (while (setq c (pop classes)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7326 (insert " ") |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7327 (setq beg (point)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7328 (insert c) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7329 (if (equal (downcase c) (downcase class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7330 (add-text-properties beg (point) (list 'face 'bold)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7331 (if (idlwave-rinfo-assq name type c (idlwave-routines)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7332 (add-text-properties beg (point) props)))) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7333 (insert "\n"))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7334 (setq props (if have-olh |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7335 (list 'mouse-face 'highlight |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7336 km-prop idlwave-rinfo-mouse-map |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7337 'help-echo help-echo-use |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7338 'data (cons 'usage data)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7339 (if have-sysdoc (setq props (append (list 'face face) props))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7340 (insert "Usage: ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7341 (setq beg (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7342 (insert (if class |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7343 (format calling-seq class name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7344 (format calling-seq name)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7345 "\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7346 (add-text-properties beg (point) props) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7347 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7348 (insert "Keywords:") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7349 (if (null keywords) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7350 (insert " No keywords accepted.") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7351 (setq col 9) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7352 (mapcar |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7353 (lambda (x) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7354 (if (>= (+ col 1 (length (car x))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7355 (window-width)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7356 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7357 (insert "\n ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7358 (setq col 9))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7359 (insert " ") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7360 (setq beg (point) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7361 props (list 'mouse-face 'highlight |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7362 km-prop idlwave-rinfo-mouse-map |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7363 'data (cons 'keyword data) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7364 'help-echo help-echo-kwd |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7365 'keyword (car x))) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7366 (if have-sysdoc (setq props (append (list 'face face) props))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7367 (insert (car x)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7368 (add-text-properties beg (point) props) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7369 (setq col (+ col 1 (length (car x))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7370 keywords)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7371 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7372 (setq cnt 1 total (length all)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7373 (while (setq entry (pop all)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7374 (setq props (list 'mouse-face 'highlight |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7375 km-prop idlwave-rinfo-mouse-map |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7376 'help-echo help-echo-src |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7377 'source (cons (car (nth 2 entry)) (nth 1 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7378 'data (cons 'source data))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7379 (idlwave-insert-source-location |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7380 (format "\n%-8s %s" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7381 (if (equal cnt 1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7382 (if (> total 1) "Sources:" "Source:") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7383 "") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7384 (if (> total 1) "- " "")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7385 entry props) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7386 (incf cnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7387 (when (and all (> cnt idlwave-rinfo-max-source-lines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7388 ;; No more source lines, please |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7389 (insert (format |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7390 "\n Source information truncated to %d entries." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7391 idlwave-rinfo-max-source-lines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7392 (setq all nil))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7393 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7394 (setq buffer-read-only t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7395 (display-buffer "*Help*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7396 (if (and (setq win (get-buffer-window "*Help*")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7397 idlwave-resize-routine-help-window) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7398 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7399 (let ((ww (selected-window))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7400 (unwind-protect |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7401 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7402 (select-window win) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7403 (enlarge-window (- (/ (frame-height) 2) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7404 (window-height))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7405 (shrink-window-if-larger-than-buffer)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7406 (select-window ww))))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7407 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7408 (defun idlwave-insert-source-location (prefix entry &optional file-props) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7409 "Insert a source location into the routine info buffer. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7410 Start line with PREFIX. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7411 If a file name is inserted, add FILE-PROPS to it." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7412 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7413 (let* ((key (car entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7414 (file (nth 1 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7415 (types (nth 2 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7416 (shell-flag (member 'compiled types)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7417 (buffer-flag (member 'buffer types)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7418 (lib-flag (member 'lib types)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7419 (ndupl (or (and buffer-flag (idlwave-count-eq 'buffer types)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7420 (and lib-flag (idlwave-count-eq 'lib types)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7421 1)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7422 (doflags t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7423 beg special) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7424 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7425 (insert prefix) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7426 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7427 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7428 ((eq key 'system) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7429 (setq doflags nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7430 (insert "System ")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7431 ((eq key 'builtin) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7432 (setq doflags nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7433 (insert "Builtin ")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7434 ((and (not file) shell-flag) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7435 (insert "Unresolved")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7436 ((null file) (insert "ERROR")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7437 ((setq special (idlwave-special-lib-test file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7438 (insert (format "%-10s" special))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7439 ((idlwave-syslib-p file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7440 (if (string-match "obsolete" (file-name-directory file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7441 (insert "Obsolete ") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7442 (insert "SystemLib "))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7443 ((idlwave-lib-p file) (insert "Library ")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7444 (t (insert "Other "))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7445 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7446 (when doflags |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7447 (insert (concat |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7448 " [" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7449 (if lib-flag "C" "-") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7450 (if shell-flag "S" "-") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7451 (if buffer-flag "B" "-") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7452 "] "))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7453 (when (> ndupl 1) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7454 (setq beg (point)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7455 (insert (format "(%dx) " ndupl)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7456 (add-text-properties beg (point) (list 'face 'bold))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7457 (when (and file (not (equal file ""))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7458 (setq beg (point)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7459 (insert (apply 'abbreviate-file-name |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7460 (if (featurep 'xemacs) (list file t) (list file)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7461 (if file-props |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7462 (add-text-properties beg (point) file-props))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7463 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7464 (defun idlwave-special-lib-test (file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7465 "Check the path of FILE against the regexps which define special libs. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7466 Return the name of the special lib if there is a match." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7467 (let ((alist idlwave-special-lib-alist) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7468 entry rtn) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7469 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7470 ((stringp file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7471 (while (setq entry (pop alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7472 (if (string-match (car entry) file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7473 (setq rtn (cdr entry) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7474 alist nil))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7475 rtn) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7476 (t nil)))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7477 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7478 (defun idlwave-mouse-active-rinfo-right (ev) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7479 (interactive "e") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7480 (idlwave-mouse-active-rinfo ev 'right)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7481 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7482 (defun idlwave-mouse-active-rinfo-shift (ev) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7483 (interactive "e") |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7484 (idlwave-mouse-active-rinfo ev nil 'shift)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7485 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7486 (defun idlwave-active-rinfo-space () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7487 (interactive) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7488 (idlwave-mouse-active-rinfo nil 'right)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7489 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7490 (defun idlwave-mouse-active-rinfo (ev &optional right shift) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7491 "Does the mouse actions in the routine info buffer. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7492 Optional args RIGHT and SHIFT indicate, if mouse-3 was used, and if SHIFT |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7493 was pressed." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7494 (interactive "e") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7495 (if ev (mouse-set-point ev)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7496 (let (data id name type class buf keyword bufwin source word initial-class) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7497 (setq data (get-text-property (point) 'data) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7498 source (get-text-property (point) 'source) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7499 keyword (get-text-property (point) 'keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7500 id (car data) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7501 name (nth 1 data) type (nth 2 data) class (nth 3 data) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7502 buf (nth 4 data) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7503 initial-class (nth 6 data) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7504 word (idlwave-this-word) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7505 bufwin (get-buffer-window buf t)) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7506 (cond ((eq id 'class) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7507 (if (window-live-p bufwin) (select-window bufwin)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7508 (idlwave-display-calling-sequence |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7509 (idlwave-sintern-method name) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7510 type (idlwave-sintern-class word) |
34433
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7511 initial-class)) |
31e98a1ac98f
Updated IDLWAVE to version 4.7
Carsten Dominik <dominik@science.uva.nl>
parents:
34342
diff
changeset
|
7512 ((eq id 'usage) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7513 (idlwave-require-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7514 (idlwave-online-help nil name type class)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7515 ((eq id 'source) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7516 (if (and right (idlwave-help-directory)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7517 (let ((idlwave-extra-help-function 'idlwave-help-with-source) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7518 (idlwave-help-source-try-header nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7519 ;; Fake idlwave-routines, to make help find the right entry |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7520 (idlwave-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7521 (list (list (nth 1 data) (nth 2 data) (nth 3 data) source "")))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7522 (idlwave-require-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7523 (idlwave-help-get-special-help name type class nil)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7524 (setq idlwave-popup-source (not idlwave-popup-source)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7525 (if idlwave-popup-source |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7526 (condition-case err |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7527 (idlwave-do-find-module name type class source) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7528 (error |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7529 (setq idlwave-popup-source nil) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7530 (if (window-live-p bufwin) (select-window bufwin)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7531 (error (nth 1 err)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7532 (if bufwin |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7533 (select-window bufwin) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7534 (pop-to-buffer buf)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7535 (goto-char (marker-position idlwave-rinfo-marker))))) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7536 ((eq id 'keyword) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7537 (if right |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7538 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7539 (idlwave-require-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7540 (idlwave-online-help nil name type class keyword)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7541 (idlwave-rinfo-insert-keyword keyword buf shift)))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7542 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7543 (defun idlwave-rinfo-insert-keyword (keyword buffer &optional shift) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7544 "Insert KEYWORD in BUFFER. Make sure buffer is displayed in a window." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7545 (let ((bwin (get-buffer-window buffer))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7546 (if idlwave-complete-empty-string-as-lower-case |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7547 (setq keyword (downcase keyword))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7548 (if bwin |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7549 (select-window bwin) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7550 (pop-to-buffer buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7551 (setq bwin (get-buffer-window buffer))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7552 (if (eq (preceding-char) ?/) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7553 (insert keyword) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7554 (unless (save-excursion |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7555 (re-search-backward |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7556 "[(,][ \t]*\\(\\$[ \t]*\\(;.*\\)?\n\\)?[ \t]*\\=" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7557 (min (- (point) 100) (point-min)) t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7558 (insert ", ")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7559 (if shift (insert "/")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7560 (insert keyword) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7561 (if (and (not shift) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7562 idlwave-keyword-completion-adds-equal) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7563 (insert "="))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7564 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7565 (defun idlwave-list-buffer-load-path-shadows (&optional arg) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7566 "List the load path shadows of all routines defined in current buffer." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7567 (interactive "P") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7568 (idlwave-routines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7569 (if (eq major-mode 'idlwave-mode) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7570 (idlwave-list-load-path-shadows |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7571 nil (idlwave-update-current-buffer-info 'save-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7572 "in current buffer") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7573 (error "Current buffer is not in idlwave-mode"))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7574 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7575 (defun idlwave-list-shell-load-path-shadows (&optional arg) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7576 "List the load path shadows of all routines compiled under the shell. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7577 This is very useful for checking an IDL application. Just compile the |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7578 application, do RESOLVE_ALL, and `C-c C-i' to compile all referenced |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7579 routines and update IDLWAVE internal info. Then check for shadowing |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7580 with this command." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7581 (interactive "P") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7582 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7583 ((or (not (fboundp 'idlwave-shell-is-running)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7584 (not (idlwave-shell-is-running))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7585 (error "Shell is not running")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7586 ((null idlwave-compiled-routines) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34708
diff
changeset
|
7587 (error "No compiled routines. Maybe you need to update with `C-c C-i'")) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7588 (t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7589 (idlwave-list-load-path-shadows nil idlwave-compiled-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7590 "in the shell")))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7591 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7592 (defun idlwave-list-all-load-path-shadows (&optional arg) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7593 "List the load path shadows of all routines known to IDLWAVE." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7594 (interactive "P") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7595 (idlwave-list-load-path-shadows nil nil "globally")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7596 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7597 (defun idlwave-list-load-path-shadows (arg &optional special-routines loc) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7598 "List the routines which are defined multiple times. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7599 Search the information IDLWAVE has about IDL routines for multiple |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7600 definitions. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7601 When SPECIAL-ROUTINES in non-nil, only look for shadows of these routines. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7602 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7603 When IDL hits a routine call which is not defined, it will search on |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7604 the load path in order to find a definition. The output of this |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7605 command can be used to detect possible name clashes during this process." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7606 (idlwave-routines) ; Make sure everything is loaded. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7607 (unless idlwave-library-routines |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7608 (or (y-or-n-p |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7609 "You don't have a library catalog. Continue anyway? ") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7610 (error "Abort"))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7611 (let* ((routines (append idlwave-system-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7612 idlwave-compiled-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7613 idlwave-library-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7614 idlwave-buffer-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7615 nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7616 (km-prop (if (featurep 'xemacs) 'keymap 'local-map)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7617 (keymap (make-sparse-keymap)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7618 (props (list 'mouse-face 'highlight |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7619 km-prop keymap |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7620 'help-echo "Mouse2: Find source")) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7621 (nroutines (length (or special-routines routines))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7622 (step (/ nroutines 99)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7623 (n 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7624 (next-perc 1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7625 (cnt 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7626 (idlwave-sort-prefer-buffer-info nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7627 routine twins dtwins twin done props1 lroutines) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7628 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7629 (if special-routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7630 ;; Just looking for shadows of a few special routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7631 (setq lroutines routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7632 routines special-routines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7633 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7634 (message "Sorting routines...") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7635 (setq routines (sort routines |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7636 (lambda (a b) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7637 (string< (downcase (idlwave-make-full-name |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7638 (nth 2 a) (car a))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7639 (downcase (idlwave-make-full-name |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7640 (nth 2 b) (car b))))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7641 (message "Sorting routines...done") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7642 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7643 (define-key keymap (if (featurep 'xemacs) [(button2)] [(mouse-2)]) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7644 (lambda (ev) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7645 (interactive "e") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7646 (mouse-set-point ev) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7647 (apply 'idlwave-do-find-module |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7648 (get-text-property (point) 'find-args)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7649 (define-key keymap [(return)] |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7650 (lambda () |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7651 (interactive) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7652 (apply 'idlwave-do-find-module |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7653 (get-text-property (point) 'find-args)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7654 (message "Compiling list...( 0%%)") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7655 (save-excursion |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7656 (set-buffer (get-buffer-create "*Shadows*")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7657 (setq buffer-read-only nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7658 (erase-buffer) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7659 (while (setq routine (pop routines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7660 (setq n (1+ n)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7661 (if (= (* next-perc step) n) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7662 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7663 (message "Compiling list...(%2d%%)" next-perc) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7664 (setq next-perc (1+ next-perc)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7665 ;; Get a list of all twins |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7666 (setq twins (idlwave-routine-twins routine (or lroutines routines))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7667 (if (memq routine done) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7668 (setq dtwins nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7669 (setq dtwins (idlwave-study-twins twins))) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
7670 ;; Mark all twins as dealt with |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7671 (setq done (append twins done)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7672 (when (or (> (length dtwins) 1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7673 (> (idlwave-count-eq 'lib (nth 2 (car dtwins))) 1) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7674 (> (idlwave-count-eq 'buffer (nth 2 (car dtwins))) 1)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7675 (incf cnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7676 (insert (format "\n%s%s" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7677 (idlwave-make-full-name (nth 2 routine) (car routine)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7678 (if (eq (nth 1 routine) 'fun) "()" ""))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7679 (while (setq twin (pop dtwins)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7680 (setq props1 (append (list 'find-args |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7681 (list (nth 0 routine) |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7682 (nth 1 routine) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7683 (nth 2 routine) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7684 (cons 'lib (nth 1 twin)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7685 props)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7686 (idlwave-insert-source-location "\n - " twin props1)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7687 (goto-char (point-min)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7688 (setq buffer-read-only t)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7689 (setq loc (or loc "")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7690 (if (> cnt 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7691 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7692 (display-buffer (get-buffer "*Shadows*")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7693 (message "%d case%s of shadowing found %s" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7694 cnt (if (= cnt 1) "" "s") loc)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7695 (message "No shadowing conflicts found %s" loc)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7696 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7697 (defun idlwave-print-source (routine) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7698 (let* ((source (nth 3 routine)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7699 (stype (car source)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7700 (sfile (cdr source))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7701 (if (and (eq stype 'lib) sfile) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7702 (progn |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7703 (setq sfile (idlwave-expand-lib-file-name sfile)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7704 (if (idlwave-syslib-p sfile) (setq stype 'syslib)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7705 (if (and (eq stype 'compiled) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7706 (or (not (stringp sfile)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7707 (not (string-match "\\S-" sfile)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7708 (setq stype 'unresolved)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7709 (princ (format " %-10s %s\n" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7710 stype |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7711 (if sfile sfile "No source code available"))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7712 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7713 (defun idlwave-routine-twins (entry &optional list) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7714 "Return all twin entries of ENTRY in LIST. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7715 LIST defaults to `idlwave-routines'. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7716 Twin entries are those which have the same name, type, and class. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7717 ENTRY will also be returned, as the first item of this list." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7718 (let* ((name (car entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7719 (type (nth 1 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7720 (class (nth 2 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7721 (candidates (idlwave-all-assq name (or list (idlwave-routines)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7722 twins candidate) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7723 (while (setq candidate (pop candidates)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7724 (if (and (not (eq candidate entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7725 (eq type (nth 1 candidate)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7726 (eq class (nth 2 candidate))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7727 (push candidate twins))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7728 (if (setq candidate (idlwave-rinfo-assq name type class |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7729 idlwave-unresolved-routines)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7730 (push candidate twins)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7731 (cons entry (nreverse twins)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7732 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7733 (defun idlwave-study-twins (entries) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7734 "Return dangerous twins of first entry in TWINS. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7735 Dangerous twins are routines with same name, but in different files |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7736 on the load path. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7737 If a file is in the system library and has an entry in the |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7738 `idlwave-system-routines' list, we omit the latter because many IDL |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7739 routines are implemented as library routines." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7740 (let* ((entry (car entries)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7741 (name (car entry)) ; |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7742 (type (nth 1 entry)) ; Must be bound for |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7743 (class (nth 2 entry)) ; idlwave-routine-twin-compare |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7744 (cnt 0) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7745 source type file thefile alist syslibp key) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7746 (while (setq entry (pop entries)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7747 (incf cnt) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7748 (setq source (nth 3 entry) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7749 type (car source) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7750 file (cdr source)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7751 (if (eq type 'lib) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7752 (setq file (idlwave-expand-lib-file-name file))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7753 ;; Make KEY to index entry properly |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7754 (setq key (cond ((eq type 'system) type) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7755 (file (file-truename file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7756 (t 'unresolved))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7757 (if (and file |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7758 (not syslibp) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7759 (idlwave-syslib-p file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7760 ;; We do have an entry in the system library |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7761 (setq syslibp t)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7762 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7763 (setq thefile (or thefile file)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7764 (if (setq entry (assoc key alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7765 (push type (nth 2 entry)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7766 (push (list key file (list type)) alist))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7767 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7768 (setq alist (nreverse alist)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7769 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7770 (when syslibp |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7771 ;; File is system *library* - remove any system entry |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7772 (setq alist (delq (assoc 'system alist) alist))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7773 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7774 (when (and (idlwave-syslib-scanned-p) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7775 (setq entry (assoc 'system alist))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7776 (setcar entry 'builtin)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7777 (sort alist 'idlwave-routine-twin-compare))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7778 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7779 (defvar name) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7780 (defvar type) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7781 (defvar class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7782 (defvar idlwave-sort-prefer-buffer-info t |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7783 "Internal variable used to influence `idlwave-routine-twin-compare'.") |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7784 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7785 (defmacro idlwave-xor (a b) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7786 `(and (or ,a ,b) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7787 (not (and ,a ,b)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7788 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7789 (defun idlwave-routine-entry-compare (a b) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7790 "Compare two routine info entries for sortiung. This is the general case. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7791 It first compates class, names, and type. If it turns out that A and B |
47261
863b1f0c98f8
(idlwave-support-inheritance, idlwave-routine-entry-compare): Fix spacing.
Juanma Barranquero <lekktu@gmail.com>
parents:
47125
diff
changeset
|
7792 are twins (same name, class, and type), calls another routine which |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7793 compares twins on the basis of their file names and path locations." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7794 (let ((name (car a)) (type (nth 1 a)) (class (nth 2 a))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7795 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7796 ((not (equal (idlwave-downcase-safe class) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7797 (idlwave-downcase-safe (nth 2 b)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7798 ;; Class decides |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7799 (cond ((null (nth 2 b)) nil) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7800 ((null class) t) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7801 (t (string< (downcase class) (downcase (nth 2 b)))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7802 ((not (equal (downcase name) (downcase (car b)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7803 ;; Name decides |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7804 (string< (downcase name) (downcase (car b)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7805 ((not (eq type (nth 1 b))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7806 ;; Type decides |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7807 (< (if (eq type 'fun) 1 0) (if (eq (nth 1 b) 'fun) 1 0))) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
7808 (t |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7809 ;; A and B are twins - so the decision is more complicated. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7810 ;; Call twin-compare with the proper arguments. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7811 (idlwave-routine-entry-compare-twins a b))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7812 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7813 (defun idlwave-routine-entry-compare-twins (a b) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7814 "Compare two routine entries, under the assumption that they are twins. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7815 This basically calles `idlwave-routine-twin-compare' with the correct args." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7816 (let ((name (car a)) (type (nth 1 a)) (class (nth 2 a)) ; needed outside |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7817 (atype (car (nth 3 a))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7818 (btype (car (nth 3 b))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7819 (afile (cdr (nth 3 a))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7820 (bfile (cdr (nth 3 b)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7821 (if (eq atype 'lib) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7822 (setq afile (idlwave-expand-lib-file-name afile))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7823 (if (eq btype 'lib) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7824 (setq bfile (idlwave-expand-lib-file-name bfile))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7825 (idlwave-routine-twin-compare |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7826 (if (stringp afile) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7827 (list (file-truename afile) afile (list atype)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7828 (list atype afile (list atype))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7829 (if (stringp bfile) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7830 (list (file-truename bfile) bfile (list btype)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7831 (list btype bfile (list btype)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7832 )) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7833 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7834 (defun idlwave-routine-twin-compare (a b) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7835 "Compare two routine twin entries for sorting. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7836 In here, A and B are not normal routine info entries, but special |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7837 lists (KEY FILENAME (TYPES...)). |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7838 This expects NAME TYPE CLASS to be bound to the right values." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7839 (let* (;; Dis-assemble entries |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7840 (akey (car a)) (bkey (car b)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7841 (afile (nth 1 a)) (bfile (nth 1 b)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7842 (atypes (nth 2 a)) (btypes (nth 2 b)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7843 ;; System routines? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7844 (asysp (memq akey '(builtin system))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7845 (bsysp (memq bkey '(builtin system))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7846 ;; Compiled routines? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7847 (acompp (memq 'compiled atypes)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7848 (bcompp (memq 'compiled btypes)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7849 ;; Unresolved? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7850 (aunresp (or (eq akey 'unresolved) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7851 (and acompp (not afile)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7852 (bunresp (or (eq bkey 'unresolved) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7853 (and bcompp (not bfile)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7854 ;; Buffer info available? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7855 (abufp (memq 'buffer atypes)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7856 (bbufp (memq 'buffer btypes)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7857 ;; On search path? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7858 (tpath-alist (idlwave-true-path-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7859 (apathp (assoc akey tpath-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7860 (bpathp (assoc bkey tpath-alist)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7861 ;; How early on search path? High number means early since we |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7862 ;; measure the tail of the path list |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7863 (anpath (length (memq apathp tpath-alist))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7864 (bnpath (length (memq bpathp tpath-alist))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7865 ;; Look at file names |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7866 (aname (if (stringp afile) (downcase (file-name-nondirectory afile)) "")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7867 (bname (if (stringp bfile) (downcase (file-name-nondirectory bfile)) "")) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7868 (fname-re (if class (format "\\`%s__\\(%s\\|define\\)\\.pro\\'" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7869 (regexp-quote (downcase class)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7870 (regexp-quote (downcase name))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7871 (format "\\`%s\\.pro" (regexp-quote (downcase name))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7872 ;; Is file name derived from the routine name? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7873 ;; Method file or class definition file? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7874 (anamep (string-match fname-re aname)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7875 (adefp (and class anamep (string= "define" (match-string 1 aname)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7876 (bnamep (string-match fname-re bname)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7877 (bdefp (and class bnamep (string= "define" (match-string 1 bname))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7878 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7879 ;; Now: follow JD's ideas about sorting. Looks really simple now, |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7880 ;; doesn't it? The difficult stuff is hidden above... |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7881 (cond |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7882 ((idlwave-xor asysp bsysp) asysp) ; System entries first |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7883 ((idlwave-xor aunresp bunresp) bunresp) ; Unresolved last |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7884 ((and idlwave-sort-prefer-buffer-info |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7885 (idlwave-xor abufp bbufp)) abufp) ; Buffers before non-buffers |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7886 ((idlwave-xor acompp bcompp) acompp) ; Compiled entries |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7887 ((idlwave-xor apathp bpathp) apathp) ; Library before non-library |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7888 ((idlwave-xor anamep bnamep) anamep) ; Correct file names first |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7889 ((and class anamep bnamep ; both file names match -> |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7890 (idlwave-xor adefp bdefp)) bdefp) ; __define after __method |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7891 ((> anpath bnpath) t) ; Who is first on path? |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7892 (t nil)))) ; Default |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7893 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7894 (defun idlwave-downcase-safe (string) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7895 "Donwcase if string, else return unchanged." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7896 (if (stringp string) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7897 (downcase string) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7898 string)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7899 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7900 (defun idlwave-count-eq (elt list) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7901 "How often is ELT in LIST?" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7902 (length (delq nil (mapcar (lambda (x) (eq x elt)) list)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7903 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7904 (defun idlwave-syslib-p (file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7905 "Non-nil of FILE is in the system library." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7906 (let* ((true-syslib (file-name-as-directory |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7907 (file-truename |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7908 (expand-file-name "lib" (idlwave-sys-dir))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7909 (true-file (file-truename file))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7910 (string-match (concat "^" (regexp-quote true-syslib)) true-file))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7911 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7912 (defun idlwave-lib-p (file) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7913 "Non-nil if file is in the library" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7914 (let ((true-dir (file-name-directory (file-truename file)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7915 (assoc true-dir (idlwave-true-path-alist)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7916 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7917 (defun idlwave-true-path-alist () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7918 "Return `idlwave-path-alist' alist with true-names. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7919 Info is cached, but relies on the functons setting `idlwave-path-alist' |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7920 to reset the variable `idlwave-true-path-alist' to nil." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7921 (or idlwave-true-path-alist |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7922 (setq idlwave-true-path-alist |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7923 (mapcar (lambda(x) (cons |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7924 (file-name-as-directory |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7925 (file-truename |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7926 (directory-file-name |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7927 (car x)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7928 (cdr x))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7929 idlwave-path-alist)))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7930 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7931 (defun idlwave-syslib-scanned-p () |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7932 "Non-nil if the system lib file !DIR/lib has been scanned." |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7933 (let* ((true-syslib (file-name-as-directory |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7934 (file-truename |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7935 (expand-file-name "lib" (idlwave-sys-dir)))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7936 (cdr (assoc true-syslib (idlwave-true-path-alist))))) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7937 |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7938 ;; ---------------------------------------------------------------------------- |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7939 ;; |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7940 ;; Online Help display |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
7941 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7942 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7943 ;; ---------------------------------------------------------------------------- |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7944 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7945 ;; Additions for use with imenu.el and func-menu.el |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7946 ;; (pop-up a list of IDL units in the current file). |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7947 ;; |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7948 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7949 (defun idlwave-prev-index-position () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7950 "Search for the previous procedure or function. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7951 Return nil if not found. For use with imenu.el." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7952 (save-match-data |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7953 (cond |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7954 ((idlwave-find-key "\\<\\(pro\\|function\\)\\>" -1 'nomark)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7955 ;; ((idlwave-find-key idlwave-begin-unit-reg 1 'nomark) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7956 (t nil)))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7957 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7958 (defun idlwave-unit-name () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7959 "Return the unit name. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7960 Assumes that point is at the beginning of the unit as found by |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7961 `idlwave-prev-index-position'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7962 (forward-sexp 2) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7963 (forward-sexp -1) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7964 (let ((begin (point))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7965 (re-search-forward "[a-zA-Z][a-zA-Z0-9$_]+\\(::[a-zA-Z][a-zA-Z0-9$_]+\\)?") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7966 (if (fboundp 'buffer-substring-no-properties) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7967 (buffer-substring-no-properties begin (point)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7968 (buffer-substring begin (point))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7969 |
47479 | 7970 (defalias 'idlwave-function-menu |
7971 (condition-case nil | |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7972 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7973 (require 'func-menu) |
47479 | 7974 'function-menu) |
7975 (error (condition-case nil | |
7976 (progn | |
7977 (require 'imenu) | |
7978 'imenu) | |
7979 (error nil))))) | |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7980 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7981 ;; Here we kack func-menu.el in order to support this new mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7982 ;; The latest versions of func-menu.el already have this stuff in, so |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7983 ;; we hack only if it is not already there. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7984 (when (fboundp 'eval-after-load) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7985 (eval-after-load "func-menu" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7986 '(progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7987 (or (assq 'idlwave-mode fume-function-name-regexp-alist) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7988 (not (boundp 'fume-function-name-regexp-idl)) ; avoid problems |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7989 (setq fume-function-name-regexp-alist |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7990 (cons '(idlwave-mode . fume-function-name-regexp-idl) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7991 fume-function-name-regexp-alist))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7992 (or (assq 'idlwave-mode fume-find-function-name-method-alist) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7993 (not (fboundp 'fume-find-next-idl-function-name)) ; avoid problems |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7994 (setq fume-find-function-name-method-alist |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7995 (cons '(idlwave-mode . fume-find-next-idl-function-name) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7996 fume-find-function-name-method-alist)))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7997 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7998 (defun idlwave-edit-in-idlde () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
7999 "Edit the current file in IDL Development environment." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8000 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8001 (start-process "idldeclient" nil |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8002 idlwave-shell-explicit-file-name "-c" "-e" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8003 (buffer-file-name) "&")) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8004 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8005 (defun idlwave-launch-idlhelp () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8006 "Start the IDLhelp application." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8007 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8008 (start-process "idlhelp" nil idlwave-help-application)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8009 |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8010 ;; Menus - using easymenu.el |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8011 (defvar idlwave-mode-menu-def |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8012 `("IDLWAVE" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8013 ["PRO/FUNC menu" idlwave-function-menu t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8014 ("Motion" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8015 ["Subprogram Start" idlwave-beginning-of-subprogram t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8016 ["Subprogram End" idlwave-end-of-subprogram t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8017 ["Block Start" idlwave-beginning-of-block t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8018 ["Block End" idlwave-end-of-block t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8019 ["Up Block" idlwave-backward-up-block t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8020 ["Down Block" idlwave-down-block t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8021 ["Skip Block Backward" idlwave-backward-block t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8022 ["Skip Block Forward" idlwave-forward-block t]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8023 ("Mark" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8024 ["Subprogram" idlwave-mark-subprogram t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8025 ["Block" idlwave-mark-block t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8026 ["Header" idlwave-mark-doclib t]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8027 ("Format" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8028 ["Indent Subprogram" idlwave-indent-subprogram t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8029 ["(Un)Comment Region" idlwave-toggle-comment-region "C-c ;"] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8030 ["Continue/Split line" idlwave-split-line t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8031 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8032 ["Toggle Auto Fill" idlwave-auto-fill-mode :style toggle |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8033 :selected (symbol-value idlwave-fill-function)]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8034 ("Templates" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8035 ["Procedure" idlwave-procedure t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8036 ["Function" idlwave-function t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8037 ["Doc Header" idlwave-doc-header t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8038 ["Log" idlwave-doc-modification t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8039 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8040 ["Case" idlwave-case t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8041 ["For" idlwave-for t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8042 ["Repeat" idlwave-repeat t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8043 ["While" idlwave-while t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8044 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8045 ["Close Block" idlwave-close-block t]) |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8046 ("Completion" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8047 ["Complete" idlwave-complete t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8048 ("Complete Special" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8049 ["1 Procedure Name" (idlwave-complete 'procedure) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8050 ["2 Procedure Keyword" (idlwave-complete 'procedure-keyword) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8051 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8052 ["3 Function Name" (idlwave-complete 'function) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8053 ["4 Function Keyword" (idlwave-complete 'function-keyword) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8054 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8055 ["5 Procedure Method Name" (idlwave-complete 'procedure-method) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8056 ["6 Procedure Method Keyword" (idlwave-complete 'procedure-method-keyword) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8057 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8058 ["7 Function Method Name" (idlwave-complete 'function-method) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8059 ["8 Function Method Keyword" (idlwave-complete 'function-method-keyword) t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8060 "--" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8061 ["9 Class Name" idlwave-complete-class t])) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8062 ("Routine Info" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8063 ["Show Routine Info" idlwave-routine-info t] |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8064 ["Online Context Help" idlwave-context-help (idlwave-help-directory)] |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8065 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8066 ["Find Routine Source" idlwave-find-module t] |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8067 ["Resolve Routine" idlwave-resolve (featurep 'idlw-shell)] |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8068 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8069 ["Update Routine Info" idlwave-update-routine-info t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8070 "--" |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8071 "IDL Library Catalog" |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8072 ["Select Catalog Directories" (idlwave-create-libinfo-file nil) t] |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8073 ["Scan Directories" (idlwave-update-routine-info '(16)) |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8074 (and idlwave-path-alist (not idlwave-catalog-process))] |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8075 ["Scan Directories &" (idlwave-update-routine-info '(64)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8076 (and idlwave-path-alist (not idlwave-catalog-process))] |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8077 "--" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8078 "Routine Shadows" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8079 ["Check Current Buffer" idlwave-list-buffer-load-path-shadows t] |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8080 ["Check Compiled Routines" idlwave-list-shell-load-path-shadows t] |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8081 ["Check Everything" idlwave-list-all-load-path-shadows t]) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8082 ("Misc" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8083 ["Kill auto-created buffers" idlwave-kill-autoloaded-buffers t] |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8084 "--" |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8085 ["Insert TAB character" idlwave-hard-tab t]) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8086 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8087 ("External" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8088 ["Generate IDL tags" idlwave-make-tags t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8089 ["Start IDL shell" idlwave-shell t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8090 ["Edit file in IDLDE" idlwave-edit-in-idlde t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8091 ["Launch IDL Help" idlwave-launch-idlhelp t]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8092 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8093 ("Customize" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8094 ["Browse IDLWAVE Group" idlwave-customize t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8095 "--" |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8096 ["Build Full Customize Menu" idlwave-create-customize-menu |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8097 (fboundp 'customize-menu-create)]) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8098 ("Documentation" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8099 ["Describe Mode" describe-mode t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8100 ["Abbreviation List" idlwave-list-abbrevs t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8101 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8102 ["Commentary in idlwave.el" idlwave-show-commentary t] |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
8103 ["Commentary in idlw-shell.el" idlwave-shell-show-commentary t] |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8104 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8105 ["Info" idlwave-info t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8106 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8107 ["Launch IDL Help" idlwave-launch-idlhelp t]))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8108 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8109 (defvar idlwave-mode-debug-menu-def |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8110 '("Debug" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8111 ["Start IDL shell" idlwave-shell t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8112 ["Save and .RUN buffer" idlwave-shell-save-and-run |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8113 (and (boundp 'idlwave-shell-automatic-start) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8114 idlwave-shell-automatic-start)])) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8115 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8116 (if (or (featurep 'easymenu) (load "easymenu" t)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8117 (progn |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8118 (easy-menu-define idlwave-mode-menu idlwave-mode-map |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8119 "IDL and WAVE CL editing menu" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8120 idlwave-mode-menu-def) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8121 (easy-menu-define idlwave-mode-debug-menu idlwave-mode-map |
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8122 "IDL and WAVE CL editing menu" |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8123 idlwave-mode-debug-menu-def))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8124 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8125 (defun idlwave-customize () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8126 "Call the customize function with idlwave as argument." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8127 (interactive) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8128 ;; Try to load the code for the shell, so that we can customize it |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8129 ;; as well. |
27185
ae5b17b9c403
fixed some bugs associated with the new file names
Carsten Dominik <dominik@science.uva.nl>
parents:
27107
diff
changeset
|
8130 (or (featurep 'idlw-shell) |
ae5b17b9c403
fixed some bugs associated with the new file names
Carsten Dominik <dominik@science.uva.nl>
parents:
27107
diff
changeset
|
8131 (load "idlw-shell" t)) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8132 (customize-browse 'idlwave)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8133 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8134 (defun idlwave-create-customize-menu () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8135 "Create a full customization menu for IDLWAVE, insert it into the menu." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8136 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8137 (if (fboundp 'customize-menu-create) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8138 (progn |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8139 ;; Try to load the code for the shell, so that we can customize it |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8140 ;; as well. |
27185
ae5b17b9c403
fixed some bugs associated with the new file names
Carsten Dominik <dominik@science.uva.nl>
parents:
27107
diff
changeset
|
8141 (or (featurep 'idlw-shell) |
ae5b17b9c403
fixed some bugs associated with the new file names
Carsten Dominik <dominik@science.uva.nl>
parents:
27107
diff
changeset
|
8142 (load "idlw-shell" t)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8143 (easy-menu-change |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8144 '("IDLWAVE") "Customize" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8145 `(["Browse IDLWAVE group" idlwave-customize t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8146 "--" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8147 ,(customize-menu-create 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8148 ["Set" Custom-set t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8149 ["Save" Custom-save t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8150 ["Reset to Current" Custom-reset-current t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8151 ["Reset to Saved" Custom-reset-saved t] |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8152 ["Reset to Standard Settings" Custom-reset-standard t])) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8153 (message "\"IDLWAVE\"-menu now contains full customization menu")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8154 (error "Cannot expand menu (outdated version of cus-edit.el)"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8155 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8156 (defun idlwave-show-commentary () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8157 "Use the finder to view the file documentation from `idlwave.el'." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8158 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8159 (require 'finder) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8160 (finder-commentary "idlwave.el")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8161 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8162 (defun idlwave-shell-show-commentary () |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
8163 "Use the finder to view the file documentation from `idlw-shell.el'." |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8164 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8165 (require 'finder) |
27606
0396e9e8d57b
(idlwave-template): Respect `idlwave-abbrev-change-case'.
Carsten Dominik <dominik@science.uva.nl>
parents:
27185
diff
changeset
|
8166 (finder-commentary "idlw-shell.el")) |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8167 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8168 (defun idlwave-info () |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8169 "Read documentation for IDLWAVE in the info system." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8170 (interactive) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8171 (require 'info) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8172 (Info-goto-node "(idlwave)")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8173 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8174 (defun idlwave-list-abbrevs (arg) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8175 "Show the code abbreviations define in IDLWAVE mode. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8176 This lists all abbrevs where the replacement text differs from the input text. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8177 These are the ones the users want to learn to speed up their writing. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8178 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8179 The function does *not* list abbrevs which replace a word with itself |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8180 to call a hook. These hooks are used to change the case of words or |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8181 to blink the matching `begin', and the user does not need to know them. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8182 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8183 With arg, list all abbrevs with the corresponding hook. |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8184 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8185 This function was written since `list-abbrevs' looks terrible for IDLWAVE mode." |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8186 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8187 (interactive "P") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8188 (let ((table (symbol-value 'idlwave-mode-abbrev-table)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8189 abbrevs |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8190 str rpl func fmt (len-str 0) (len-rpl 0)) |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8191 (mapatoms |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8192 (lambda (sym) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8193 (if (symbol-value sym) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8194 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8195 (setq str (symbol-name sym) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8196 rpl (symbol-value sym) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8197 func (symbol-function sym)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8198 (if arg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8199 (setq func (prin1-to-string func)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8200 (if (and (listp func) (stringp (nth 2 func))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8201 (setq rpl (concat "EVAL: " (nth 2 func)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8202 func "") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8203 (setq func ""))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8204 (if (or arg (not (string= rpl str))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8205 (progn |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8206 (setq len-str (max len-str (length str))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8207 (setq len-rpl (max len-rpl (length rpl))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8208 (setq abbrevs (cons (list str rpl func) abbrevs))))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8209 table) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8210 ;; sort the list |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8211 (setq abbrevs (sort abbrevs (lambda (a b) (string< (car a) (car b))))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8212 ;; Make the format |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8213 (setq fmt (format "%%-%ds %%-%ds %%s\n" len-str len-rpl)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8214 (with-output-to-temp-buffer "*Help*" |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8215 (if arg |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8216 (progn |
47930
43574ede3ab1
(idlwave-region-active-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47479
diff
changeset
|
8217 (princ "Abbreviations and Actions in IDLWAVE-Mode\n") |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8218 (princ "=========================================\n\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8219 (princ (format fmt "KEY" "REPLACE" "HOOK")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8220 (princ (format fmt "---" "-------" "----"))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8221 (princ "Code Abbreviations and Templates in IDLWAVE-Mode\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8222 (princ "================================================\n\n") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8223 (princ (format fmt "KEY" "ACTION" "")) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8224 (princ (format fmt "---" "------" ""))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8225 (mapcar |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8226 (lambda (list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8227 (setq str (car list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8228 rpl (nth 1 list) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8229 func (nth 2 list)) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8230 (princ (format fmt str rpl func))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8231 abbrevs))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8232 ;; Make sure each abbreviation uses only one display line |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8233 (save-excursion |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8234 (set-buffer "*Help*") |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8235 (setq truncate-lines t))) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8236 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8237 ;; Add .pro files to speedbar for support, if it's loaded |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8238 (eval-after-load "speedbar" '(speedbar-add-supported-extension ".pro")) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8239 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8240 ;; Try to load online help, but catch any errors. |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8241 (condition-case nil |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8242 (idlwave-require-online-help) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8243 (error nil)) |
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8244 |
46529
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8245 ;; Set an idle timer to load the routine info. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8246 ;; Will only work on systems which support this. |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8247 (or idlwave-routines (idlwave-start-load-rinfo-timer)) |
148f4d9a8905
Updated to IDLWAVE version 4.14. See idlwave.org.
J.D. Smith <jdsmith@as.arizona.edu>
parents:
45318
diff
changeset
|
8248 |
29774
8eff9cc9cbae
Files re-installed, because changes are too massive to document them here.
Carsten Dominik <dominik@science.uva.nl>
parents:
27606
diff
changeset
|
8249 ;; Run the hook |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8250 (run-hooks 'idlwave-load-hook) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8251 |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8252 (provide 'idlwave) |
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8253 |
52401 | 8254 ;;; arch-tag: f77f3b0c-c37c-424f-a328-0886fd42b6fb |
26956
67b3331ff24c
Major mode for editing files of the Interactive Data Language
Carsten Dominik <dominik@science.uva.nl>
parents:
diff
changeset
|
8255 ;;; idlwave.el ends here |