Mercurial > emacs
annotate lisp/generic-x.el @ 60931:494d942e49fe
(python-close-block-statement-p)
(python-outdent-p, python-current-defun): Use symbol-end.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 25 Mar 2005 14:36:08 +0000 |
parents | 9be398c4e5e3 |
children | 0734d1fd2a88 4da4a09e8b1b |
rev | line source |
---|---|
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1 ;;; generic-x.el --- Extra Modes for generic-mode |
21205 | 2 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
3 ;; Copyright (C) 1997, 1998, 2003, 2005 Free Software Foundation, Inc. |
21205 | 4 |
5 ;; Author: Peter Breton <pbreton@cs.umb.edu> | |
6 ;; Created: Tue Oct 08 1996 | |
7 ;; Keywords: generic, comment, font-lock | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
25 | |
26 ;;; Commentary: | |
27 ;; | |
28 ;; This file contains some pre-defined generic-modes. | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
29 ;; |
21205 | 30 ;; INSTALLATION: |
31 ;; | |
32 ;; Add this line to your .emacs file: | |
33 ;; | |
34 ;; (require 'generic-x) | |
35 ;; | |
36 ;; You can decide which modes to load by setting the variable | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
37 ;; `generic-extras-enable-list'. Some platform-specific modes are |
21205 | 38 ;; affected by the variables `generic-define-mswindows-modes' and |
39 ;; `generic-define-unix-modes' (which see). | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
40 ;; |
21205 | 41 ;; You can also send in new modes; if the file types a reasonably common, |
42 ;; we would like to install them. | |
43 ;; | |
44 ;; PROBLEMS WHEN USED WITH FOLDING MODE: | |
45 ;; | |
24036 | 46 ;; [The following relates to the obsolete selective-display technique. |
47 ;; Folding mode should use invisible text properties instead. -- Dave | |
48 ;; Love] | |
49 ;; | |
21205 | 50 ;; From Anders Lindgren <andersl@csd.uu.se> |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
51 ;; |
21205 | 52 ;; Problem summary: Wayne Adams has found a problem when using folding |
53 ;; mode in conjuction with font-lock for a mode defined in | |
54 ;; `generic-x.el'. | |
55 ;; | |
56 ;; The problem, as Wayne described it, was that error messages of the | |
57 ;; following form appeared when both font-lock and folding are used: | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
58 ;; |
21205 | 59 ;; > - various msgs including "Fontifying region...(error Stack |
60 ;; > overflow in regexp matcher)" appear | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
61 ;; |
21205 | 62 ;; I have just tracked down the cause of the problem. The regexp:s in |
63 ;; `generic-x.el' does not take into account the way that folding | |
64 ;; hides sections of the buffer. The technique is known as | |
65 ;; `selective-display' and has been available for a very long time (I | |
66 ;; started using it back in the good old' Emacs 18 days). Basically, a | |
67 ;; section is hidden by creating one very long line were the newline | |
68 ;; character (C-j) is replaced by a linefeed (C-m) character. | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
69 ;; |
21205 | 70 ;; Many other hiding packages, besides folding, use the same technique, |
71 ;; the problem should occur when using them as well. | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
72 ;; |
21205 | 73 ;; The erroronous lines in `generic-extras' look like the following (this |
74 ;; example is from the `ini' section): | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
75 ;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
76 ;; '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face) |
21205 | 77 ;; ("^\\(.*\\)=" 1 'font-lock-variable-name-face) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
78 ;; |
21205 | 79 ;; The intention of these lines is to highlight lines of the following |
80 ;; form: | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
81 ;; |
21205 | 82 ;; [foo] |
83 ;; bar = xxx | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
84 ;; |
21205 | 85 ;; However, since the `.' regexp symbol match the linefeed character the |
86 ;; entire folded section is searched, resulting in a regexp stack | |
87 ;; overflow. | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
88 ;; |
21205 | 89 ;; Solution suggestion 2: Instead of using ".", use the sequence |
90 ;; "[^\n\r]". This will make the rules behave just as before, but they | |
91 ;; will work together with selective-display. | |
92 | |
93 ;;; Code: | |
94 | |
95 (require 'font-lock) | |
96 | |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
97 (defgroup generic-x nil |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
98 "Extra modes for generic mode." |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
99 :prefix "generic-" |
22110
47ffa41d5ed5
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21947
diff
changeset
|
100 :group 'generic |
47ffa41d5ed5
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21947
diff
changeset
|
101 :version "20.3") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
102 |
21205 | 103 (defcustom generic-extras-enable-list nil |
104 "*List of generic modes to enable by default. | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
105 Each entry in the list should be a symbol. The variables |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
106 `generic-define-mswindows-modes' and `generic-define-unix-modes' |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
107 also affect which generic modes are defined. Please note that if |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
108 you set this variable after generic-x is loaded, you must reload |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
109 generic-x to enable the specified modes." |
21205 | 110 :group 'generic-x |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
111 :type '(repeat sexp)) |
21205 | 112 |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
113 (defcustom generic-define-mswindows-modes |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
114 (memq system-type '(windows-nt ms-dos)) |
21205 | 115 "*If non-nil, some MS-Windows specific generic modes will be defined." |
116 :group 'generic-x | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
117 :type 'boolean) |
21205 | 118 |
119 (defcustom generic-define-unix-modes | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
120 (not (memq system-type '(windows-nt ms-dos))) |
21205 | 121 "*If non-nil, some Unix specific generic modes will be defined." |
122 :group 'generic-x | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
123 :type 'boolean) |
21205 | 124 |
125 (and generic-define-mswindows-modes | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
126 (setq generic-extras-enable-list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
127 (append '(bat-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
128 ini-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
129 inf-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
130 rc-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
131 reg-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
132 rul-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
133 hosts-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
134 apache-conf-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
135 apache-log-generic-mode) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
136 generic-extras-enable-list))) |
21205 | 137 |
138 (and generic-define-unix-modes | |
139 (setq generic-extras-enable-list | |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
140 (append '(apache-conf-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
141 apache-log-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
142 samba-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
143 hosts-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
144 fvwm-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
145 x-resource-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
146 alias-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
147 inetd-conf-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
148 etc-services-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
149 etc-passwd-generic-mode |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
150 etc-fstab-generic-mode) |
21205 | 151 generic-extras-enable-list))) |
152 | |
153 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
154 ;; Generic-modes | |
155 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
156 | |
157 ;;; Apache | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
158 (when (memq 'apache-conf-generic-mode generic-extras-enable-list) |
21205 | 159 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
160 (define-generic-mode apache-conf-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
161 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
162 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
163 '(("^\\s-*\\(<.*>\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
164 ("^\\s-*\\(\\sw+\\)\\s-" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
165 '("srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
166 (list |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
167 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
168 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
169 (setq imenu-generic-expression |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
170 '((nil "^\\([-A-Za-z0-9_]+\\)" 1) |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
171 ("*Directories*" "^\\s-*<Directory\\s-*\\([^>]+\\)>" 1) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
172 ("*Locations*" "^\\s-*<Location\\s-*\\([^>]+\\)>" 1)))))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
173 "Generic mode for Apache or HTTPD configuration files.")) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
174 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
175 (when (memq 'apache-log-generic-mode generic-extras-enable-list) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
176 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
177 (define-generic-mode apache-log-generic-mode |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
178 nil |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
179 nil |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
180 ;; Hostname ? user date request return-code number-of-bytes |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
181 '(("^\\([-a-zA-z0-9.]+\\) - [-A-Za-z]+ \\(\\[.*\\]\\)" |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
182 (1 font-lock-constant-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
183 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
184 '("access_log\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
185 nil |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
186 "Mode for Apache log files")) |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
187 |
21205 | 188 ;;; Samba |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
189 (when (memq 'samba-generic-mode generic-extras-enable-list) |
21205 | 190 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
191 (define-generic-mode samba-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
192 '(?\; ?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
193 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
194 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
195 ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
196 (1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
197 (2 font-lock-type-face))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
198 '("smb\\.conf\\'") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
199 '(generic-bracket-support) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
200 "Generic mode for Samba configuration files.")) |
21205 | 201 |
202 ;;; Fvwm | |
203 ;; This is pretty basic. Also, modes for other window managers could | |
204 ;; be defined as well. | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
205 (when (memq 'fvwm-generic-mode generic-extras-enable-list) |
21205 | 206 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
207 (define-generic-mode fvwm-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
208 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
209 '("AddToMenu" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
210 "AddToFunc" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
211 "ButtonStyle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
212 "EndFunction" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
213 "EndPopup" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
214 "Function" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
215 "IconPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
216 "Key" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
217 "ModulePath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
218 "Mouse" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
219 "PixmapPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
220 "Popup" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
221 "Style") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
222 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
223 '("\\.fvwmrc\\'" "\\.fvwm2rc\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
224 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
225 "Generic mode for FVWM configuration files.")) |
21205 | 226 |
227 ;;; X Resource | |
228 ;; I'm pretty sure I've seen an actual mode to do this, but I don't | |
229 ;; think it's standard with Emacs | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
230 (when (memq 'x-resource-generic-mode generic-extras-enable-list) |
21205 | 231 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
232 (define-generic-mode x-resource-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
233 '(?!) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
234 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
235 '(("^\\([^:\n]+:\\)" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
236 '("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
237 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
238 "Generic mode for X Resource configuration files.")) |
21205 | 239 |
240 ;;; Hosts | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
241 (when (memq 'hosts-generic-mode generic-extras-enable-list) |
21205 | 242 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
243 (define-generic-mode hosts-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
244 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
245 '("localhost") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
246 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
247 '("[hH][oO][sS][tT][sS]\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
248 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
249 "Generic mode for HOSTS files.")) |
21205 | 250 |
251 ;;; Windows INF files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
252 (when (memq 'inf-generic-mode generic-extras-enable-list) |
21205 | 253 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
254 (define-generic-mode inf-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
255 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
256 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
257 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
258 '("\\.[iI][nN][fF]\\'") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
259 '(generic-bracket-support) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
260 "Generic mode for MS-Windows INF files.")) |
21205 | 261 |
262 ;;; Windows INI files | |
263 ;; Should define escape character as well! | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
264 (when (memq 'ini-generic-mode generic-extras-enable-list) |
21205 | 265 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
266 (define-generic-mode ini-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
267 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
268 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
269 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
270 ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
271 (1 font-lock-function-name-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
272 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
273 '("\\.[iI][nN][iI]\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
274 (list |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
275 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
276 (lambda () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
277 (setq imenu-generic-expression |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
278 '((nil "^\\[\\(.*\\)\\]" 1) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
279 ("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1)))))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
280 "Generic mode for MS-Windows INI files.")) |
21205 | 281 |
282 ;;; Windows REG files | |
283 ;;; Unfortunately, Windows 95 and Windows NT have different REG file syntax! | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
284 (when (memq 'reg-generic-mode generic-extras-enable-list) |
21205 | 285 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
286 (define-generic-mode reg-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
287 '(?\;) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
288 '("key" "classes_root" "REGEDIT" "REGEDIT4") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
289 '(("\\(\\[.*]\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
290 ("^\\([^\n\r]*\\)\\s-*=" 1 font-lock-variable-name-face)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
291 '("\\.[rR][eE][gG]\\'") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
292 (list |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
293 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
294 (lambda () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
295 (setq imenu-generic-expression |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
296 '((nil "^\\s-*\\(.*\\)\\s-*=" 1)))))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
297 "Generic mode for MS-Windows Registry files.")) |
21205 | 298 |
23375
2656333fd35e
(bat-generic-mode): Fix regexps for keywords and
Eli Zaretskii <eliz@gnu.org>
parents:
22110
diff
changeset
|
299 ;;; DOS/Windows BAT files |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
300 (when (memq 'bat-generic-mode generic-extras-enable-list) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
301 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
302 (define-generic-mode bat-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
303 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
304 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
305 (eval-when-compile |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
306 (list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
307 ;; Make this one first in the list, otherwise comments will |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
308 ;; be over-written by other variables |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
309 '("^[@ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 font-lock-comment-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
310 '("^[ \t]*\\(::.*\\)" 1 font-lock-comment-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
311 '("^[@ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
312 (1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
313 (2 font-lock-constant-face t t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
314 ;; Any text (except ON/OFF) following ECHO is a string. |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
315 '("^[@ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
316 (1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
317 (3 font-lock-constant-face t t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
318 (5 font-lock-string-face t t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
319 ;; These keywords appear as the first word on a line. (Actually, they |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
320 ;; can also appear after "if ..." or "for ..." clause, but since they |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
321 ;; are frequently used in simple text, we punt.) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
322 ;; In `generic-bat-mode-setup-function' we make the keywords |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
323 ;; case-insensitive |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
324 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
325 '("for" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
326 "if") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
327 font-lock-keyword-face "^[@ \t]*") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
328 ;; These keywords can be anywhere on a line |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
329 ;; In `generic-bat-mode-setup-function' we make the keywords |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
330 ;; case-insensitive |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
331 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
332 '("do" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
333 "exist" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
334 "errorlevel" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
335 "goto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
336 "not") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
337 font-lock-keyword-face) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
338 ;; These are built-in commands. Only frequently-used ones are listed. |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
339 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
340 '("CALL" "call" "Call" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
341 "CD" "cd" "Cd" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
342 "CLS" "cls" "Cls" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
343 "COPY" "copy" "Copy" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
344 "DEL" "del" "Del" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
345 "ECHO" "echo" "Echo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
346 "MD" "md" "Md" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
347 "PATH" "path" "Path" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
348 "PAUSE" "pause" "Pause" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
349 "PROMPT" "prompt" "Prompt" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
350 "RD" "rd" "Rd" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
351 "REN" "ren" "Ren" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
352 "SET" "set" "Set" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
353 "START" "start" "Start" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
354 "SHIFT" "shift" "Shift") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
355 font-lock-builtin-face "[ \t|\n]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
356 '("^[ \t]*\\(:\\sw+\\)" 1 font-lock-function-name-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
357 '("\\(%\\sw+%\\)" 1 font-lock-variable-name-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
358 '("\\(%[0-9]\\)" 1 font-lock-variable-name-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
359 '("\\(/[^/ \"\t\n]+\\)" 1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
360 '("[\t ]+\\([+-][^\t\n\" ]+\\)" 1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
361 '("[ \t\n|]\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
362 (1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
363 (2 font-lock-function-name-face nil t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
364 '("[ \t\n|]\\<\\([sS][eE][tT]\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*=?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
365 (1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
366 (2 font-lock-variable-name-face t t)))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
367 '("\\.[bB][aA][tT]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
368 "\\`[cC][oO][nN][fF][iI][gG]\\." |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
369 "\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\.") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
370 '(generic-bat-mode-setup-function) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
371 "Generic mode for MS-Windows BAT files.") |
26045
03ebfe42764f
(bat-generic-mode-keymap): Added thio variable
Peter Breton <pbreton@attbi.com>
parents:
26044
diff
changeset
|
372 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
373 (defvar bat-generic-mode-syntax-table nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
374 "Syntax table in use in bat-generic-mode buffers.") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
375 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
376 (defvar bat-generic-mode-keymap (make-sparse-keymap) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
377 "Keymap for bet-generic-mode.") |
26045
03ebfe42764f
(bat-generic-mode-keymap): Added thio variable
Peter Breton <pbreton@attbi.com>
parents:
26044
diff
changeset
|
378 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
379 (defun bat-generic-mode-compile () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
380 "Run the current BAT file in a compilation buffer." |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
381 (interactive) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
382 (let ((compilation-buffer-name-function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
383 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
384 (lambda(ign) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
385 (concat "*" (buffer-file-name) "*"))))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
386 (compile |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
387 (concat (w32-shell-name) " -c " (buffer-file-name))))) |
26045
03ebfe42764f
(bat-generic-mode-keymap): Added thio variable
Peter Breton <pbreton@attbi.com>
parents:
26044
diff
changeset
|
388 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
389 (defun bat-generic-mode-run-as-comint () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
390 "Run the current BAT file in a comint buffer." |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
391 (interactive) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
392 (require 'comint) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
393 (let* ((file (buffer-file-name)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
394 (buf-name (concat "*" file "*"))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
395 (save-excursion |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
396 (set-buffer |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
397 (get-buffer-create buf-name)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
398 (erase-buffer) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
399 (comint-mode) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
400 (comint-exec |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
401 buf-name |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
402 file |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
403 (w32-shell-name) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
404 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
405 (list "-c" file)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
406 (display-buffer buf-name)))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
407 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
408 (define-key bat-generic-mode-keymap "\C-c\C-c" 'bat-generic-mode-compile) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
409 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
410 ;; Make underscores count as words |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
411 (unless bat-generic-mode-syntax-table |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
412 (setq bat-generic-mode-syntax-table (make-syntax-table)) |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
413 (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
414 |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
415 ;; bat-generic-mode doesn't use the comment functionality of |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
416 ;; define-generic-mode because it has a three-letter comment-string, |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
417 ;; so we do it here manually instead |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
418 (defun generic-bat-mode-setup-function () |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
419 (make-local-variable 'parse-sexp-ignore-comments) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
420 (make-local-variable 'comment-start) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
421 (make-local-variable 'comment-start-skip) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
422 (make-local-variable 'comment-end) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
423 (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
424 parse-sexp-ignore-comments t |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
425 comment-end "" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
426 comment-start "REM " |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
427 comment-start-skip "[Rr][Ee][Mm] *") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
428 (set-syntax-table bat-generic-mode-syntax-table) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
429 ;; Make keywords case-insensitive |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
430 (setq font-lock-defaults '(generic-font-lock-keywords nil t)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
431 (use-local-map bat-generic-mode-keymap))) |
21205 | 432 |
433 ;;; Mailagent | |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
434 ;; Mailagent is a Unix mail filtering program. Anyone wanna do a |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
435 ;; generic mode for procmail? |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
436 (when (memq 'mailagent-rules-generic-mode generic-extras-enable-list) |
21205 | 437 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
438 (define-generic-mode mailagent-rules-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
439 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
440 '("SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
441 '(("^\\(\\sw+\\)\\s-*=" 1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
442 ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
443 '("\\.rules\\'") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
444 (list |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
445 (function |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
446 (lambda () |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
447 (setq imenu-generic-expression |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
448 '((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1)))))) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
449 "Mode for Mailagent rules files.")) |
21205 | 450 |
451 ;; Solaris/Sys V prototype files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
452 (when (memq 'prototype-generic-mode generic-extras-enable-list) |
21205 | 453 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
454 (define-generic-mode prototype-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
455 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
456 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
457 '(("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
458 (2 font-lock-constant-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
459 (3 font-lock-keyword-face)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
460 ("^\\([a-z]\\) \\([A-Za-z_]+\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
461 (1 font-lock-constant-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
462 (2 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
463 (3 font-lock-variable-name-face)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
464 ("^\\(!\\s-*\\(search\\|include\\|default\\)\\)\\s-*\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
465 (1 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
466 (3 font-lock-variable-name-face)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
467 ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
468 (1 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
469 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
470 '("prototype\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
471 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
472 "Mode for Sys V prototype files.")) |
21205 | 473 |
474 ;; Solaris/Sys V pkginfo files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
475 (when (memq 'pkginfo-generic-mode generic-extras-enable-list) |
21205 | 476 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
477 (define-generic-mode pkginfo-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
478 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
479 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
480 '(("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
481 (1 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
482 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
483 '("pkginfo\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
484 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
485 "Mode for Sys V pkginfo files.")) |
21205 | 486 |
487 ;; Javascript mode | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
488 ;; Includes extra keywords from Armando Singer [asinger@MAIL.COLGATE.EDU] |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
489 (define-generic-mode javascript-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
490 '("//" ("/*" . "*/")) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
491 '("break" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
492 "case" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
493 "continue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
494 "default" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
495 "delete" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
496 "do" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
497 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
498 "export" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
499 "for" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
500 "function" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
501 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
502 "import" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
503 "in" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
504 "new" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
505 "return" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
506 "switch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
507 "this" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
508 "typeof" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
509 "var" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
510 "void" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
511 "while" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
512 "with" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
513 ;; words reserved for ECMA extensions below |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
514 "catch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
515 "class" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
516 "const" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
517 "debugger" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
518 "enum" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
519 "extends" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
520 "finally" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
521 "super" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
522 "throw" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
523 "try" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
524 ;; Java Keywords reserved by JavaScript |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
525 "abstract" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
526 "boolean" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
527 "byte" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
528 "char" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
529 "double" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
530 "false" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
531 "final" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
532 "float" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
533 "goto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
534 "implements" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
535 "instanceof" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
536 "int" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
537 "interface" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
538 "long" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
539 "native" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
540 "null" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
541 "package" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
542 "private" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
543 "protected" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
544 "public" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
545 "short" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
546 "static" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
547 "synchronized" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
548 "throws" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
549 "transient" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
550 "true") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
551 '(("^\\s-*function\\s-+\\([A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
552 (1 font-lock-function-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
553 ("^\\s-*var\\s-+\\([A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
554 (1 font-lock-variable-name-face))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
555 '("\\.js\\'") |
21205 | 556 (list |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
557 (function |
21205 | 558 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
559 (setq imenu-generic-expression |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
560 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
561 ("*Variables*" "^var\\s-+\\([A-Za-z0-9_]+\\)" 1)))))) |
21205 | 562 "Mode for JavaScript files.") |
563 | |
564 ;; VRML files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
565 (define-generic-mode vrml-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
566 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
567 '("DEF" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
568 "NULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
569 "USE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
570 "Viewpoint" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
571 "ambientIntensity" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
572 "appearance" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
573 "children" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
574 "color" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
575 "coord" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
576 "coordIndex" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
577 "creaseAngle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
578 "diffuseColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
579 "emissiveColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
580 "fieldOfView" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
581 "geometry" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
582 "info" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
583 "material" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
584 "normal" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
585 "orientation" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
586 "position" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
587 "shininess" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
588 "specularColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
589 "texCoord" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
590 "texture" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
591 "textureTransform" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
592 "title" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
593 "transparency" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
594 "type") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
595 '(("USE\\s-+\\([-A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
596 (1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
597 ("DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
598 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
599 (2 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
600 ("^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
601 (1 font-lock-function-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
602 ("^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
603 (2 font-lock-variable-name-face))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
604 '("\\.wrl\\'") |
21205 | 605 (list |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
606 (function |
21205 | 607 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
608 (setq imenu-generic-expression |
21205 | 609 '((nil "^\\([A-Za-z0-9_]+\\)\\s-*{" 1) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
610 ("*Definitions*" |
21205 | 611 "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{" |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
612 1)))))) |
21205 | 613 "Generic Mode for VRML files.") |
614 | |
615 ;; Java Manifests | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
616 (define-generic-mode java-manifest-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
617 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
618 '("Name" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
619 "Digest-Algorithms" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
620 "Manifest-Version" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
621 "Required-Version" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
622 "Signature-Version" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
623 "Magic" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
624 "Java-Bean" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
625 "Depends-On") |
21205 | 626 '(("^Name:\\s-+\\([^\n\r]*\\)$" |
627 (1 font-lock-variable-name-face)) | |
628 ("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$" | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
629 (2 font-lock-constant-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
630 '("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'") |
21205 | 631 nil |
632 "Mode for Java Manifest files") | |
633 | |
634 ;; Java properties files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
635 (define-generic-mode java-properties-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
636 '(?! ?#) |
21205 | 637 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
638 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
639 (let ((java-properties-key |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
640 "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
641 (java-properties-value |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
642 "\\([^\r\n]*\\)")) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
643 ;; Property and value can be separated in a number of different ways: |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
644 ;; * whitespace |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
645 ;; * an equal sign |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
646 ;; * a colon |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
647 (mapcar |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
648 (function |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
649 (lambda (elt) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
650 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
651 (concat "^" java-properties-key elt java-properties-value "$") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
652 '(1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
653 '(4 font-lock-variable-name-face)))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
654 ;; These are the separators |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
655 '(":\\s-*" "\\s-+" "\\s-*=\\s-*")))) |
21205 | 656 nil |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
657 (list |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
658 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
659 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
660 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
661 '((nil "^\\([^#! \t\n\r=:]+\\)" 1)))))) |
21205 | 662 "Mode for Java properties files.") |
663 | |
664 ;; C shell alias definitions | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
665 (when (memq 'alias-generic-mode generic-extras-enable-list) |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
666 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
667 (define-generic-mode alias-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
668 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
669 '("alias" "unalias") |
21205 | 670 '(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+" |
671 (1 font-lock-variable-name-face)) | |
672 ("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$" | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
673 (1 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
674 '("alias\\'") |
21205 | 675 (list |
676 (function | |
677 (lambda () | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
678 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
679 '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2)))))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
680 "Mode for C Shell alias files.")) |
21205 | 681 |
682 ;;; Windows RC files | |
683 ;; Contributed by ACorreir@pervasive-sw.com (Alfred Correira) | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
684 (when (memq 'rc-generic-mode generic-extras-enable-list) |
21205 | 685 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
686 (define-generic-mode rc-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
687 ;; '(?\/) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
688 '("//") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
689 '("ACCELERATORS" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
690 "AUTO3STATE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
691 "AUTOCHECKBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
692 "AUTORADIOBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
693 "BITMAP" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
694 "BOTTOMMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
695 "BUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
696 "CAPTION" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
697 "CHARACTERISTICS" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
698 "CHECKBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
699 "CLASS" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
700 "COMBOBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
701 "CONTROL" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
702 "CTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
703 "CURSOR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
704 "DEFPUSHBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
705 "DESIGNINFO" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
706 "DIALOG" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
707 "DISCARDABLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
708 "EDITTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
709 "EXSTYLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
710 "FONT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
711 "GROUPBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
712 "GUIDELINES" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
713 "ICON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
714 "LANGUAGE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
715 "LEFTMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
716 "LISTBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
717 "LTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
718 "MENUITEM SEPARATOR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
719 "MENUITEM" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
720 "MENU" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
721 "MOVEABLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
722 "POPUP" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
723 "PRELOAD" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
724 "PURE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
725 "PUSHBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
726 "PUSHBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
727 "RADIOBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
728 "RCDATA" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
729 "RIGHTMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
730 "RTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
731 "SCROLLBAR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
732 "SEPARATOR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
733 "STATE3" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
734 "STRINGTABLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
735 "STYLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
736 "TEXTINCLUDE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
737 "TOOLBAR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
738 "TOPMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
739 "VERSIONINFO" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
740 "VERSION") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
741 ;; the choice of what tokens go where is somewhat arbitrary, |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
742 ;; as is the choice of which value tokens are included, as |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
743 ;; the choice of face for each token group |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
744 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
745 (list |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
746 (generic-make-keywords-list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
747 '("FILEFLAGSMASK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
748 "FILEFLAGS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
749 "FILEOS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
750 "FILESUBTYPE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
751 "FILETYPE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
752 "FILEVERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
753 "PRODUCTVERSION") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
754 font-lock-type-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
755 (generic-make-keywords-list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
756 '("BEGIN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
757 "BLOCK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
758 "END" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
759 "VALUE") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
760 font-lock-function-name-face) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
761 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
762 '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
763 '("^#[ \t]*\\(elif\\|if\\)\\>" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
764 ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
765 (1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
766 (2 font-lock-variable-name-face nil t))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
767 '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
768 (1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
769 (2 font-lock-variable-name-face nil t)))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
770 '("\\.[rR][cC]$") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
771 nil |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
772 "Generic mode for MS-Windows Resource files.")) |
21205 | 773 |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
774 ;; InstallShield RUL files |
21205 | 775 ;; Contributed by Alfred.Correira@Pervasive.Com |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
776 ;; Bugfixes by "Rolf Sandau" <Rolf.Sandau@marconi.com> |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
777 (when (memq 'rul-generic-mode generic-extras-enable-list) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
778 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
779 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
780 |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
781 ;;; build the regexp strings using regexp-opt |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
782 (defconst installshield-statement-keyword-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
783 '("abort" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
784 "begin" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
785 "call" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
786 "case" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
787 "declare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
788 "default" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
789 "downto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
790 "elseif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
791 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
792 "endfor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
793 "endif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
794 "endswitch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
795 "endwhile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
796 "end" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
797 "exit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
798 "external" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
799 "for" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
800 "function" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
801 ;; "goto" -- handled elsewhere |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
802 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
803 "program" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
804 "prototype" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
805 "repeat" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
806 "return" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
807 "step" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
808 "switch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
809 "then" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
810 "to" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
811 "typedef" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
812 "until" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
813 "void" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
814 "while") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
815 "Statement keywords used in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
816 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
817 (defconst installshield-system-functions-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
818 '("AddFolderIcon" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
819 "AddProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
820 "AddressString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
821 "AppCommand" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
822 "AskDestPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
823 "AskOptions" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
824 "AskPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
825 "AskText" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
826 "AskYesNo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
827 "BatchDeleteEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
828 "BatchFileLoad" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
829 "BatchFileSave" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
830 "BatchFind" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
831 "BatchGetFileName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
832 "BatchMoveEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
833 "BatchSetFileName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
834 "ChangeDirectory" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
835 "CloseFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
836 "CmdGetHwndDlg" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
837 "ComponentAddItem" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
838 "ComponentCompareSizeRequired" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
839 "ComponentDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
840 "ComponentError" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
841 "ComponentFileEnum" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
842 "ComponentFileInfo" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
843 "ComponentFilterLanguage" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
844 "ComponentFilterOS" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
845 "ComponentGetData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
846 "ComponentGetItemInfo" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
847 "ComponentGetItemSize" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
848 "ComponentIsItemSelected" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
849 "ComponentListItems" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
850 "ComponentMoveData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
851 "ComponentSelectItem" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
852 "ComponentSetData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
853 "ComponentSetItemInfo" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
854 "ComponentSetTarget" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
855 "ComponentSetupTypeEnum" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
856 "ComponentSetupTypeGetData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
857 "ComponentSetupTypeSet" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
858 "ComponentTotalSize" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
859 "ComponentValidate" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
860 "CompressAdd" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
861 "CompressDel" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
862 "CompressEnum" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
863 "CompressGet" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
864 "CompressInfo" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
865 "CopyFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
866 "CreateDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
867 "CreateFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
868 "CreateProgramFolder" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
869 "DeinstallSetReference" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
870 "DeinstallStart" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
871 "Delay" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
872 "DeleteDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
873 "DeleteFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
874 "DialogSetInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
875 "Disable" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
876 "DoInstall" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
877 "Do" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
878 "Enable" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
879 "EnterDisk" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
880 "ExistsDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
881 "ExistsDisk" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
882 "ExitProgMan" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
883 "EzBatchAddPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
884 "EzBatchAddString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
885 "EzBatchReplace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
886 "EzConfigAddDriver" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
887 "EzConfigAddString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
888 "EzConfigGetValue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
889 "EzConfigSetValue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
890 "EzDefineDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
891 "FileCompare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
892 "FileDeleteLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
893 "FileGrep" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
894 "FileInsertLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
895 "FileSetBeginDefine" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
896 "FileSetEndDefine" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
897 "FileSetPerformEz" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
898 "FileSetPerform" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
899 "FileSetReset" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
900 "FileSetRoot" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
901 "FindAllDirs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
902 "FindAllFiles" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
903 "FindFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
904 "FindWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
905 "GetDiskSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
906 "GetDisk" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
907 "GetEnvVar" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
908 "GetExtents" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
909 "GetFileInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
910 "GetLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
911 "GetProfInt" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
912 "GetProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
913 "GetSystemInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
914 "GetValidDrivesList" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
915 "GetVersion" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
916 "GetWindowHandle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
917 "InstallationInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
918 "Is" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
919 "LaunchApp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
920 "LaunchAppAndWait" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
921 "ListAddItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
922 "ListAddString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
923 "ListCount" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
924 "ListCreate" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
925 "ListDestroy" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
926 "ListFindItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
927 "ListFindString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
928 "ListGetFirstItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
929 "ListGetFirstString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
930 "ListGetNextItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
931 "ListGetNextString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
932 "ListReadFromFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
933 "ListSetCurrentItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
934 "ListSetNextItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
935 "ListSetNextString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
936 "ListSetIndex" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
937 "ListWriteToFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
938 "LongPathToQuote" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
939 "LongPathToShortPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
940 "MessageBox" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
941 "NumToStr" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
942 "OpenFileMode" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
943 "OpenFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
944 "ParsePath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
945 "PathAdd" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
946 "PathDelete" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
947 "PathFind" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
948 "PathGet" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
949 "PathMove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
950 "PathSet" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
951 "Path" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
952 "PlaceBitmap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
953 "PlaceWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
954 "PlayMMedia" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
955 "ProgDefGroupType" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
956 "RegDBCreateKeyEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
957 "RegDBDeleteValue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
958 "RegDBGetItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
959 "RegDBKeyExist" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
960 "RegDBSetItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
961 "RegDBGetKeyValueEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
962 "RegDBSetKeyValueEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
963 "RegDBSetDefaultRoot" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
964 "RenameFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
965 "ReplaceFolderIcon" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
966 "ReplaceProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
967 "SdAskDestPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
968 "SdAskOptions" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
969 "SdAskOptionsList" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
970 "SdBitmap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
971 "SdCloseDlg" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
972 "SdComponentAdvCheckSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
973 "SdComponentAdvInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
974 "SdComponentAdvUpdateSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
975 "SdComponentDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
976 "SdComponentDialog2" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
977 "SdComponentDialogAdv" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
978 "SdComponentDialogEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
979 "SdComponentDlgCheckSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
980 "SdComponentMult" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
981 "SdConfirmNewDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
982 "SdConfirmRegistration" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
983 "SdDiskSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
984 "SdDisplayTopics" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
985 "SdDoStdButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
986 "SdEnablement" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
987 "SdError" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
988 "SdFinish" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
989 "SdFinishInit32" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
990 "SdFinishReboot" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
991 "SdGeneralInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
992 "SdGetItemName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
993 "SdGetTextExtent" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
994 "SdGetUserCompanyInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
995 "SdInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
996 "SdIsShellExplorer" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
997 "SdIsStdButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
998 "SdLicense" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
999 "SdMakeName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1000 "SdOptionInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1001 "SdOptionSetState" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1002 "SdOptionsButtons" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1003 "SdOptionsButtonsInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1004 "SdPlugInProductName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1005 "SdProductName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1006 "SdRegEnableButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1007 "SdRegExEnableButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1008 "SdRegisterUser" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1009 "SdRegisterUserEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1010 "SdRemoveEndSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1011 "SdSelectFolder" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1012 "SdSetSequentialItems" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1013 "SdSetStatic" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1014 "SdSetupTypeEx" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1015 "SdSetupType" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1016 "SdShowAnyDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1017 "SdShowDlgEdit1" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1018 "SdShowDlgEdit2" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1019 "SdShowDlgEdit3" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1020 "SdShowFileMods" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1021 "SdShowInfoList" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1022 "SdShowMsg" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1023 "SdStartCopy" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1024 "SdUnInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1025 "SdUpdateComponentSelection" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1026 "SdWelcome" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1027 "SendMessage" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1028 "SetColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1029 "SetFont" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1030 "SetDialogTitle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1031 "SetDisplayEffect" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1032 "SetFileInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1033 "SetForegroundWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1034 "SetStatusWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1035 "SetTitle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1036 "SetupType" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1037 "ShowProgramFolder" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1038 "Split" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1039 "SprintfBox" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1040 "Sprintf" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1041 "StatusUpdate" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1042 "StrCompare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1043 "StrFind" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1044 "StrGetTokens" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1045 "StrLength" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1046 "StrRemoveLastSlash" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1047 "StrToLower" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1048 "StrToNum" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1049 "StrToUpper" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1050 "StrSub" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1051 "VarRestore" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1052 "VarSave" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1053 "VerCompare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1054 "VerGetFileVersion" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1055 "WaitOnDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1056 "Welcome" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1057 "WriteLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1058 "WriteProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1059 "XCopyFile") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1060 "System functions defined in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1061 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1062 (defconst installshield-system-variables-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1063 '("BATCH_INSTALL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1064 "CMDLINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1065 "COMMONFILES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1066 "CORECOMPONENTHANDLING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1067 "DIALOGCACHE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1068 "ERRORFILENAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1069 "FOLDER_DESKTOP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1070 "FOLDER_PROGRAMS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1071 "FOLDER_STARTMENU" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1072 "FOLDER_STARTUP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1073 "INFOFILENAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1074 "ISRES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1075 "ISUSER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1076 "ISVERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1077 "MEDIA" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1078 "MODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1079 "PROGRAMFILES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1080 "SELECTED_LANGUAGE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1081 "SRCDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1082 "SRCDISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1083 "SUPPORTDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1084 "TARGETDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1085 "TARGETDISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1086 "UNINST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1087 "WINDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1088 "WINDISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1089 "WINMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1090 "WINSYSDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1091 "WINSYSDISK") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1092 "System variables used in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1093 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1094 (defconst installshield-types-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1095 '("BOOL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1096 "BYREF" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1097 "CHAR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1098 "HIWORD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1099 "HWND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1100 "INT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1101 "LIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1102 "LONG" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1103 "LOWORD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1104 "LPSTR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1105 "NUMBER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1106 "NUMBERLIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1107 "POINTER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1108 "QUAD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1109 "RGB" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1110 "SHORT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1111 "STRINGLIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1112 "STRING") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1113 "Type keywords used in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1114 |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1115 ;;; some might want to skip highlighting these to improve performance |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1116 (defconst installshield-funarg-constants-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1117 '("AFTER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1118 "APPEND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1119 "ALLCONTENTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1120 "BACKBUTTON" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1121 "BACKGROUNDCAPTION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1122 "BACKGROUND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1123 "BACK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1124 "BASEMEMORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1125 "BEFORE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1126 "BIOS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1127 "BITMAPICON" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1128 "BK_BLUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1129 "BK_GREEN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1130 "BK_RED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1131 "BLUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1132 "BOOTUPDRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1133 "CANCEL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1134 "CDROM_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1135 "CDROM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1136 "CHECKBOX95" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1137 "CHECKBOX" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1138 "CHECKLINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1139 "CHECKMARK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1140 "COLORS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1141 "COMMANDEX" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1142 "COMMAND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1143 "COMP_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1144 "COMP_UPDATE_DATE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1145 "COMP_UPDATE_SAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1146 "COMP_UPDATE_VERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1147 "COMPACT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1148 "CONTINUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1149 "CPU" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1150 "CUSTOM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1151 "DATE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1152 "DEFWINDOWMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1153 "DIR_WRITEABLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1154 "DIRECTORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1155 "DISABLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1156 "DISK_TOTALSPACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1157 "DISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1158 "DLG_OPTIONS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1159 "DLG_PATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1160 "DLG_TEXT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1161 "DLG_ASK_YESNO" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1162 "DLG_ENTER_DISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1163 "DLG_ERR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1164 "DLG_INFO_ALTIMAGE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1165 "DLG_INFO_CHECKSELECTION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1166 "DLG_INFO_KUNITS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1167 "DLG_INFO_USEDECIMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1168 "DLG_MSG_INFORMATION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1169 "DLG_MSG_SEVERE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1170 "DLG_MSG_WARNING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1171 "DLG_STATUS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1172 "DLG_WARNING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1173 "DLG_USER_CAPTION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1174 "DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1175 "ENABLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1176 "END_OF_FILE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1177 "END_OF_LIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1178 "ENVSPACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1179 "EQUALS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1180 "EXCLUDE_SUBDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1181 "EXCLUSIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1182 "EXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1183 "EXIT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1184 "EXTENDED_MEMORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1185 "EXTENSION_ONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1186 "FAILIFEXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1187 "FALSE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1188 "FEEDBACK_FULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1189 "FILE_ATTR_ARCHIVED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1190 "FILE_ATTR_DIRECTORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1191 "FILE_ATTR_HIDDEN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1192 "FILE_ATTR_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1193 "FILE_ATTR_READONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1194 "FILE_ATTR_SYSTEM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1195 "FILE_ATTRIBUTE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1196 "FILE_DATE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1197 "FILE_LINE_LENGTH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1198 "FILE_MODE_APPEND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1199 "FILE_MODE_BINARYREADONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1200 "FILE_MODE_BINARY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1201 "FILE_MODE_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1202 "FILE_NO_VERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1203 "FILE_NOT_FOUND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1204 "FILE_SIZE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1205 "FILE_TIME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1206 "FILENAME_ONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1207 "FILENAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1208 "FIXED_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1209 "FOLDER_DESKTOP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1210 "FOLDER_PROGRAMS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1211 "FOLDER_STARTMENU" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1212 "FOLDER_STARTUP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1213 "FREEENVSPACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1214 "FULLWINDOWMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1215 "FULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1216 "FONT_TITLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1217 "GREATER_THAN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1218 "GREEN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1219 "HKEY_CLASSES_ROOT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1220 "HKEY_CURRENT_USER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1221 "HKEY_LOCAL_MACHINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1222 "HKEY_USERS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1223 "HOURGLASS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1224 "INCLUDE_SUBDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1225 "INDVFILESTATUS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1226 "INFORMATION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1227 "IS_WINDOWSNT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1228 "IS_WINDOWS95" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1229 "IS_WINDOWS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1230 "IS_WIN32S" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1231 "ISTYPE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1232 "LANGUAGE_DRV" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1233 "LANGUAGE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1234 "LESS_THAN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1235 "LIST_NULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1236 "LISTFIRST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1237 "LISTNEXT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1238 "LOCKEDFILE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1239 "LOGGING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1240 "LOWER_LEFT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1241 "LOWER_RIGHT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1242 "MAGENTA" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1243 "MOUSE_DRV" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1244 "MOUSE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1245 "NETWORK_DRV" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1246 "NETWORK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1247 "NEXT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1248 "NONEXCLUSIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1249 "NORMALMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1250 "NOSET" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1251 "NOTEXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1252 "NOWAIT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1253 "NO" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1254 "OFF" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1255 "ONLYDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1256 "ON" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1257 "OSMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1258 "OSMINOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1259 "OS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1260 "OTHER_FAILURE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1261 "PARALLEL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1262 "PARTIAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1263 "PATH_EXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1264 "PATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1265 "RED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1266 "REGDB_APPPATH_DEFAULT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1267 "REGDB_APPPATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1268 "REGDB_BINARY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1269 "REGDB_ERR_CONNECTIONEXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1270 "REGDB_ERR_CORRUPTEDREGSITRY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1271 "REGDB_ERR_INITIALIZATION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1272 "REGDB_ERR_INVALIDHANDLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1273 "REGDB_ERR_INVALIDNAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1274 "REGDB_NUMBER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1275 "REGDB_STRING_EXPAND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1276 "REGDB_STRING_MULTI" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1277 "REGDB_STRING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1278 "REGDB_UNINSTALL_NAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1279 "REMOTE_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1280 "REMOVALE_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1281 "REPLACE_ITEM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1282 "REPLACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1283 "RESET" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1284 "RESTART" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1285 "ROOT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1286 "SELFREGISTER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1287 "SERIAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1288 "SET" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1289 "SEVERE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1290 "SHAREDFILE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1291 "SHARE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1292 "SILENTMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1293 "SRCTARGETDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1294 "STATUSBAR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1295 "STATUSDLG" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1296 "STATUSOLD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1297 "STATUS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1298 "STYLE_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1299 "SW_MAXIMIZE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1300 "SW_MINIMIZE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1301 "SW_RESTORE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1302 "SW_SHOW" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1303 "SYS_BOOTMACHINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1304 "TIME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1305 "TRUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1306 "TYPICAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1307 "UPPER_LEFT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1308 "UPPER_RIGHT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1309 "VALID_PATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1310 "VERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1311 "VIDEO" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1312 "VOLUMELABEL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1313 "YELLOW" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1314 "YES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1315 "WAIT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1316 "WARNING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1317 "WINMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1318 "WINMINOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1319 "WIN32SINSTALLED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1320 "WIN32SMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1321 "WIN32SMINOR") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1322 "Function argument constants used in InstallShield 3 and 5.")) |
21205 | 1323 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1324 (defvar rul-generic-mode-syntax-table nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1325 "Syntax table to use in rul-generic-mode buffers.") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1326 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1327 (setq rul-generic-mode-syntax-table |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1328 (make-syntax-table c++-mode-syntax-table)) |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1329 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1330 (modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1331 (modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1332 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1333 (modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1334 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) |
21205 | 1335 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1336 ;; here manually instead |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1337 (defun generic-rul-mode-setup-function () |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1338 (make-local-variable 'parse-sexp-ignore-comments) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1339 (make-local-variable 'comment-start) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1340 (make-local-variable 'comment-start-skip) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1341 (make-local-variable 'comment-end) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1342 (setq imenu-generic-expression |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1343 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1344 parse-sexp-ignore-comments t |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1345 comment-end "*/" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1346 comment-start "/*" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1347 ;;; comment-end "" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1348 ;;; comment-start "//" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1349 ;;; comment-start-skip "" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1350 ) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1351 ;; (set-syntax-table rul-generic-mode-syntax-table) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1352 (setq font-lock-syntax-table rul-generic-mode-syntax-table)) |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1353 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1354 ;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1355 (define-generic-mode rul-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1356 ;; Using "/*" and "*/" doesn't seem to be working right |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1357 '("//" ("/*" . "*/" )) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1358 (eval-when-compile installshield-statement-keyword-list) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1359 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1360 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1361 ;; preprocessor constructs |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1362 '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1363 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1364 '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1365 (1 font-lock-reference-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1366 (2 font-lock-variable-name-face nil t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1367 ;; indirect string constants |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1368 '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1369 ;; gotos |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1370 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1371 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1372 (1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1373 (2 font-lock-reference-face nil t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1374 ;; system variables |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1375 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1376 installshield-system-variables-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1377 font-lock-variable-name-face "[^_]" "[^_]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1378 ;; system functions |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1379 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1380 installshield-system-functions-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1381 font-lock-function-name-face "[^_]" "[^_]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1382 ;; type keywords |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1383 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1384 installshield-types-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1385 font-lock-type-face "[^_]" "[^_]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1386 ;; function argument constants |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1387 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1388 installshield-funarg-constants-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1389 font-lock-variable-name-face "[^_]" "[^_]"))) ; is this face the best choice? |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1390 '("\\.[rR][uU][lL]$") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1391 '(generic-rul-mode-setup-function) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1392 "Generic mode for InstallShield RUL files.") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1393 |
21205 | 1394 (define-skeleton rul-if |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1395 "Insert an if statement." |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1396 "condition: " |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1397 "if(" str ") then" \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1398 > _ \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1399 ( "other condition, %s: " |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1400 > "elseif(" str ") then" \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1401 > \n) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1402 > "else" \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1403 > \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1404 resume: |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1405 > "endif;") |
21205 | 1406 |
1407 (define-skeleton rul-function | |
1408 "Insert a function statement." | |
1409 "function: " | |
1410 "function " str " ()" \n | |
1411 ( "local variables, %s: " | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1412 > " " str ";" \n) |
21205 | 1413 > "begin" \n |
1414 > _ \n | |
1415 resume: | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1416 > "end;")) |
21205 | 1417 |
1418 ;; Additions by ACorreir@pervasive-sw.com (Alfred Correira) | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1419 (define-generic-mode mailrc-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1420 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1421 '("alias" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1422 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1423 "endif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1424 "group" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1425 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1426 "ignore" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1427 "set" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1428 "source" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1429 "unset") |
21205 | 1430 '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1431 (2 font-lock-constant-face) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1432 (3 font-lock-variable-name-face)) |
21205 | 1433 ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$" |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1434 (2 font-lock-constant-face) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1435 (3 font-lock-variable-name-face)) |
41393
8c295b635eb8
(mailrc-generic-mode): Highlight the `source' keyword.
Francesco Potortì <pot@gnu.org>
parents:
32282
diff
changeset
|
1436 ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" |
8c295b635eb8
(mailrc-generic-mode): Highlight the `source' keyword.
Francesco Potortì <pot@gnu.org>
parents:
32282
diff
changeset
|
1437 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1438 '("\\.mailrc\\'") |
21205 | 1439 nil |
1440 "Mode for mailrc files.") | |
1441 | |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1442 ;; Inetd.conf |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1443 (when (memq 'inetd-conf-generic-mode generic-extras-enable-list) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1444 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1445 (define-generic-mode inetd-conf-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1446 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1447 '("stream" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1448 "dgram" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1449 "tcp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1450 "udp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1451 "wait" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1452 "nowait" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1453 "internal") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1454 '(("^\\([-A-Za-z0-9_]+\\)" 1 font-lock-type-face)) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1455 '("/etc/inetd.conf\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1456 (list |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1457 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1458 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1459 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1460 '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1461 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1462 ;; Services |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1463 (when (memq 'etc-services-generic-mode generic-extras-enable-list) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1464 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1465 (define-generic-mode etc-services-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1466 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1467 '("tcp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1468 "udp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1469 "ddp") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1470 '(("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1471 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1472 (2 font-lock-variable-name-face))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1473 '("/etc/services\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1474 (list |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1475 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1476 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1477 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1478 '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1479 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1480 ;; Password and Group files |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1481 (when (memq 'etc-passwd-generic-mode generic-extras-enable-list) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1482 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1483 (define-generic-mode etc-passwd-generic-mode |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1484 nil ;; No comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1485 '("root") ;; Only one keyword |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1486 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1487 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1488 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1489 (concat |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1490 "^" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1491 ;; User name -- Never blank! |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1492 "\\([^:]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1493 ":" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1494 ;; Password, UID and GID |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1495 (mapconcat |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1496 'identity |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1497 (make-list 3 "\\([^:]+\\)") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1498 ":") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1499 ":" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1500 ;; GECOS/Name -- might be blank |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1501 "\\([^:]*\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1502 ":" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1503 ;; Home directory and shell |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1504 "\\([^:]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1505 ":?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1506 "\\([^:]*\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1507 "$") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1508 '(1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1509 '(5 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1510 '(6 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1511 '(7 font-lock-warning-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1512 '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1513 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1514 (4 font-lock-variable-name-face)))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1515 '("/etc/passwd\\'" "/etc/group\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1516 (list |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1517 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1518 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1519 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1520 '((nil "^\\([-A-Za-z0-9_]+\\):" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1521 |
32117
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1522 ;; Fstab |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1523 (when (memq 'etc-fstab-generic-mode generic-extras-enable-list) |
32117
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1524 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1525 (define-generic-mode etc-fstab-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1526 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1527 '("adfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1528 "affs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1529 "autofs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1530 "coda" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1531 "coherent" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1532 "cramfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1533 "devpts" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1534 "efs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1535 "ext2" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1536 "ext3" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1537 "hfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1538 "hpfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1539 "iso9660" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1540 "jfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1541 "minix" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1542 "msdos" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1543 "ncpfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1544 "nfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1545 "ntfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1546 "proc" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1547 "qnx4" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1548 "reiserfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1549 "romfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1550 "smbfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1551 "sysv" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1552 "tmpfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1553 "udf" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1554 "ufs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1555 "umsdos" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1556 "vfat" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1557 "xenix" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1558 "xfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1559 "swap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1560 "auto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1561 "ignore") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1562 '(("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1563 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1564 (2 font-lock-variable-name-face))) |
32117
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1565 '("/etc/[v]*fstab\\'") |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1566 (list |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1567 (function |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1568 (lambda () |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1569 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1570 '((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1571 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1572 ;; From Jacques Duthen <jacques.duthen@sncf.fr> |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1573 (eval-when-compile |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1574 |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1575 (defconst show-tabs-generic-mode-font-lock-defaults-1 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1576 '(;; trailing spaces must come before... |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1577 ("[ \t]+$" . 'show-tabs-space-face) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1578 ;; ...embedded tabs |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1579 ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab-face)))) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1580 |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1581 (defconst show-tabs-generic-mode-font-lock-defaults-2 |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1582 '(;; trailing spaces must come before... |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1583 ("[ \t]+$" . 'show-tabs-space-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1584 ;; ...tabs |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1585 ("\t+" . 'show-tabs-tab-face)))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1586 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1587 (defface show-tabs-tab-face |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1588 '((((class grayscale) (background light)) (:background "DimGray" :weight bold)) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1589 (((class grayscale) (background dark)) (:background "LightGray" :weight bold)) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1590 (((class color) (background light)) (:background "red")) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1591 (((class color) (background dark)) (:background "red")) |
42456
8a4077ab418c
(various face definitions): Use :weight, not :bold.
Richard M. Stallman <rms@gnu.org>
parents:
41393
diff
changeset
|
1592 (t (:weight bold))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1593 "Font Lock mode face used to highlight TABs." |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1594 :group 'show-tabs) |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1595 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1596 (defface show-tabs-space-face |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1597 '((((class grayscale) (background light)) (:background "DimGray" :weight bold)) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1598 (((class grayscale) (background dark)) (:background "LightGray" :weight bold)) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1599 (((class color) (background light)) (:background "yellow")) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1600 (((class color) (background dark)) (:background "yellow")) |
42456
8a4077ab418c
(various face definitions): Use :weight, not :bold.
Richard M. Stallman <rms@gnu.org>
parents:
41393
diff
changeset
|
1601 (t (:weight bold))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1602 "Font Lock mode face used to highlight spaces." |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1603 :group 'show-tabs) |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1604 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1605 (define-generic-mode show-tabs-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1606 nil ;; no comment char |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1607 nil ;; no keywords |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1608 (eval-when-compile show-tabs-generic-mode-font-lock-defaults-1) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1609 nil ;; no auto-mode-alist |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1610 ;; '(show-tabs-generic-mode-hook-fun) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1611 nil |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1612 "Generic mode to show tabs and trailing spaces") |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1613 |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1614 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1615 ;; DNS modes |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1616 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1617 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1618 (define-generic-mode named-boot-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1619 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1620 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1621 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1622 '("cache" "primary" "secondary" "forwarders" "limit" "options" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1623 "directory" "check-names") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1624 ;; List of additional font-lock-expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1625 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1626 ("^directory\\s-+\\(.*\\)" 1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1627 ("^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1628 (2 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1629 (3 font-lock-constant-face))) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1630 ;; List of additional automode-alist expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1631 '("/etc/named.boot\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1632 ;; List of set up functions to call |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1633 nil) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1634 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1635 (define-generic-mode named-database-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1636 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1637 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1638 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1639 '("IN" "NS" "CNAME" "SOA" "PTR" "MX" "A") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1640 ;; List of additional font-lock-expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1641 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1642 ("^\\([.A-Za-z0-9]+\\)" 1 font-lock-variable-name-face)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1643 ;; List of additional automode-alist expressions |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1644 nil |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1645 ;; List of set up functions to call |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1646 nil) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1647 |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1648 (defvar named-database-time-string "%Y%m%d%H" |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1649 "Timestring for named serial numbers.") |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1650 |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1651 (defun named-database-print-serial () |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1652 "Print a serial number based on the current date." |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1653 (interactive) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1654 (insert (format-time-string named-database-time-string (current-time)))) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1655 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1656 (define-generic-mode resolve-conf-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1657 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1658 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1659 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1660 '("nameserver" "domain" "search" "sortlist" "options") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1661 ;; List of additional font-lock-expressions |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1662 nil |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1663 ;; List of additional automode-alist expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1664 '("/etc/resolv[e]?.conf\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1665 ;; List of set up functions to call |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1666 nil) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1667 |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1668 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1669 ;; Modes for spice and common electrical engineering circuit netlist formats |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1670 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1671 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1672 (define-generic-mode spice-generic-mode |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1673 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1674 '("and" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1675 "cccs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1676 "ccvs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1677 "delay" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1678 "nand" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1679 "nor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1680 "npwl" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1681 "or" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1682 "par" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1683 "ppwl" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1684 "pwl" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1685 "vccap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1686 "vccs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1687 "vcr" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1688 "vcvs") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1689 '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1690 (" \\(\\$ .*\\)$" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1691 ("^\\(\\$ .*\\)$" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1692 ("\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1693 ("^\\([+]\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1694 ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1695 ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1696 ("\\('[^']+'\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1697 ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1698 '("\\.[sS][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1699 "\\.[sS][pP][iI]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1700 "\\.[sS][pP][iI][cC][eE]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1701 "\\.[iI][nN][cC]\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1702 (list |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1703 'generic-bracket-support |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1704 ;; Make keywords case-insensitive |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1705 (function |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1706 (lambda() |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1707 (setq font-lock-defaults '(generic-font-lock-keywords nil t))))) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1708 "Generic mode for SPICE circuit netlist files.") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1709 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1710 (define-generic-mode ibis-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1711 '(?|) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1712 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1713 '(("[[]\\([^]]*\\)[]]" 1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1714 ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1715 '("\\.[iI][bB][sS]\\'") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1716 '(generic-bracket-support) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1717 "Generic mode for IBIS circuit netlist files.") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1718 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1719 (define-generic-mode astap-generic-mode |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1720 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1721 '("analyze" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1722 "description" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1723 "elements" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1724 "execution" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1725 "features" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1726 "functions" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1727 "ground" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1728 "model" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1729 "outputs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1730 "print" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1731 "run" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1732 "controls" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1733 "table") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1734 '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1735 (";\\s-*\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1736 ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1737 ("\\('[^']+'\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1738 ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1739 ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1740 '("\\.[aA][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1741 "\\.[aA][sS][xX]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1742 "\\.[aA][sS][tT][aA][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1743 "\\.[pP][sS][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1744 "\\.[dD][eE][cC][kK]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1745 "\\.[gG][oO][dD][aA][tT][aA]") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1746 (list |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1747 'generic-bracket-support |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1748 ;; Make keywords case-insensitive |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1749 (function |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1750 (lambda() |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1751 (setq font-lock-defaults '(generic-font-lock-keywords nil t))))) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1752 "Generic mode for ASTAP circuit netlist files.") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1753 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1754 (define-generic-mode etc-modules-conf-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1755 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1756 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1757 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1758 '("above" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1759 "alias" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1760 "below" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1761 "define" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1762 "depfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1763 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1764 "elseif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1765 "endif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1766 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1767 "include" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1768 "insmod_opt" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1769 "install" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1770 "keep" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1771 "options" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1772 "path" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1773 "generic_stringfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1774 "pcimapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1775 "isapnpmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1776 "usbmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1777 "parportmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1778 "ieee1394mapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1779 "pnpbiosmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1780 "probe" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1781 "probeall" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1782 "prune" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1783 "post-install" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1784 "post-remove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1785 "pre-install" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1786 "pre-remove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1787 "remove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1788 "persistdir") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1789 ;; List of additional font-lock-expressions |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1790 nil |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1791 ;; List of additional automode-alist expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1792 '("/etc/modules.conf" "/etc/conf.modules") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1793 ;; List of set up functions to call |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1794 nil) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1795 |
21205 | 1796 (provide 'generic-x) |
1797 | |
52401 | 1798 ;;; arch-tag: cde692a5-9ff6-4506-9999-c67999c2bdb5 |
21205 | 1799 ;;; generic-x.el ends here |