aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLute Kamstra2005-03-23 10:48:20 +0000
committerLute Kamstra2005-03-23 10:48:20 +0000
commit82e38f3e4cbcae61280552bda68a3b2b0abefc43 (patch)
tree2bc72ce8d565d71a09a793cb3a02de816b35b56d
parentef300cff2178790256f66d29249f3fc0ce506d2e (diff)
downloademacs-82e38f3e4cbcae61280552bda68a3b2b0abefc43.tar.gz
emacs-82e38f3e4cbcae61280552bda68a3b2b0abefc43.zip
Code cleanup: make arguments constant whenever possible.
(installshield-statement-keyword-list) (installshield-system-functions-list) (installshield-system-variables-list, installshield-types-list) (installshield-funarg-constants-list): Make them constants.
Diffstat
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/generic-x.el2235
2 files changed, 1112 insertions, 1130 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82510bb6d27..a99f0af5647 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
12005-03-23 Lute Kamstra <lute@gnu.org> 12005-03-23 Lute Kamstra <lute@gnu.org>
2 2
3 * generic-x.el: Code cleanup: make arguments constant whenever
4 possible.
5 (installshield-statement-keyword-list)
6 (installshield-system-functions-list)
7 (installshield-system-variables-list, installshield-types-list)
8 (installshield-funarg-constants-list): Make them constants.
9
3 * generic.el (generic-make-keywords-list): Add autoload cookie. 10 * generic.el (generic-make-keywords-list): Add autoload cookie.
4 11
5 * calendar/time-date.el: Add comment on time value formats. Don't 12 * calendar/time-date.el: Add comment on time value formats. Don't
diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 94f41c96e22..7b038fd89ab 100644
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -124,30 +124,30 @@ generic-x to enable the specified modes."
124 124
125(and generic-define-mswindows-modes 125(and generic-define-mswindows-modes
126 (setq generic-extras-enable-list 126 (setq generic-extras-enable-list
127 (append (list 'bat-generic-mode 127 (append '(bat-generic-mode
128 'ini-generic-mode 128 ini-generic-mode
129 'inf-generic-mode 129 inf-generic-mode
130 'rc-generic-mode 130 rc-generic-mode
131 'reg-generic-mode 131 reg-generic-mode
132 'rul-generic-mode 132 rul-generic-mode
133 'hosts-generic-mode 133 hosts-generic-mode
134 'apache-conf-generic-mode 134 apache-conf-generic-mode
135 'apache-log-generic-mode) 135 apache-log-generic-mode)
136 generic-extras-enable-list))) 136 generic-extras-enable-list)))
137 137
138(and generic-define-unix-modes 138(and generic-define-unix-modes
139 (setq generic-extras-enable-list 139 (setq generic-extras-enable-list
140 (append (list 'apache-conf-generic-mode 140 (append '(apache-conf-generic-mode
141 'apache-log-generic-mode 141 apache-log-generic-mode
142 'samba-generic-mode 142 samba-generic-mode
143 'hosts-generic-mode 143 hosts-generic-mode
144 'fvwm-generic-mode 144 fvwm-generic-mode
145 'x-resource-generic-mode 145 x-resource-generic-mode
146 'alias-generic-mode 146 alias-generic-mode
147 'inetd-conf-generic-mode 147 inetd-conf-generic-mode
148 'etc-services-generic-mode 148 etc-services-generic-mode
149 'etc-passwd-generic-mode 149 etc-passwd-generic-mode
150 'etc-fstab-generic-mode) 150 etc-fstab-generic-mode)
151 generic-extras-enable-list))) 151 generic-extras-enable-list)))
152 152
153;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 153;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -158,11 +158,11 @@ generic-x to enable the specified modes."
158(when (memq 'apache-conf-generic-mode generic-extras-enable-list) 158(when (memq 'apache-conf-generic-mode generic-extras-enable-list)
159 159
160(define-generic-mode apache-conf-generic-mode 160(define-generic-mode apache-conf-generic-mode
161 (list ?#) 161 '(?#)
162 nil 162 nil
163 '(("^\\s-*\\(<.*>\\)" 1 'font-lock-constant-face) 163 '(("^\\s-*\\(<.*>\\)" 1 font-lock-constant-face)
164 ("^\\s-*\\(\\sw+\\)\\s-" 1 'font-lock-variable-name-face)) 164 ("^\\s-*\\(\\sw+\\)\\s-" 1 font-lock-variable-name-face))
165 (list "srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'") 165 '("srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'")
166 (list 166 (list
167 (function 167 (function
168 (lambda () 168 (lambda ()
@@ -181,7 +181,7 @@ generic-x to enable the specified modes."
181 '(("^\\([-a-zA-z0-9.]+\\) - [-A-Za-z]+ \\(\\[.*\\]\\)" 181 '(("^\\([-a-zA-z0-9.]+\\) - [-A-Za-z]+ \\(\\[.*\\]\\)"
182 (1 font-lock-constant-face) 182 (1 font-lock-constant-face)
183 (2 font-lock-variable-name-face))) 183 (2 font-lock-variable-name-face)))
184 (list "access_log\\'") 184 '("access_log\\'")
185 nil 185 nil
186 "Mode for Apache log files")) 186 "Mode for Apache log files"))
187 187
@@ -189,14 +189,14 @@ generic-x to enable the specified modes."
189(when (memq 'samba-generic-mode generic-extras-enable-list) 189(when (memq 'samba-generic-mode generic-extras-enable-list)
190 190
191(define-generic-mode samba-generic-mode 191(define-generic-mode samba-generic-mode
192 (list ?\; ?#) 192 '(?\; ?#)
193 nil 193 nil
194 '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face) 194 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
195 ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)" 195 ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)"
196 (1 'font-lock-variable-name-face) 196 (1 font-lock-variable-name-face)
197 (2 'font-lock-type-face))) 197 (2 font-lock-type-face)))
198 (list "smb\\.conf\\'") 198 '("smb\\.conf\\'")
199 (list 'generic-bracket-support) 199 '(generic-bracket-support)
200 "Generic mode for Samba configuration files.")) 200 "Generic mode for Samba configuration files."))
201 201
202;;; Fvwm 202;;; Fvwm
@@ -205,23 +205,22 @@ generic-x to enable the specified modes."
205(when (memq 'fvwm-generic-mode generic-extras-enable-list) 205(when (memq 'fvwm-generic-mode generic-extras-enable-list)
206 206
207(define-generic-mode fvwm-generic-mode 207(define-generic-mode fvwm-generic-mode
208 (list ?#) 208 '(?#)
209 (list 209 '("AddToMenu"
210 "AddToMenu" 210 "AddToFunc"
211 "AddToFunc" 211 "ButtonStyle"
212 "ButtonStyle" 212 "EndFunction"
213 "EndFunction" 213 "EndPopup"
214 "EndPopup" 214 "Function"
215 "Function" 215 "IconPath"
216 "IconPath" 216 "Key"
217 "Key" 217 "ModulePath"
218 "ModulePath" 218 "Mouse"
219 "Mouse" 219 "PixmapPath"
220 "PixmapPath" 220 "Popup"
221 "Popup" 221 "Style")
222 "Style")
223 nil 222 nil
224 (list "\\.fvwmrc\\'" "\\.fvwm2rc\\'") 223 '("\\.fvwmrc\\'" "\\.fvwm2rc\\'")
225 nil 224 nil
226 "Generic mode for FVWM configuration files.")) 225 "Generic mode for FVWM configuration files."))
227 226
@@ -231,10 +230,10 @@ generic-x to enable the specified modes."
231(when (memq 'x-resource-generic-mode generic-extras-enable-list) 230(when (memq 'x-resource-generic-mode generic-extras-enable-list)
232 231
233(define-generic-mode x-resource-generic-mode 232(define-generic-mode x-resource-generic-mode
234 (list ?!) 233 '(?!)
235 nil 234 nil
236 '(("^\\([^:\n]+:\\)" 1 'font-lock-variable-name-face)) 235 '(("^\\([^:\n]+:\\)" 1 font-lock-variable-name-face))
237 (list "\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'") 236 '("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
238 nil 237 nil
239 "Generic mode for X Resource configuration files.")) 238 "Generic mode for X Resource configuration files."))
240 239
@@ -242,10 +241,10 @@ generic-x to enable the specified modes."
242(when (memq 'hosts-generic-mode generic-extras-enable-list) 241(when (memq 'hosts-generic-mode generic-extras-enable-list)
243 242
244(define-generic-mode hosts-generic-mode 243(define-generic-mode hosts-generic-mode
245 (list ?#) 244 '(?#)
246 (list "localhost") 245 '("localhost")
247 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face)) 246 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face))
248 (list "[hH][oO][sS][tT][sS]\\'") 247 '("[hH][oO][sS][tT][sS]\\'")
249 nil 248 nil
250 "Generic mode for HOSTS files.")) 249 "Generic mode for HOSTS files."))
251 250
@@ -253,11 +252,11 @@ generic-x to enable the specified modes."
253(when (memq 'inf-generic-mode generic-extras-enable-list) 252(when (memq 'inf-generic-mode generic-extras-enable-list)
254 253
255(define-generic-mode inf-generic-mode 254(define-generic-mode inf-generic-mode
256 (list ?\;) 255 '(?\;)
257 nil 256 nil
258 '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face)) 257 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face))
259 (list "\\.[iI][nN][fF]\\'") 258 '("\\.[iI][nN][fF]\\'")
260 (list 'generic-bracket-support) 259 '(generic-bracket-support)
261 "Generic mode for MS-Windows INF files.")) 260 "Generic mode for MS-Windows INF files."))
262 261
263;;; Windows INI files 262;;; Windows INI files
@@ -265,13 +264,13 @@ generic-x to enable the specified modes."
265(when (memq 'ini-generic-mode generic-extras-enable-list) 264(when (memq 'ini-generic-mode generic-extras-enable-list)
266 265
267(define-generic-mode ini-generic-mode 266(define-generic-mode ini-generic-mode
268 (list ?\;) 267 '(?\;)
269 nil 268 nil
270 '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face) 269 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
271 ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$" 270 ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$"
272 (1 font-lock-function-name-face) 271 (1 font-lock-function-name-face)
273 (2 font-lock-variable-name-face))) 272 (2 font-lock-variable-name-face)))
274 (list "\\.[iI][nN][iI]\\'") 273 '("\\.[iI][nN][iI]\\'")
275 (list 274 (list
276 (function 275 (function
277 (lambda () 276 (lambda ()
@@ -287,8 +286,8 @@ generic-x to enable the specified modes."
287(define-generic-mode reg-generic-mode 286(define-generic-mode reg-generic-mode
288 '(?\;) 287 '(?\;)
289 '("key" "classes_root" "REGEDIT" "REGEDIT4") 288 '("key" "classes_root" "REGEDIT" "REGEDIT4")
290 '(("\\(\\[.*]\\)" 1 'font-lock-constant-face) 289 '(("\\(\\[.*]\\)" 1 font-lock-constant-face)
291 ("^\\([^\n\r]*\\)\\s-*=" 1 'font-lock-variable-name-face)) 290 ("^\\([^\n\r]*\\)\\s-*=" 1 font-lock-variable-name-face))
292 '("\\.[rR][eE][gG]\\'") 291 '("\\.[rR][eE][gG]\\'")
293 (list 292 (list
294 (function 293 (function
@@ -303,77 +302,72 @@ generic-x to enable the specified modes."
303(define-generic-mode bat-generic-mode 302(define-generic-mode bat-generic-mode
304 nil 303 nil
305 nil 304 nil
306 (list 305 (eval-when-compile
307 ;; Make this one first in the list, otherwise comments will
308 ;; be over-written by other variables
309 (list "^[@ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 'font-lock-comment-face t)
310 (list "^[ \t]*\\(::.*\\)" 1 'font-lock-comment-face t)
311 (list
312 "^[@ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)"
313 '(1 font-lock-builtin-face)
314 '(2 font-lock-constant-face t t))
315 ;; Any text (except ON/OFF) following ECHO is a string.
316 (list
317 "^[@ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)"
318 '(1 font-lock-builtin-face)
319 '(3 font-lock-constant-face t t)
320 '(5 font-lock-string-face t t))
321 ;; These keywords appear as the first word on a line. (Actually, they
322 ;; can also appear after "if ..." or "for ..." clause, but since they
323 ;; are frequently used in simple text, we punt.)
324 ;; In `generic-bat-mode-setup-function' we make the keywords
325 ;; case-insensitive
326 (generic-make-keywords-list
327 (list 306 (list
328 "for" 307 ;; Make this one first in the list, otherwise comments will
329 "if") 308 ;; be over-written by other variables
330 'font-lock-keyword-face "^[@ \t]*") 309 '("^[@ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 font-lock-comment-face t)
331 ;; These keywords can be anywhere on a line 310 '("^[ \t]*\\(::.*\\)" 1 font-lock-comment-face t)
332 ;; In `generic-bat-mode-setup-function' we make the keywords 311 '("^[@ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)"
333 ;; case-insensitive 312 (1 font-lock-builtin-face)
334 (generic-make-keywords-list 313 (2 font-lock-constant-face t t))
335 (list 314 ;; Any text (except ON/OFF) following ECHO is a string.
336 "do" 315 '("^[@ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)"
337 "exist" 316 (1 font-lock-builtin-face)
338 "errorlevel" 317 (3 font-lock-constant-face t t)
339 "goto" 318 (5 font-lock-string-face t t))
340 "not") 319 ;; These keywords appear as the first word on a line. (Actually, they
341 'font-lock-keyword-face) 320 ;; can also appear after "if ..." or "for ..." clause, but since they
342 ;; These are built-in commands. Only frequently-used ones are listed. 321 ;; are frequently used in simple text, we punt.)
343 (generic-make-keywords-list 322 ;; In `generic-bat-mode-setup-function' we make the keywords
344 (list 323 ;; case-insensitive
345 "CALL" "call" "Call" 324 (generic-make-keywords-list
346 "CD" "cd" "Cd" 325 '("for"
347 "CLS" "cls" "Cls" 326 "if")
348 "COPY" "copy" "Copy" 327 'font-lock-keyword-face "^[@ \t]*")
349 "DEL" "del" "Del" 328 ;; These keywords can be anywhere on a line
350 "ECHO" "echo" "Echo" 329 ;; In `generic-bat-mode-setup-function' we make the keywords
351 "MD" "md" "Md" 330 ;; case-insensitive
352 "PATH" "path" "Path" 331 (generic-make-keywords-list
353 "PAUSE" "pause" "Pause" 332 '("do"
354 "PROMPT" "prompt" "Prompt" 333 "exist"
355 "RD" "rd" "Rd" 334 "errorlevel"
356 "REN" "ren" "Ren" 335 "goto"
357 "SET" "set" "Set" 336 "not")
358 "START" "start" "Start" 337 'font-lock-keyword-face)
359 "SHIFT" "shift" "Shift") 338 ;; These are built-in commands. Only frequently-used ones are listed.
360 'font-lock-builtin-face "[ \t|\n]") 339 (generic-make-keywords-list
361 (list "^[ \t]*\\(:\\sw+\\)" 1 'font-lock-function-name-face t) 340 '("CALL" "call" "Call"
362 (list "\\(%\\sw+%\\)" 1 'font-lock-variable-name-face t) 341 "CD" "cd" "Cd"
363 (list "\\(%[0-9]\\)" 1 'font-lock-variable-name-face t) 342 "CLS" "cls" "Cls"
364 (list "\\(/[^/ \"\t\n]+\\)" 1 'font-lock-type-face) 343 "COPY" "copy" "Copy"
365 (list "[\t ]+\\([+-][^\t\n\" ]+\\)" 1 'font-lock-type-face) 344 "DEL" "del" "Del"
366 (list "[ \t\n|]\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?" 345 "ECHO" "echo" "Echo"
367 '(1 font-lock-keyword-face) 346 "MD" "md" "Md"
368 '(2 font-lock-function-name-face nil t)) 347 "PATH" "path" "Path"
369 (list "[ \t\n|]\\<\\([sS][eE][tT]\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*=?" 348 "PAUSE" "pause" "Pause"
370 '(1 font-lock-builtin-face) 349 "PROMPT" "prompt" "Prompt"
371 '(2 font-lock-variable-name-face t t))) 350 "RD" "rd" "Rd"
372 (list 351 "REN" "ren" "Ren"
373 "\\.[bB][aA][tT]\\'" 352 "SET" "set" "Set"
374 "\\`[cC][oO][nN][fF][iI][gG]\\." 353 "START" "start" "Start"
375 "\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\." ) 354 "SHIFT" "shift" "Shift")
376 (list 'generic-bat-mode-setup-function) 355 'font-lock-builtin-face "[ \t|\n]")
356 '("^[ \t]*\\(:\\sw+\\)" 1 font-lock-function-name-face t)
357 '("\\(%\\sw+%\\)" 1 font-lock-variable-name-face t)
358 '("\\(%[0-9]\\)" 1 font-lock-variable-name-face t)
359 '("\\(/[^/ \"\t\n]+\\)" 1 font-lock-type-face)
360 '("[\t ]+\\([+-][^\t\n\" ]+\\)" 1 font-lock-type-face)
361 '("[ \t\n|]\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?"
362 (1 font-lock-keyword-face)
363 (2 font-lock-function-name-face nil t))
364 '("[ \t\n|]\\<\\([sS][eE][tT]\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*=?"
365 (1 font-lock-builtin-face)
366 (2 font-lock-variable-name-face t t))))
367 '("\\.[bB][aA][tT]\\'"
368 "\\`[cC][oO][nN][fF][iI][gG]\\."
369 "\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\.")
370 '(generic-bat-mode-setup-function)
377 "Generic mode for MS-Windows BAT files.") 371 "Generic mode for MS-Windows BAT files.")
378 372
379(defvar bat-generic-mode-syntax-table nil 373(defvar bat-generic-mode-syntax-table nil
@@ -416,38 +410,38 @@ generic-x to enable the specified modes."
416;; Make underscores count as words 410;; Make underscores count as words
417(unless bat-generic-mode-syntax-table 411(unless bat-generic-mode-syntax-table
418 (setq bat-generic-mode-syntax-table (make-syntax-table)) 412 (setq bat-generic-mode-syntax-table (make-syntax-table))
419 (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table)) 413 (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table))
420 414
421;; bat-generic-mode doesn't use the comment functionality of generic-mode 415;; bat-generic-mode doesn't use the comment functionality of generic-mode
422;; because it has a three-letter comment-string, so we do it 416;; because it has a three-letter comment-string, so we do it
423;; here manually instead 417;; here manually instead
424(defun generic-bat-mode-setup-function () 418(defun generic-bat-mode-setup-function ()
425 (make-local-variable 'parse-sexp-ignore-comments) 419 (make-local-variable 'parse-sexp-ignore-comments)
426 (make-local-variable 'comment-start) 420 (make-local-variable 'comment-start)
427 (make-local-variable 'comment-start-skip) 421 (make-local-variable 'comment-start-skip)
428 (make-local-variable 'comment-end) 422 (make-local-variable 'comment-end)
429 (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1)) 423 (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1))
430 parse-sexp-ignore-comments t 424 parse-sexp-ignore-comments t
431 comment-end "" 425 comment-end ""
432 comment-start "REM " 426 comment-start "REM "
433 comment-start-skip "[Rr][Ee][Mm] *") 427 comment-start-skip "[Rr][Ee][Mm] *")
434 (set-syntax-table bat-generic-mode-syntax-table) 428 (set-syntax-table bat-generic-mode-syntax-table)
435 ;; Make keywords case-insensitive 429 ;; Make keywords case-insensitive
436 (setq font-lock-defaults (list 'generic-font-lock-defaults nil t)) 430 (setq font-lock-defaults '(generic-font-lock-defaults nil t))
437 (use-local-map bat-generic-mode-keymap))) 431 (use-local-map bat-generic-mode-keymap)))
438 432
439;;; Mailagent 433;;; Mailagent
440;; Mailagent is a Unix mail filtering program. Anyone wanna do a generic mode 434;; Mailagent is a Unix mail filtering program. Anyone wanna do a
441;; for procmail? 435;; generic mode for procmail?
442(when (memq 'mailagent-rules-generic-mode generic-extras-enable-list) 436(when (memq 'mailagent-rules-generic-mode generic-extras-enable-list)
443 437
444(define-generic-mode mailagent-rules-generic-mode 438(define-generic-mode mailagent-rules-generic-mode
445 (list ?#) 439 '(?#)
446 (list "SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT") 440 '("SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT")
447 '(("^\\(\\sw+\\)\\s-*=" 1 'font-lock-variable-name-face) 441 '(("^\\(\\sw+\\)\\s-*=" 1 font-lock-variable-name-face)
448 ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 'font-lock-constant-face)) 442 ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 font-lock-constant-face))
449 (list "\\.rules\\'") 443 '("\\.rules\\'")
450 (list 'mailagent-rules-setup-function) 444 '(mailagent-rules-setup-function)
451 "Mode for Mailagent rules files.") 445 "Mode for Mailagent rules files.")
452 446
453(defun mailagent-rules-setup-function () 447(defun mailagent-rules-setup-function ()
@@ -459,7 +453,7 @@ generic-x to enable the specified modes."
459(when (memq 'prototype-generic-mode generic-extras-enable-list) 453(when (memq 'prototype-generic-mode generic-extras-enable-list)
460 454
461(define-generic-mode prototype-generic-mode 455(define-generic-mode prototype-generic-mode
462 (list ?#) 456 '(?#)
463 nil 457 nil
464 '(("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$" 458 '(("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$"
465 (2 font-lock-constant-face) 459 (2 font-lock-constant-face)
@@ -474,7 +468,7 @@ generic-x to enable the specified modes."
474 ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$" 468 ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$"
475 (1 font-lock-keyword-face) 469 (1 font-lock-keyword-face)
476 (2 font-lock-variable-name-face))) 470 (2 font-lock-variable-name-face)))
477 (list "prototype\\'") 471 '("prototype\\'")
478 nil 472 nil
479 "Mode for Sys V prototype files.")) 473 "Mode for Sys V prototype files."))
480 474
@@ -482,86 +476,84 @@ generic-x to enable the specified modes."
482(when (memq 'pkginfo-generic-mode generic-extras-enable-list) 476(when (memq 'pkginfo-generic-mode generic-extras-enable-list)
483 477
484(define-generic-mode pkginfo-generic-mode 478(define-generic-mode pkginfo-generic-mode
485 (list ?#) 479 '(?#)
486 nil 480 nil
487 '(("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$" 481 '(("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
488 (1 font-lock-keyword-face) 482 (1 font-lock-keyword-face)
489 (2 font-lock-variable-name-face))) 483 (2 font-lock-variable-name-face)))
490 (list "pkginfo\\'") 484 '("pkginfo\\'")
491 nil 485 nil
492 "Mode for Sys V pkginfo files.")) 486 "Mode for Sys V pkginfo files."))
493 487
494;; Javascript mode 488;; Javascript mode
495;; Includes extra keywords from Armando Singer [asinger@MAIL.COLGATE.EDU] 489;; Includes extra keywords from Armando Singer [asinger@MAIL.COLGATE.EDU]
496(define-generic-mode javascript-generic-mode 490(define-generic-mode javascript-generic-mode
497 (list "//" '("/*" . "*/")) 491 '("//" ("/*" . "*/"))
498 (list 492 '("break"
499 "break" 493 "case"
500 "case" 494 "continue"
501 "continue" 495 "default"
502 "default" 496 "delete"
503 "delete" 497 "do"
504 "do" 498 "else"
505 "else" 499 "export"
506 "export" 500 "for"
507 "for" 501 "function"
508 "function" 502 "if"
509 "if" 503 "import"
510 "import" 504 "in"
511 "in" 505 "new"
512 "new" 506 "return"
513 "return" 507 "switch"
514 "switch" 508 "this"
515 "this" 509 "typeof"
516 "typeof" 510 "var"
517 "var" 511 "void"
518 "void" 512 "while"
519 "while" 513 "with"
520 "with" 514 ;; words reserved for ECMA extensions below
521 ;; words reserved for ECMA extensions below 515 "catch"
522 "catch" 516 "class"
523 "class" 517 "const"
524 "const" 518 "debugger"
525 "debugger" 519 "enum"
526 "enum" 520 "extends"
527 "extends" 521 "finally"
528 "finally" 522 "super"
529 "super" 523 "throw"
530 "throw" 524 "try"
531 "try" 525 ;; Java Keywords reserved by JavaScript
532 ;; Java Keywords reserved by JavaScript 526 "abstract"
533 "abstract" 527 "boolean"
534 "boolean" 528 "byte"
535 "byte" 529 "char"
536 "char" 530 "double"
537 "double" 531 "false"
538 "false" 532 "final"
539 "final" 533 "float"
540 "float" 534 "goto"
541 "goto" 535 "implements"
542 "implements" 536 "instanceof"
543 "instanceof" 537 "int"
544 "int" 538 "interface"
545 "interface" 539 "long"
546 "long" 540 "native"
547 "native" 541 "null"
548 "null" 542 "package"
549 "package" 543 "private"
550 "private" 544 "protected"
551 "protected" 545 "public"
552 "public" 546 "short"
553 "short" 547 "static"
554 "static" 548 "synchronized"
555 "synchronized" 549 "throws"
556 "throws" 550 "transient"
557 "transient" 551 "true")
558 "true") 552 '(("^\\s-*function\\s-+\\([A-Za-z0-9_]+\\)"
559 (list 553 (1 font-lock-function-name-face))
560 (list "^\\s-*function\\s-+\\([A-Za-z0-9_]+\\)" 554 ("^\\s-*var\\s-+\\([A-Za-z0-9_]+\\)"
561 '(1 font-lock-function-name-face)) 555 (1 font-lock-variable-name-face)))
562 (list "^\\s-*var\\s-+\\([A-Za-z0-9_]+\\)" 556 '("\\.js\\'")
563 '(1 font-lock-variable-name-face)))
564 (list "\\.js\\'")
565 (list 557 (list
566 (function 558 (function
567 (lambda () 559 (lambda ()
@@ -572,48 +564,45 @@ generic-x to enable the specified modes."
572 564
573;; VRML files 565;; VRML files
574(define-generic-mode vrml-generic-mode 566(define-generic-mode vrml-generic-mode
575 (list ?#) 567 '(?#)
576 (list 568 '("DEF"
577 "DEF" 569 "NULL"
578 "NULL" 570 "USE"
579 "USE" 571 "Viewpoint"
580 "Viewpoint" 572 "ambientIntensity"
581 "ambientIntensity" 573 "appearance"
582 "appearance" 574 "children"
583 "children" 575 "color"
584 "color" 576 "coord"
585 "coord" 577 "coordIndex"
586 "coordIndex" 578 "creaseAngle"
587 "creaseAngle" 579 "diffuseColor"
588 "diffuseColor" 580 "emissiveColor"
589 "emissiveColor" 581 "fieldOfView"
590 "fieldOfView" 582 "geometry"
591 "geometry" 583 "info"
592 "info" 584 "material"
593 "material" 585 "normal"
594 "normal" 586 "orientation"
595 "orientation" 587 "position"
596 "position" 588 "shininess"
597 "shininess" 589 "specularColor"
598 "specularColor" 590 "texCoord"
599 "texCoord" 591 "texture"
600 "texture" 592 "textureTransform"
601 "textureTransform" 593 "title"
602 "title" 594 "transparency"
603 "transparency" 595 "type")
604 "type") 596 '(("USE\\s-+\\([-A-Za-z0-9_]+\\)"
605 (list 597 (1 font-lock-constant-face))
606 (list "USE\\s-+\\([-A-Za-z0-9_]+\\)" 598 ("DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
607 '(1 font-lock-constant-face)) 599 (1 font-lock-type-face)
608 (list "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{" 600 (2 font-lock-constant-face))
609 '(1 font-lock-type-face) 601 ("^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{"
610 '(2 font-lock-constant-face)) 602 (1 font-lock-function-name-face))
611 (list "^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{" 603 ("^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)"
612 '(1 font-lock-function-name-face)) 604 (2 font-lock-variable-name-face)))
613 (list 605 '("\\.wrl\\'")
614 "^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)"
615 '(2 font-lock-variable-name-face)))
616 (list "\\.wrl\\'")
617 (list 606 (list
618 (function 607 (function
619 (lambda () 608 (lambda ()
@@ -626,45 +615,45 @@ generic-x to enable the specified modes."
626 615
627;; Java Manifests 616;; Java Manifests
628(define-generic-mode java-manifest-generic-mode 617(define-generic-mode java-manifest-generic-mode
629 (list ?#) 618 '(?#)
630 (list 619 '("Name"
631 "Name" 620 "Digest-Algorithms"
632 "Digest-Algorithms" 621 "Manifest-Version"
633 "Manifest-Version" 622 "Required-Version"
634 "Required-Version" 623 "Signature-Version"
635 "Signature-Version" 624 "Magic"
636 "Magic" 625 "Java-Bean"
637 "Java-Bean" 626 "Depends-On")
638 "Depends-On")
639 '(("^Name:\\s-+\\([^\n\r]*\\)$" 627 '(("^Name:\\s-+\\([^\n\r]*\\)$"
640 (1 font-lock-variable-name-face)) 628 (1 font-lock-variable-name-face))
641 ("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$" 629 ("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$"
642 (2 font-lock-constant-face))) 630 (2 font-lock-constant-face)))
643 (list "[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'") 631 '("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
644 nil 632 nil
645 "Mode for Java Manifest files") 633 "Mode for Java Manifest files")
646 634
647;; Java properties files 635;; Java properties files
648(define-generic-mode java-properties-generic-mode 636(define-generic-mode java-properties-generic-mode
649 (list ?! ?#) 637 '(?! ?#)
650 nil 638 nil
651 (let ((java-properties-key 639 (eval-when-compile
652 "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)") 640 (let ((java-properties-key
653 (java-properties-value 641 "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)")
654 "\\([^\r\n]*\\)")) 642 (java-properties-value
655 ;; Property and value can be separated in a number of different ways: 643 "\\([^\r\n]*\\)"))
656 ;; * whitespace 644 ;; Property and value can be separated in a number of different ways:
657 ;; * an equal sign 645 ;; * whitespace
658 ;; * a colon 646 ;; * an equal sign
659 (mapcar 647 ;; * a colon
660 (function 648 (mapcar
661 (lambda (elt) 649 (function
662 (list 650 (lambda (elt)
663 (concat "^" java-properties-key elt java-properties-value "$") 651 (list
664 '(1 font-lock-constant-face) 652 (concat "^" java-properties-key elt java-properties-value "$")
665 '(4 font-lock-variable-name-face)))) 653 '(1 font-lock-constant-face)
666 ;; These are the separators 654 '(4 font-lock-variable-name-face))))
667 (list ":\\s-*" "\\s-+" "\\s-*=\\s-*"))) 655 ;; These are the separators
656 '(":\\s-*" "\\s-+" "\\s-*=\\s-*"))))
668 nil 657 nil
669 (list 658 (list
670 (function 659 (function
@@ -677,13 +666,13 @@ generic-x to enable the specified modes."
677(when (memq 'alias-generic-mode generic-extras-enable-list) 666(when (memq 'alias-generic-mode generic-extras-enable-list)
678 667
679(define-generic-mode alias-generic-mode 668(define-generic-mode alias-generic-mode
680 (list ?#) 669 '(?#)
681 (list "alias" "unalias") 670 '("alias" "unalias")
682 '(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+" 671 '(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+"
683 (1 font-lock-variable-name-face)) 672 (1 font-lock-variable-name-face))
684 ("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$" 673 ("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$"
685 (1 font-lock-variable-name-face))) 674 (1 font-lock-variable-name-face)))
686 (list "alias\\'") 675 '("alias\\'")
687 (list 676 (list
688 (function 677 (function
689 (lambda () 678 (lambda ()
@@ -696,8 +685,8 @@ generic-x to enable the specified modes."
696(when (memq 'rc-generic-mode generic-extras-enable-list) 685(when (memq 'rc-generic-mode generic-extras-enable-list)
697 686
698(define-generic-mode rc-generic-mode 687(define-generic-mode rc-generic-mode
699 ;; (list ?\/) 688 ;; '(?\/)
700 (list "//") 689 '("//")
701 '("ACCELERATORS" 690 '("ACCELERATORS"
702 "AUTO3STATE" 691 "AUTO3STATE"
703 "AUTOCHECKBOX" 692 "AUTOCHECKBOX"
@@ -753,589 +742,585 @@ generic-x to enable the specified modes."
753 ;; the choice of what tokens go where is somewhat arbitrary, 742 ;; the choice of what tokens go where is somewhat arbitrary,
754 ;; as is the choice of which value tokens are included, as 743 ;; as is the choice of which value tokens are included, as
755 ;; the choice of face for each token group 744 ;; the choice of face for each token group
756 (list 745 (eval-when-compile
757 (eval-when-compile 746 (list
758 (generic-make-keywords-list 747 (generic-make-keywords-list
759 (list 748 '("FILEFLAGSMASK"
760 "FILEFLAGSMASK" 749 "FILEFLAGS"
761 "FILEFLAGS" 750 "FILEOS"
762 "FILEOS" 751 "FILESUBTYPE"
763 "FILESUBTYPE" 752 "FILETYPE"
764 "FILETYPE" 753 "FILEVERSION"
765 "FILEVERSION" 754 "PRODUCTVERSION")
766 "PRODUCTVERSION") 755 'font-lock-type-face)
767 'font-lock-type-face))
768 (eval-when-compile
769 (generic-make-keywords-list 756 (generic-make-keywords-list
770 (list 757 '("BEGIN"
771 "BEGIN" 758 "BLOCK"
772 "BLOCK" 759 "END"
773 "END" 760 "VALUE")
774 "VALUE") 761 'font-lock-function-name-face)
775 'font-lock-function-name-face)) 762 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
776 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face) 763 '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
777 '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face) 764 '("^#[ \t]*\\(elif\\|if\\)\\>"
778 '("^#[ \t]*\\(elif\\|if\\)\\>" 765 ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
779 ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil 766 (1 font-lock-constant-face)
780 (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t))) 767 (2 font-lock-variable-name-face nil t)))
781 '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" 768 '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
782 (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t))) 769 (1 font-lock-constant-face)
783 (list "\\.[rR][cC]$") 770 (2 font-lock-variable-name-face nil t))))
784 nil 771 '("\\.[rR][cC]$")
785 "Generic mode for MS-Windows Resource files.")) 772 nil
773 "Generic mode for MS-Windows Resource files."))
786 774
787;; InstallShield RUL files 775;; InstallShield RUL files
788;; Contributed by Alfred.Correira@Pervasive.Com 776;; Contributed by Alfred.Correira@Pervasive.Com
789;; Bugfixes by "Rolf Sandau" <Rolf.Sandau@marconi.com> 777;; Bugfixes by "Rolf Sandau" <Rolf.Sandau@marconi.com>
790(when (memq 'rul-generic-mode generic-extras-enable-list) 778(when (memq 'rul-generic-mode generic-extras-enable-list)
791 779
780(eval-when-compile
781
792;;; build the regexp strings using regexp-opt 782;;; build the regexp strings using regexp-opt
793(defvar installshield-statement-keyword-list 783(defconst installshield-statement-keyword-list
794 (list 784 '("abort"
795 "abort" 785 "begin"
796 "begin" 786 "call"
797 "call" 787 "case"
798 "case" 788 "declare"
799 "declare" 789 "default"
800 "default" 790 "downto"
801 "downto" 791 "elseif"
802 "elseif" 792 "else"
803 "else" 793 "endfor"
804 "endfor" 794 "endif"
805 "endif" 795 "endswitch"
806 "endswitch" 796 "endwhile"
807 "endwhile" 797 "end"
808 "end" 798 "exit"
809 "exit" 799 "external"
810 "external" 800 "for"
811 "for" 801 "function"
812 "function" 802 ;; "goto" -- handled elsewhere
813 ;; "goto" -- handled elsewhere 803 "if"
814 "if" 804 "program"
815 "program" 805 "prototype"
816 "prototype" 806 "repeat"
817 "repeat" 807 "return"
818 "return" 808 "step"
819 "step" 809 "switch"
820 "switch" 810 "then"
821 "then" 811 "to"
822 "to" 812 "typedef"
823 "typedef" 813 "until"
824 "until" 814 "void"
825 "void" 815 "while")
826 "while")
827 "Statement keywords used in InstallShield 3 and 5.") 816 "Statement keywords used in InstallShield 3 and 5.")
828 817
829(defvar installshield-system-functions-list 818(defconst installshield-system-functions-list
830 (list 819 '("AddFolderIcon"
831 "AddFolderIcon" 820 "AddProfString"
832 "AddProfString" 821 "AddressString"
833 "AddressString" 822 "AppCommand"
834 "AppCommand" 823 "AskDestPath"
835 "AskDestPath" 824 "AskOptions"
836 "AskOptions" 825 "AskPath"
837 "AskPath" 826 "AskText"
838 "AskText" 827 "AskYesNo"
839 "AskYesNo" 828 "BatchDeleteEx"
840 "BatchDeleteEx" 829 "BatchFileLoad"
841 "BatchFileLoad" 830 "BatchFileSave"
842 "BatchFileSave" 831 "BatchFind"
843 "BatchFind" 832 "BatchGetFileName"
844 "BatchGetFileName" 833 "BatchMoveEx"
845 "BatchMoveEx" 834 "BatchSetFileName"
846 "BatchSetFileName" 835 "ChangeDirectory"
847 "ChangeDirectory" 836 "CloseFile"
848 "CloseFile" 837 "CmdGetHwndDlg"
849 "CmdGetHwndDlg" 838 "ComponentAddItem" ; differs between IS3 and IS5
850 "ComponentAddItem" ; differs between IS3 and IS5 839 "ComponentCompareSizeRequired" ; IS5 only
851 "ComponentCompareSizeRequired" ; IS5 only 840 "ComponentDialog"
852 "ComponentDialog" 841 "ComponentError" ; IS5 only
853 "ComponentError" ; IS5 only 842 "ComponentFileEnum" ; IS5 only
854 "ComponentFileEnum" ; IS5 only 843 "ComponentFileInfo" ; IS5 only
855 "ComponentFileInfo" ; IS5 only 844 "ComponentFilterLanguage" ; IS5 only
856 "ComponentFilterLanguage" ; IS5 only 845 "ComponentFilterOS" ; IS5 only
857 "ComponentFilterOS" ; IS5 only 846 "ComponentGetData" ; IS5 only
858 "ComponentGetData" ; IS5 only 847 "ComponentGetItemInfo" ; IS3 only
859 "ComponentGetItemInfo" ; IS3 only 848 "ComponentGetItemSize" ; differs between IS3 and IS5
860 "ComponentGetItemSize" ; differs between IS3 and IS5 849 "ComponentIsItemSelected" ; differs between IS3 and IS5
861 "ComponentIsItemSelected" ; differs between IS3 and IS5 850 "ComponentListItems"
862 "ComponentListItems" 851 "ComponentMoveData" ; IS5 only
863 "ComponentMoveData" ; IS5 only 852 "ComponentSelectItem" ; differs between IS3 and IS5
864 "ComponentSelectItem" ; differs between IS3 and IS5 853 "ComponentSetData" ; IS5 only
865 "ComponentSetData" ; IS5 only 854 "ComponentSetItemInfo" ; IS3 only
866 "ComponentSetItemInfo" ; IS3 only 855 "ComponentSetTarget" ; IS5 only
867 "ComponentSetTarget" ; IS5 only 856 "ComponentSetupTypeEnum" ; IS5 only
868 "ComponentSetupTypeEnum" ; IS5 only 857 "ComponentSetupTypeGetData" ; IS5 only
869 "ComponentSetupTypeGetData" ; IS5 only 858 "ComponentSetupTypeSet" ; IS5 only
870 "ComponentSetupTypeSet" ; IS5 only 859 "ComponentTotalSize"
871 "ComponentTotalSize" 860 "ComponentValidate" ; IS5 only
872 "ComponentValidate" ; IS5 only 861 "CompressAdd" ; IS3 only
873 "CompressAdd" ; IS3 only 862 "CompressDel" ; IS3 only
874 "CompressDel" ; IS3 only 863 "CompressEnum" ; IS3 only
875 "CompressEnum" ; IS3 only 864 "CompressGet" ; IS3 only
876 "CompressGet" ; IS3 only 865 "CompressInfo" ; IS3 only
877 "CompressInfo" ; IS3 only 866 "CopyFile"
878 "CopyFile" 867 "CreateDir"
879 "CreateDir" 868 "CreateFile"
880 "CreateFile" 869 "CreateProgramFolder"
881 "CreateProgramFolder" 870 "DeinstallSetReference" ; IS5 only
882 "DeinstallSetReference" ; IS5 only 871 "DeinstallStart"
883 "DeinstallStart" 872 "Delay"
884 "Delay" 873 "DeleteDir"
885 "DeleteDir" 874 "DeleteFile"
886 "DeleteFile" 875 "DialogSetInfo"
887 "DialogSetInfo" 876 "Disable"
888 "Disable" 877 "DoInstall"
889 "DoInstall" 878 "Do"
890 "Do" 879 "Enable"
891 "Enable" 880 "EnterDisk"
892 "EnterDisk" 881 "ExistsDir"
893 "ExistsDir" 882 "ExistsDisk"
894 "ExistsDisk" 883 "ExitProgMan"
895 "ExitProgMan" 884 "EzBatchAddPath"
896 "EzBatchAddPath" 885 "EzBatchAddString"
897 "EzBatchAddString" 886 "EzBatchReplace"
898 "EzBatchReplace" 887 "EzConfigAddDriver"
899 "EzConfigAddDriver" 888 "EzConfigAddString"
900 "EzConfigAddString" 889 "EzConfigGetValue"
901 "EzConfigGetValue" 890 "EzConfigSetValue"
902 "EzConfigSetValue" 891 "EzDefineDialog"
903 "EzDefineDialog" 892 "FileCompare"
904 "FileCompare" 893 "FileDeleteLine"
905 "FileDeleteLine" 894 "FileGrep"
906 "FileGrep" 895 "FileInsertLine"
907 "FileInsertLine" 896 "FileSetBeginDefine" ; IS3 only
908 "FileSetBeginDefine" ; IS3 only 897 "FileSetEndDefine" ; IS3 only
909 "FileSetEndDefine" ; IS3 only 898 "FileSetPerformEz" ; IS3 only
910 "FileSetPerformEz" ; IS3 only 899 "FileSetPerform" ; IS3 only
911 "FileSetPerform" ; IS3 only 900 "FileSetReset" ; IS3 only
912 "FileSetReset" ; IS3 only 901 "FileSetRoot" ; IS3 only
913 "FileSetRoot" ; IS3 only 902 "FindAllDirs"
914 "FindAllDirs" 903 "FindAllFiles"
915 "FindAllFiles" 904 "FindFile"
916 "FindFile" 905 "FindWindow"
917 "FindWindow" 906 "GetDiskSpace"
918 "GetDiskSpace" 907 "GetDisk"
919 "GetDisk" 908 "GetEnvVar"
920 "GetEnvVar" 909 "GetExtents"
921 "GetExtents" 910 "GetFileInfo"
922 "GetFileInfo" 911 "GetLine"
923 "GetLine" 912 "GetProfInt"
924 "GetProfInt" 913 "GetProfString"
925 "GetProfString" 914 "GetSystemInfo"
926 "GetSystemInfo" 915 "GetValidDrivesList"
927 "GetValidDrivesList" 916 "GetVersion"
928 "GetVersion" 917 "GetWindowHandle"
929 "GetWindowHandle" 918 "InstallationInfo"
930 "InstallationInfo" 919 "Is"
931 "Is" 920 "LaunchApp"
932 "LaunchApp" 921 "LaunchAppAndWait"
933 "LaunchAppAndWait" 922 "ListAddItem"
934 "ListAddItem" 923 "ListAddString"
935 "ListAddString" 924 "ListCount"
936 "ListCount" 925 "ListCreate"
937 "ListCreate" 926 "ListDestroy"
938 "ListDestroy" 927 "ListFindItem"
939 "ListFindItem" 928 "ListFindString"
940 "ListFindString" 929 "ListGetFirstItem"
941 "ListGetFirstItem" 930 "ListGetFirstString"
942 "ListGetFirstString" 931 "ListGetNextItem"
943 "ListGetNextItem" 932 "ListGetNextString"
944 "ListGetNextString" 933 "ListReadFromFile"
945 "ListReadFromFile" 934 "ListSetCurrentItem"
946 "ListSetCurrentItem" 935 "ListSetNextItem"
947 "ListSetNextItem" 936 "ListSetNextString"
948 "ListSetNextString" 937 "ListSetIndex"
949 "ListSetIndex" 938 "ListWriteToFile"
950 "ListWriteToFile" 939 "LongPathToQuote"
951 "LongPathToQuote" 940 "LongPathToShortPath"
952 "LongPathToShortPath" 941 "MessageBox"
953 "MessageBox" 942 "NumToStr"
954 "NumToStr" 943 "OpenFileMode"
955 "OpenFileMode" 944 "OpenFile"
956 "OpenFile" 945 "ParsePath"
957 "ParsePath" 946 "PathAdd"
958 "PathAdd" 947 "PathDelete"
959 "PathDelete" 948 "PathFind"
960 "PathFind" 949 "PathGet"
961 "PathGet" 950 "PathMove"
962 "PathMove" 951 "PathSet"
963 "PathSet" 952 "Path"
964 "Path" 953 "PlaceBitmap"
965 "PlaceBitmap" 954 "PlaceWindow"
966 "PlaceWindow" 955 "PlayMMedia" ; IS5 only
967 "PlayMMedia" ; IS5 only 956 "ProgDefGroupType"
968 "ProgDefGroupType" 957 "RegDBCreateKeyEx"
969 "RegDBCreateKeyEx" 958 "RegDBDeleteValue"
970 "RegDBDeleteValue" 959 "RegDBGetItem"
971 "RegDBGetItem" 960 "RegDBKeyExist"
972 "RegDBKeyExist" 961 "RegDBSetItem"
973 "RegDBSetItem" 962 "RegDBGetKeyValueEx"
974 "RegDBGetKeyValueEx" 963 "RegDBSetKeyValueEx"
975 "RegDBSetKeyValueEx" 964 "RegDBSetDefaultRoot"
976 "RegDBSetDefaultRoot" 965 "RenameFile"
977 "RenameFile" 966 "ReplaceFolderIcon"
978 "ReplaceFolderIcon" 967 "ReplaceProfString"
979 "ReplaceProfString" 968 "SdAskDestPath"
980 "SdAskDestPath" 969 "SdAskOptions"
981 "SdAskOptions" 970 "SdAskOptionsList"
982 "SdAskOptionsList" 971 "SdBitmap"
983 "SdBitmap" 972 "SdCloseDlg"
984 "SdCloseDlg" 973 "SdComponentAdvCheckSpace"
985 "SdComponentAdvCheckSpace" 974 "SdComponentAdvInit"
986 "SdComponentAdvInit" 975 "SdComponentAdvUpdateSpace"
987 "SdComponentAdvUpdateSpace" 976 "SdComponentDialog"
988 "SdComponentDialog" 977 "SdComponentDialog2"
989 "SdComponentDialog2" 978 "SdComponentDialogAdv"
990 "SdComponentDialogAdv" 979 "SdComponentDialogEx"
991 "SdComponentDialogEx" 980 "SdComponentDlgCheckSpace"
992 "SdComponentDlgCheckSpace" 981 "SdComponentMult"
993 "SdComponentMult" 982 "SdConfirmNewDir"
994 "SdConfirmNewDir" 983 "SdConfirmRegistration"
995 "SdConfirmRegistration" 984 "SdDiskSpace"
996 "SdDiskSpace" 985 "SdDisplayTopics"
997 "SdDisplayTopics" 986 "SdDoStdButton"
998 "SdDoStdButton" 987 "SdEnablement"
999 "SdEnablement" 988 "SdError"
1000 "SdError" 989 "SdFinish"
1001 "SdFinish" 990 "SdFinishInit32"
1002 "SdFinishInit32" 991 "SdFinishReboot"
1003 "SdFinishReboot" 992 "SdGeneralInit"
1004 "SdGeneralInit" 993 "SdGetItemName"
1005 "SdGetItemName" 994 "SdGetTextExtent"
1006 "SdGetTextExtent" 995 "SdGetUserCompanyInfo"
1007 "SdGetUserCompanyInfo" 996 "SdInit"
1008 "SdInit" 997 "SdIsShellExplorer"
1009 "SdIsShellExplorer" 998 "SdIsStdButton"
1010 "SdIsStdButton" 999 "SdLicense"
1011 "SdLicense" 1000 "SdMakeName"
1012 "SdMakeName" 1001 "SdOptionInit"
1013 "SdOptionInit" 1002 "SdOptionSetState"
1014 "SdOptionSetState" 1003 "SdOptionsButtons"
1015 "SdOptionsButtons" 1004 "SdOptionsButtonsInit"
1016 "SdOptionsButtonsInit" 1005 "SdPlugInProductName"
1017 "SdPlugInProductName" 1006 "SdProductName"
1018 "SdProductName" 1007 "SdRegEnableButton"
1019 "SdRegEnableButton" 1008 "SdRegExEnableButton"
1020 "SdRegExEnableButton" 1009 "SdRegisterUser"
1021 "SdRegisterUser" 1010 "SdRegisterUserEx"
1022 "SdRegisterUserEx" 1011 "SdRemoveEndSpace"
1023 "SdRemoveEndSpace" 1012 "SdSelectFolder"
1024 "SdSelectFolder" 1013 "SdSetSequentialItems"
1025 "SdSetSequentialItems" 1014 "SdSetStatic"
1026 "SdSetStatic" 1015 "SdSetupTypeEx" ; IS5 only
1027 "SdSetupTypeEx" ; IS5 only 1016 "SdSetupType"
1028 "SdSetupType" 1017 "SdShowAnyDialog"
1029 "SdShowAnyDialog" 1018 "SdShowDlgEdit1"
1030 "SdShowDlgEdit1" 1019 "SdShowDlgEdit2"
1031 "SdShowDlgEdit2" 1020 "SdShowDlgEdit3"
1032 "SdShowDlgEdit3" 1021 "SdShowFileMods"
1033 "SdShowFileMods" 1022 "SdShowInfoList"
1034 "SdShowInfoList" 1023 "SdShowMsg"
1035 "SdShowMsg" 1024 "SdStartCopy"
1036 "SdStartCopy" 1025 "SdUnInit"
1037 "SdUnInit" 1026 "SdUpdateComponentSelection"
1038 "SdUpdateComponentSelection" 1027 "SdWelcome"
1039 "SdWelcome" 1028 "SendMessage"
1040 "SendMessage" 1029 "SetColor"
1041 "SetColor" 1030 "SetFont"
1042 "SetFont" 1031 "SetDialogTitle"
1043 "SetDialogTitle" 1032 "SetDisplayEffect" ; IS5 only
1044 "SetDisplayEffect" ; IS5 only 1033 "SetFileInfo"
1045 "SetFileInfo" 1034 "SetForegroundWindow"
1046 "SetForegroundWindow" 1035 "SetStatusWindow"
1047 "SetStatusWindow" 1036 "SetTitle"
1048 "SetTitle" 1037 "SetupType"
1049 "SetupType" 1038 "ShowProgramFolder"
1050 "ShowProgramFolder" 1039 "Split" ; IS3 only
1051 "Split" ; IS3 only 1040 "SprintfBox"
1052 "SprintfBox" 1041 "Sprintf"
1053 "Sprintf" 1042 "StatusUpdate"
1054 "StatusUpdate" 1043 "StrCompare"
1055 "StrCompare" 1044 "StrFind"
1056 "StrFind" 1045 "StrGetTokens"
1057 "StrGetTokens" 1046 "StrLength"
1058 "StrLength" 1047 "StrRemoveLastSlash"
1059 "StrRemoveLastSlash" 1048 "StrToLower"
1060 "StrToLower" 1049 "StrToNum"
1061 "StrToNum" 1050 "StrToUpper"
1062 "StrToUpper" 1051 "StrSub"
1063 "StrSub" 1052 "VarRestore"
1064 "VarRestore" 1053 "VarSave"
1065 "VarSave" 1054 "VerCompare"
1066 "VerCompare" 1055 "VerGetFileVersion"
1067 "VerGetFileVersion" 1056 "WaitOnDialog"
1068 "WaitOnDialog" 1057 "Welcome"
1069 "Welcome" 1058 "WriteLine"
1070 "WriteLine" 1059 "WriteProfString"
1071 "WriteProfString" 1060 "XCopyFile")
1072 "XCopyFile")
1073 "System functions defined in InstallShield 3 and 5.") 1061 "System functions defined in InstallShield 3 and 5.")
1074 1062
1075(defvar installshield-system-variables-list 1063(defconst installshield-system-variables-list
1076 (list 1064 '("BATCH_INSTALL"
1077 "BATCH_INSTALL" 1065 "CMDLINE"
1078 "CMDLINE" 1066 "COMMONFILES"
1079 "COMMONFILES" 1067 "CORECOMPONENTHANDLING"
1080 "CORECOMPONENTHANDLING" 1068 "DIALOGCACHE"
1081 "DIALOGCACHE" 1069 "ERRORFILENAME"
1082 "ERRORFILENAME" 1070 "FOLDER_DESKTOP"
1083 "FOLDER_DESKTOP" 1071 "FOLDER_PROGRAMS"
1084 "FOLDER_PROGRAMS" 1072 "FOLDER_STARTMENU"
1085 "FOLDER_STARTMENU" 1073 "FOLDER_STARTUP"
1086 "FOLDER_STARTUP" 1074 "INFOFILENAME"
1087 "INFOFILENAME" 1075 "ISRES"
1088 "ISRES" 1076 "ISUSER"
1089 "ISUSER" 1077 "ISVERSION"
1090 "ISVERSION" 1078 "MEDIA"
1091 "MEDIA" 1079 "MODE"
1092 "MODE" 1080 "PROGRAMFILES"
1093 "PROGRAMFILES" 1081 "SELECTED_LANGUAGE"
1094 "SELECTED_LANGUAGE" 1082 "SRCDIR"
1095 "SRCDIR" 1083 "SRCDISK"
1096 "SRCDISK" 1084 "SUPPORTDIR"
1097 "SUPPORTDIR" 1085 "TARGETDIR"
1098 "TARGETDIR" 1086 "TARGETDISK"
1099 "TARGETDISK" 1087 "UNINST"
1100 "UNINST" 1088 "WINDIR"
1101 "WINDIR" 1089 "WINDISK"
1102 "WINDISK" 1090 "WINMAJOR"
1103 "WINMAJOR" 1091 "WINSYSDIR"
1104 "WINSYSDIR" 1092 "WINSYSDISK")
1105 "WINSYSDISK")
1106 "System variables used in InstallShield 3 and 5.") 1093 "System variables used in InstallShield 3 and 5.")
1107 1094
1108(defvar installshield-types-list 1095(defconst installshield-types-list
1109 (list 1096 '("BOOL"
1110 "BOOL" 1097 "BYREF"
1111 "BYREF" 1098 "CHAR"
1112 "CHAR" 1099 "HIWORD"
1113 "HIWORD" 1100 "HWND"
1114 "HWND" 1101 "INT"
1115 "INT" 1102 "LIST"
1116 "LIST" 1103 "LONG"
1117 "LONG" 1104 "LOWORD"
1118 "LOWORD" 1105 "LPSTR"
1119 "LPSTR" 1106 "NUMBER"
1120 "NUMBER" 1107 "NUMBERLIST"
1121 "NUMBERLIST" 1108 "POINTER"
1122 "POINTER" 1109 "QUAD"
1123 "QUAD" 1110 "RGB"
1124 "RGB" 1111 "SHORT"
1125 "SHORT" 1112 "STRINGLIST"
1126 "STRINGLIST" 1113 "STRING")
1127 "STRING")
1128 "Type keywords used in InstallShield 3 and 5.") 1114 "Type keywords used in InstallShield 3 and 5.")
1129 1115
1130;;; some might want to skip highlighting these to improve performance 1116;;; some might want to skip highlighting these to improve performance
1131(defvar installshield-funarg-constants-list 1117(defconst installshield-funarg-constants-list
1132 (list 1118 '("AFTER"
1133 "AFTER" 1119 "APPEND"
1134 "APPEND" 1120 "ALLCONTENTS"
1135 "ALLCONTENTS" 1121 "BACKBUTTON"
1136 "BACKBUTTON" 1122 "BACKGROUNDCAPTION"
1137 "BACKGROUNDCAPTION" 1123 "BACKGROUND"
1138 "BACKGROUND" 1124 "BACK"
1139 "BACK" 1125 "BASEMEMORY"
1140 "BASEMEMORY" 1126 "BEFORE"
1141 "BEFORE" 1127 "BIOS"
1142 "BIOS" 1128 "BITMAPICON"
1143 "BITMAPICON" 1129 "BK_BLUE"
1144 "BK_BLUE" 1130 "BK_GREEN"
1145 "BK_GREEN" 1131 "BK_RED"
1146 "BK_RED" 1132 "BLUE"
1147 "BLUE" 1133 "BOOTUPDRIVE"
1148 "BOOTUPDRIVE" 1134 "CANCEL"
1149 "CANCEL" 1135 "CDROM_DRIVE"
1150 "CDROM_DRIVE" 1136 "CDROM"
1151 "CDROM" 1137 "CHECKBOX95"
1152 "CHECKBOX95" 1138 "CHECKBOX"
1153 "CHECKBOX" 1139 "CHECKLINE"
1154 "CHECKLINE" 1140 "CHECKMARK"
1155 "CHECKMARK" 1141 "COLORS"
1156 "COLORS" 1142 "COMMANDEX"
1157 "COMMANDEX" 1143 "COMMAND"
1158 "COMMAND" 1144 "COMP_NORMAL"
1159 "COMP_NORMAL" 1145 "COMP_UPDATE_DATE"
1160 "COMP_UPDATE_DATE" 1146 "COMP_UPDATE_SAME"
1161 "COMP_UPDATE_SAME" 1147 "COMP_UPDATE_VERSION"
1162 "COMP_UPDATE_VERSION" 1148 "COMPACT"
1163 "COMPACT" 1149 "CONTINUE"
1164 "CONTINUE" 1150 "CPU"
1165 "CPU" 1151 "CUSTOM"
1166 "CUSTOM" 1152 "DATE"
1167 "DATE" 1153 "DEFWINDOWMODE"
1168 "DEFWINDOWMODE" 1154 "DIR_WRITEABLE"
1169 "DIR_WRITEABLE" 1155 "DIRECTORY"
1170 "DIRECTORY" 1156 "DISABLE"
1171 "DISABLE" 1157 "DISK_TOTALSPACE"
1172 "DISK_TOTALSPACE" 1158 "DISK"
1173 "DISK" 1159 "DLG_OPTIONS"
1174 "DLG_OPTIONS" 1160 "DLG_PATH"
1175 "DLG_PATH" 1161 "DLG_TEXT"
1176 "DLG_TEXT" 1162 "DLG_ASK_YESNO"
1177 "DLG_ASK_YESNO" 1163 "DLG_ENTER_DISK"
1178 "DLG_ENTER_DISK" 1164 "DLG_ERR"
1179 "DLG_ERR" 1165 "DLG_INFO_ALTIMAGE"
1180 "DLG_INFO_ALTIMAGE" 1166 "DLG_INFO_CHECKSELECTION"
1181 "DLG_INFO_CHECKSELECTION" 1167 "DLG_INFO_KUNITS"
1182 "DLG_INFO_KUNITS" 1168 "DLG_INFO_USEDECIMAL"
1183 "DLG_INFO_USEDECIMAL" 1169 "DLG_MSG_INFORMATION"
1184 "DLG_MSG_INFORMATION" 1170 "DLG_MSG_SEVERE"
1185 "DLG_MSG_SEVERE" 1171 "DLG_MSG_WARNING"
1186 "DLG_MSG_WARNING" 1172 "DLG_STATUS"
1187 "DLG_STATUS" 1173 "DLG_WARNING"
1188 "DLG_WARNING" 1174 "DLG_USER_CAPTION"
1189 "DLG_USER_CAPTION" 1175 "DRIVE"
1190 "DRIVE" 1176 "ENABLE"
1191 "ENABLE" 1177 "END_OF_FILE"
1192 "END_OF_FILE" 1178 "END_OF_LIST"
1193 "END_OF_LIST" 1179 "ENVSPACE"
1194 "ENVSPACE" 1180 "EQUALS"
1195 "EQUALS" 1181 "EXCLUDE_SUBDIR"
1196 "EXCLUDE_SUBDIR" 1182 "EXCLUSIVE"
1197 "EXCLUSIVE" 1183 "EXISTS"
1198 "EXISTS" 1184 "EXIT"
1199 "EXIT" 1185 "EXTENDED_MEMORY"
1200 "EXTENDED_MEMORY" 1186 "EXTENSION_ONLY"
1201 "EXTENSION_ONLY" 1187 "FAILIFEXISTS"
1202 "FAILIFEXISTS" 1188 "FALSE"
1203 "FALSE" 1189 "FEEDBACK_FULL"
1204 "FEEDBACK_FULL" 1190 "FILE_ATTR_ARCHIVED"
1205 "FILE_ATTR_ARCHIVED" 1191 "FILE_ATTR_DIRECTORY"
1206 "FILE_ATTR_DIRECTORY" 1192 "FILE_ATTR_HIDDEN"
1207 "FILE_ATTR_HIDDEN" 1193 "FILE_ATTR_NORMAL"
1208 "FILE_ATTR_NORMAL" 1194 "FILE_ATTR_READONLY"
1209 "FILE_ATTR_READONLY" 1195 "FILE_ATTR_SYSTEM"
1210 "FILE_ATTR_SYSTEM" 1196 "FILE_ATTRIBUTE"
1211 "FILE_ATTRIBUTE" 1197 "FILE_DATE"
1212 "FILE_DATE" 1198 "FILE_LINE_LENGTH"
1213 "FILE_LINE_LENGTH" 1199 "FILE_MODE_APPEND"
1214 "FILE_MODE_APPEND" 1200 "FILE_MODE_BINARYREADONLY"
1215 "FILE_MODE_BINARYREADONLY" 1201 "FILE_MODE_BINARY"
1216 "FILE_MODE_BINARY" 1202 "FILE_MODE_NORMAL"
1217 "FILE_MODE_NORMAL" 1203 "FILE_NO_VERSION"
1218 "FILE_NO_VERSION" 1204 "FILE_NOT_FOUND"
1219 "FILE_NOT_FOUND" 1205 "FILE_SIZE"
1220 "FILE_SIZE" 1206 "FILE_TIME"
1221 "FILE_TIME" 1207 "FILENAME_ONLY"
1222 "FILENAME_ONLY" 1208 "FILENAME"
1223 "FILENAME" 1209 "FIXED_DRIVE"
1224 "FIXED_DRIVE" 1210 "FOLDER_DESKTOP"
1225 "FOLDER_DESKTOP" 1211 "FOLDER_PROGRAMS"
1226 "FOLDER_PROGRAMS" 1212 "FOLDER_STARTMENU"
1227 "FOLDER_STARTMENU" 1213 "FOLDER_STARTUP"
1228 "FOLDER_STARTUP" 1214 "FREEENVSPACE"
1229 "FREEENVSPACE" 1215 "FULLWINDOWMODE"
1230 "FULLWINDOWMODE" 1216 "FULL"
1231 "FULL" 1217 "FONT_TITLE"
1232 "FONT_TITLE" 1218 "GREATER_THAN"
1233 "GREATER_THAN" 1219 "GREEN"
1234 "GREEN" 1220 "HKEY_CLASSES_ROOT"
1235 "HKEY_CLASSES_ROOT" 1221 "HKEY_CURRENT_USER"
1236 "HKEY_CURRENT_USER" 1222 "HKEY_LOCAL_MACHINE"
1237 "HKEY_LOCAL_MACHINE" 1223 "HKEY_USERS"
1238 "HKEY_USERS" 1224 "HOURGLASS"
1239 "HOURGLASS" 1225 "INCLUDE_SUBDIR"
1240 "INCLUDE_SUBDIR" 1226 "INDVFILESTATUS"
1241 "INDVFILESTATUS" 1227 "INFORMATION"
1242 "INFORMATION" 1228 "IS_WINDOWSNT"
1243 "IS_WINDOWSNT" 1229 "IS_WINDOWS95"
1244 "IS_WINDOWS95" 1230 "IS_WINDOWS"
1245 "IS_WINDOWS" 1231 "IS_WIN32S"
1246 "IS_WIN32S" 1232 "ISTYPE"
1247 "ISTYPE" 1233 "LANGUAGE_DRV"
1248 "LANGUAGE_DRV" 1234 "LANGUAGE"
1249 "LANGUAGE" 1235 "LESS_THAN"
1250 "LESS_THAN" 1236 "LIST_NULL"
1251 "LIST_NULL" 1237 "LISTFIRST"
1252 "LISTFIRST" 1238 "LISTNEXT"
1253 "LISTNEXT" 1239 "LOCKEDFILE"
1254 "LOCKEDFILE" 1240 "LOGGING"
1255 "LOGGING" 1241 "LOWER_LEFT"
1256 "LOWER_LEFT" 1242 "LOWER_RIGHT"
1257 "LOWER_RIGHT" 1243 "MAGENTA"
1258 "MAGENTA" 1244 "MOUSE_DRV"
1259 "MOUSE_DRV" 1245 "MOUSE"
1260 "MOUSE" 1246 "NETWORK_DRV"
1261 "NETWORK_DRV" 1247 "NETWORK"
1262 "NETWORK" 1248 "NEXT"
1263 "NEXT" 1249 "NONEXCLUSIVE"
1264 "NONEXCLUSIVE" 1250 "NORMALMODE"
1265 "NORMALMODE" 1251 "NOSET"
1266 "NOSET" 1252 "NOTEXISTS"
1267 "NOTEXISTS" 1253 "NOWAIT"
1268 "NOWAIT" 1254 "NO"
1269 "NO" 1255 "OFF"
1270 "OFF" 1256 "ONLYDIR"
1271 "ONLYDIR" 1257 "ON"
1272 "ON" 1258 "OSMAJOR"
1273 "OSMAJOR" 1259 "OSMINOR"
1274 "OSMINOR" 1260 "OS"
1275 "OS" 1261 "OTHER_FAILURE"
1276 "OTHER_FAILURE" 1262 "PARALLEL"
1277 "PARALLEL" 1263 "PARTIAL"
1278 "PARTIAL" 1264 "PATH_EXISTS"
1279 "PATH_EXISTS" 1265 "PATH"
1280 "PATH" 1266 "RED"
1281 "RED" 1267 "REGDB_APPPATH_DEFAULT"
1282 "REGDB_APPPATH_DEFAULT" 1268 "REGDB_APPPATH"
1283 "REGDB_APPPATH" 1269 "REGDB_BINARY"
1284 "REGDB_BINARY" 1270 "REGDB_ERR_CONNECTIONEXISTS"
1285 "REGDB_ERR_CONNECTIONEXISTS" 1271 "REGDB_ERR_CORRUPTEDREGSITRY"
1286 "REGDB_ERR_CORRUPTEDREGSITRY" 1272 "REGDB_ERR_INITIALIZATION"
1287 "REGDB_ERR_INITIALIZATION" 1273 "REGDB_ERR_INVALIDHANDLE"
1288 "REGDB_ERR_INVALIDHANDLE" 1274 "REGDB_ERR_INVALIDNAME"
1289 "REGDB_ERR_INVALIDNAME" 1275 "REGDB_NUMBER"
1290 "REGDB_NUMBER" 1276 "REGDB_STRING_EXPAND"
1291 "REGDB_STRING_EXPAND" 1277 "REGDB_STRING_MULTI"
1292 "REGDB_STRING_MULTI" 1278 "REGDB_STRING"
1293 "REGDB_STRING" 1279 "REGDB_UNINSTALL_NAME"
1294 "REGDB_UNINSTALL_NAME" 1280 "REMOTE_DRIVE"
1295 "REMOTE_DRIVE" 1281 "REMOVALE_DRIVE"
1296 "REMOVALE_DRIVE" 1282 "REPLACE_ITEM"
1297 "REPLACE_ITEM" 1283 "REPLACE"
1298 "REPLACE" 1284 "RESET"
1299 "RESET" 1285 "RESTART"
1300 "RESTART" 1286 "ROOT"
1301 "ROOT" 1287 "SELFREGISTER"
1302 "SELFREGISTER" 1288 "SERIAL"
1303 "SERIAL" 1289 "SET"
1304 "SET" 1290 "SEVERE"
1305 "SEVERE" 1291 "SHAREDFILE"
1306 "SHAREDFILE" 1292 "SHARE"
1307 "SHARE" 1293 "SILENTMODE"
1308 "SILENTMODE" 1294 "SRCTARGETDIR"
1309 "SRCTARGETDIR" 1295 "STATUSBAR"
1310 "STATUSBAR" 1296 "STATUSDLG"
1311 "STATUSDLG" 1297 "STATUSOLD"
1312 "STATUSOLD" 1298 "STATUS"
1313 "STATUS" 1299 "STYLE_NORMAL"
1314 "STYLE_NORMAL" 1300 "SW_MAXIMIZE"
1315 "SW_MAXIMIZE" 1301 "SW_MINIMIZE"
1316 "SW_MINIMIZE" 1302 "SW_RESTORE"
1317 "SW_RESTORE" 1303 "SW_SHOW"
1318 "SW_SHOW" 1304 "SYS_BOOTMACHINE"
1319 "SYS_BOOTMACHINE" 1305 "TIME"
1320 "TIME" 1306 "TRUE"
1321 "TRUE" 1307 "TYPICAL"
1322 "TYPICAL" 1308 "UPPER_LEFT"
1323 "UPPER_LEFT" 1309 "UPPER_RIGHT"
1324 "UPPER_RIGHT" 1310 "VALID_PATH"
1325 "VALID_PATH" 1311 "VERSION"
1326 "VERSION" 1312 "VIDEO"
1327 "VIDEO" 1313 "VOLUMELABEL"
1328 "VOLUMELABEL" 1314 "YELLOW"
1329 "YELLOW" 1315 "YES"
1330 "YES" 1316 "WAIT"
1331 "WAIT" 1317 "WARNING"
1332 "WARNING" 1318 "WINMAJOR"
1333 "WINMAJOR" 1319 "WINMINOR"
1334 "WINMINOR" 1320 "WIN32SINSTALLED"
1335 "WIN32SINSTALLED" 1321 "WIN32SMAJOR"
1336 "WIN32SMAJOR" 1322 "WIN32SMINOR")
1337 "WIN32SMINOR") 1323 "Function argument constants used in InstallShield 3 and 5."))
1338 "Function argument constants used in InstallShield 3 and 5.")
1339 1324
1340(defvar rul-generic-mode-syntax-table nil 1325(defvar rul-generic-mode-syntax-table nil
1341 "Syntax table to use in rul-generic-mode buffers.") 1326 "Syntax table to use in rul-generic-mode buffers.")
@@ -1343,18 +1328,18 @@ generic-x to enable the specified modes."
1343(setq rul-generic-mode-syntax-table 1328(setq rul-generic-mode-syntax-table
1344 (make-syntax-table c++-mode-syntax-table)) 1329 (make-syntax-table c++-mode-syntax-table))
1345 1330
1346(modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) 1331(modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table)
1347(modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) 1332(modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table)
1348 1333
1349(modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) 1334(modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table)
1350(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) 1335(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table)
1351 1336
1352;; here manually instead 1337;; here manually instead
1353(defun generic-rul-mode-setup-function () 1338(defun generic-rul-mode-setup-function ()
1354 (make-local-variable 'parse-sexp-ignore-comments) 1339 (make-local-variable 'parse-sexp-ignore-comments)
1355 (make-local-variable 'comment-start) 1340 (make-local-variable 'comment-start)
1356 (make-local-variable 'comment-start-skip) 1341 (make-local-variable 'comment-start-skip)
1357 (make-local-variable 'comment-end) 1342 (make-local-variable 'comment-end)
1358 (setq imenu-generic-expression 1343 (setq imenu-generic-expression
1359 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)) 1344 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1))
1360 parse-sexp-ignore-comments t 1345 parse-sexp-ignore-comments t
@@ -1364,46 +1349,47 @@ generic-x to enable the specified modes."
1364;;; comment-start "//" 1349;;; comment-start "//"
1365;;; comment-start-skip "" 1350;;; comment-start-skip ""
1366 ) 1351 )
1367 ;; (set-syntax-table rul-generic-mode-syntax-table) 1352 ;; (set-syntax-table rul-generic-mode-syntax-table)
1368 (setq font-lock-syntax-table rul-generic-mode-syntax-table)) 1353 (setq font-lock-syntax-table rul-generic-mode-syntax-table))
1369 1354
1370;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan 1355;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan
1371(define-generic-mode rul-generic-mode 1356(define-generic-mode rul-generic-mode
1372 ;; Using "/*" and "*/" doesn't seem to be working right 1357 ;; Using "/*" and "*/" doesn't seem to be working right
1373 (list "//" '("/*" . "*/" )) 1358 '("//" ("/*" . "*/" ))
1374 installshield-statement-keyword-list 1359 (eval-when-compile installshield-statement-keyword-list)
1375 (list 1360 (eval-when-compile
1376 ;; preprocessor constructs 1361 (list
1377 '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1362 ;; preprocessor constructs
1378 1 font-lock-string-face) 1363 '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
1379 '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" 1364 1 font-lock-string-face)
1380 (1 font-lock-reference-face) 1365 '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
1381 (2 font-lock-variable-name-face nil t)) 1366 (1 font-lock-reference-face)
1382 ;; indirect string constants 1367 (2 font-lock-variable-name-face nil t))
1383 '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face) 1368 ;; indirect string constants
1384 ;; gotos 1369 '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face)
1385 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face) 1370 ;; gotos
1386 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?" 1371 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face)
1387 (1 font-lock-keyword-face) 1372 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
1388 (2 font-lock-reference-face nil t)) 1373 (1 font-lock-keyword-face)
1389 ;; system variables 1374 (2 font-lock-reference-face nil t))
1390 (generic-make-keywords-list 1375 ;; system variables
1391 installshield-system-variables-list 1376 (generic-make-keywords-list
1392 'font-lock-variable-name-face "[^_]" "[^_]") 1377 installshield-system-variables-list
1393 ;; system functions 1378 'font-lock-variable-name-face "[^_]" "[^_]")
1394 (generic-make-keywords-list 1379 ;; system functions
1395 installshield-system-functions-list 1380 (generic-make-keywords-list
1396 'font-lock-function-name-face "[^_]" "[^_]") 1381 installshield-system-functions-list
1397 ;; type keywords 1382 'font-lock-function-name-face "[^_]" "[^_]")
1398 (generic-make-keywords-list 1383 ;; type keywords
1399 installshield-types-list 1384 (generic-make-keywords-list
1400 'font-lock-type-face "[^_]" "[^_]") 1385 installshield-types-list
1401 ;; function argument constants 1386 'font-lock-type-face "[^_]" "[^_]")
1402 (generic-make-keywords-list 1387 ;; function argument constants
1403 installshield-funarg-constants-list 1388 (generic-make-keywords-list
1404 'font-lock-variable-name-face "[^_]" "[^_]")) ; is this face the best choice? 1389 installshield-funarg-constants-list
1405 (list "\\.[rR][uU][lL]$") 1390 'font-lock-variable-name-face "[^_]" "[^_]"))) ; is this face the best choice?
1406 (list 'generic-rul-mode-setup-function) 1391 '("\\.[rR][uU][lL]$")
1392 '(generic-rul-mode-setup-function)
1407 "Generic mode for InstallShield RUL files.") 1393 "Generic mode for InstallShield RUL files.")
1408 1394
1409(define-skeleton rul-if 1395(define-skeleton rul-if
@@ -1432,24 +1418,23 @@ generic-x to enable the specified modes."
1432 1418
1433;; Additions by ACorreir@pervasive-sw.com (Alfred Correira) 1419;; Additions by ACorreir@pervasive-sw.com (Alfred Correira)
1434(define-generic-mode mailrc-generic-mode 1420(define-generic-mode mailrc-generic-mode
1435 (list ?#) 1421 '(?#)
1436 (list 1422 '("alias"
1437 "alias" 1423 "else"
1438 "else" 1424 "endif"
1439 "endif" 1425 "group"
1440 "group" 1426 "if"
1441 "if" 1427 "ignore"
1442 "ignore" 1428 "set"
1443 "set" 1429 "source"
1444 "source" 1430 "unset")
1445 "unset")
1446 '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" 1431 '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
1447 (2 font-lock-constant-face) (3 font-lock-variable-name-face)) 1432 (2 font-lock-constant-face) (3 font-lock-variable-name-face))
1448 ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$" 1433 ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$"
1449 (2 font-lock-constant-face) (3 font-lock-variable-name-face)) 1434 (2 font-lock-constant-face) (3 font-lock-variable-name-face))
1450 ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" 1435 ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
1451 (2 font-lock-variable-name-face))) 1436 (2 font-lock-variable-name-face)))
1452 (list "\\.mailrc\\'") 1437 '("\\.mailrc\\'")
1453 nil 1438 nil
1454 "Mode for mailrc files.") 1439 "Mode for mailrc files.")
1455 1440
@@ -1457,17 +1442,15 @@ generic-x to enable the specified modes."
1457(when (memq 'inetd-conf-generic-mode generic-extras-enable-list) 1442(when (memq 'inetd-conf-generic-mode generic-extras-enable-list)
1458 1443
1459(define-generic-mode inetd-conf-generic-mode 1444(define-generic-mode inetd-conf-generic-mode
1460 (list ?#) 1445 '(?#)
1461 (list 1446 '("stream"
1462 "stream" 1447 "dgram"
1463 "dgram" 1448 "tcp"
1464 "tcp" 1449 "udp"
1465 "udp" 1450 "wait"
1466 "wait" 1451 "nowait"
1467 "nowait" 1452 "internal")
1468 "internal") 1453 '(("^\\([-A-Za-z0-9_]+\\)" 1 font-lock-type-face))
1469 '(("^\\([-A-Za-z0-9_]+\\)"
1470 1 'font-lock-type-face))
1471 '("/etc/inetd.conf\\'") 1454 '("/etc/inetd.conf\\'")
1472 (list 1455 (list
1473 (function 1456 (function
@@ -1479,14 +1462,13 @@ generic-x to enable the specified modes."
1479(when (memq 'etc-services-generic-mode generic-extras-enable-list) 1462(when (memq 'etc-services-generic-mode generic-extras-enable-list)
1480 1463
1481(define-generic-mode etc-services-generic-mode 1464(define-generic-mode etc-services-generic-mode
1482 (list ?#) 1465 '(?#)
1483 (list 1466 '("tcp"
1484 "tcp" 1467 "udp"
1485 "udp" 1468 "ddp")
1486 "ddp")
1487 '(("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/" 1469 '(("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/"
1488 (1 'font-lock-type-face) 1470 (1 font-lock-type-face)
1489 (2 'font-lock-variable-name-face))) 1471 (2 font-lock-variable-name-face)))
1490 '("/etc/services\\'") 1472 '("/etc/services\\'")
1491 (list 1473 (list
1492 (function 1474 (function
@@ -1499,35 +1481,36 @@ generic-x to enable the specified modes."
1499 1481
1500(define-generic-mode etc-passwd-generic-mode 1482(define-generic-mode etc-passwd-generic-mode
1501 nil ;; No comment characters 1483 nil ;; No comment characters
1502 (list "root") ;; Only one keyword 1484 '("root") ;; Only one keyword
1503 (list 1485 (eval-when-compile
1504 (list 1486 (list
1505 (concat 1487 (list
1506 "^" 1488 (concat
1507 ;; User name -- Never blank! 1489 "^"
1508 "\\([^:]+\\)" 1490 ;; User name -- Never blank!
1509 ":" 1491 "\\([^:]+\\)"
1510 ;; Password, UID and GID 1492 ":"
1511 (mapconcat 1493 ;; Password, UID and GID
1512 'identity 1494 (mapconcat
1513 (make-list 3 "\\([^:]+\\)") 1495 'identity
1514 ":") 1496 (make-list 3 "\\([^:]+\\)")
1515 ":" 1497 ":")
1516 ;; GECOS/Name -- might be blank 1498 ":"
1517 "\\([^:]*\\)" 1499 ;; GECOS/Name -- might be blank
1518 ":" 1500 "\\([^:]*\\)"
1519 ;; Home directory and shell 1501 ":"
1520 "\\([^:]+\\)" 1502 ;; Home directory and shell
1521 ":?" 1503 "\\([^:]+\\)"
1522 "\\([^:]*\\)" 1504 ":?"
1523 "$") 1505 "\\([^:]*\\)"
1524 '(1 'font-lock-type-face) 1506 "$")
1525 '(5 'font-lock-variable-name-face) 1507 '(1 font-lock-type-face)
1526 '(6 'font-lock-constant-face) 1508 '(5 font-lock-variable-name-face)
1527 '(7 'font-lock-warning-face)) 1509 '(6 font-lock-constant-face)
1528 '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$" 1510 '(7 font-lock-warning-face))
1529 (1 'font-lock-type-face) 1511 '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$"
1530 (4 'font-lock-variable-name-face))) 1512 (1 font-lock-type-face)
1513 (4 font-lock-variable-name-face))))
1531 '("/etc/passwd\\'" "/etc/group\\'") 1514 '("/etc/passwd\\'" "/etc/group\\'")
1532 (list 1515 (list
1533 (function 1516 (function
@@ -1539,46 +1522,45 @@ generic-x to enable the specified modes."
1539(when (memq 'etc-fstab-generic-mode generic-extras-enable-list) 1522(when (memq 'etc-fstab-generic-mode generic-extras-enable-list)
1540 1523
1541(define-generic-mode etc-fstab-generic-mode 1524(define-generic-mode etc-fstab-generic-mode
1542 (list ?#) 1525 '(?#)
1543 (list 1526 '("adfs"
1544 "adfs" 1527 "affs"
1545 "affs" 1528 "autofs"
1546 "autofs" 1529 "coda"
1547 "coda" 1530 "coherent"
1548 "coherent" 1531 "cramfs"
1549 "cramfs" 1532 "devpts"
1550 "devpts" 1533 "efs"
1551 "efs" 1534 "ext2"
1552 "ext2" 1535 "ext3"
1553 "ext3" 1536 "hfs"
1554 "hfs" 1537 "hpfs"
1555 "hpfs" 1538 "iso9660"
1556 "iso9660" 1539 "jfs"
1557 "jfs" 1540 "minix"
1558 "minix" 1541 "msdos"
1559 "msdos" 1542 "ncpfs"
1560 "ncpfs" 1543 "nfs"
1561 "nfs" 1544 "ntfs"
1562 "ntfs" 1545 "proc"
1563 "proc" 1546 "qnx4"
1564 "qnx4" 1547 "reiserfs"
1565 "reiserfs" 1548 "romfs"
1566 "romfs" 1549 "smbfs"
1567 "smbfs" 1550 "sysv"
1568 "sysv" 1551 "tmpfs"
1569 "tmpfs" 1552 "udf"
1570 "udf" 1553 "ufs"
1571 "ufs" 1554 "umsdos"
1572 "umsdos" 1555 "vfat"
1573 "vfat" 1556 "xenix"
1574 "xenix" 1557 "xfs"
1575 "xfs" 1558 "swap"
1576 "swap" 1559 "auto"
1577 "auto" 1560 "ignore")
1578 "ignore")
1579 '(("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)" 1561 '(("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)"
1580 (1 'font-lock-type-face) 1562 (1 font-lock-type-face)
1581 (2 'font-lock-variable-name-face))) 1563 (2 font-lock-variable-name-face)))
1582 '("/etc/[v]*fstab\\'") 1564 '("/etc/[v]*fstab\\'")
1583 (list 1565 (list
1584 (function 1566 (function
@@ -1588,16 +1570,16 @@ generic-x to enable the specified modes."
1588 1570
1589;; From Jacques Duthen <jacques.duthen@sncf.fr> 1571;; From Jacques Duthen <jacques.duthen@sncf.fr>
1590(defvar show-tabs-generic-mode-font-lock-defaults-1 1572(defvar show-tabs-generic-mode-font-lock-defaults-1
1591 '( ;; trailing spaces must come before... 1573 '(;; trailing spaces must come before...
1592 ("[ \t]+$" . 'show-tabs-space-face) 1574 ("[ \t]+$" . show-tabs-space-face)
1593 ;; ...embedded tabs 1575 ;; ...embedded tabs
1594 ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab-face)))) 1576 ("[^\n\t]\\(\t+\\)" (1 show-tabs-tab-face))))
1595 1577
1596(defvar show-tabs-generic-mode-font-lock-defaults-2 1578(defvar show-tabs-generic-mode-font-lock-defaults-2
1597 '( ;; trailing spaces must come before... 1579 '(;; trailing spaces must come before...
1598 ("[ \t]+$" . 'show-tabs-space-face) 1580 ("[ \t]+$" . show-tabs-space-face)
1599 ;; ...tabs 1581 ;; ...tabs
1600 ("\t+" . 'show-tabs-tab-face))) 1582 ("\t+" . show-tabs-tab-face)))
1601 1583
1602(defface show-tabs-tab-face 1584(defface show-tabs-tab-face
1603 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold)) 1585 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
@@ -1618,11 +1600,11 @@ generic-x to enable the specified modes."
1618 :group 'show-tabs) 1600 :group 'show-tabs)
1619 1601
1620(define-generic-mode show-tabs-generic-mode 1602(define-generic-mode show-tabs-generic-mode
1621 () ;; no comment char 1603 nil ;; no comment char
1622 () ;; no keywords 1604 nil ;; no keywords
1623 show-tabs-generic-mode-font-lock-defaults-1 1605 show-tabs-generic-mode-font-lock-defaults-1
1624 () ;; no auto-mode-alist 1606 nil ;; no auto-mode-alist
1625 ;; (list 'show-tabs-generic-mode-hook-fun) 1607 ;; '(show-tabs-generic-mode-hook-fun)
1626 nil 1608 nil
1627 "Generic mode to show tabs and trailing spaces") 1609 "Generic mode to show tabs and trailing spaces")
1628 1610
@@ -1632,31 +1614,29 @@ generic-x to enable the specified modes."
1632 1614
1633(define-generic-mode named-boot-generic-mode 1615(define-generic-mode named-boot-generic-mode
1634 ;; List of comment characters 1616 ;; List of comment characters
1635 (list ?\;) 1617 '(?\;)
1636 ;; List of keywords 1618 ;; List of keywords
1637 (list "cache" "primary" "secondary" "forwarders" "limit" "options" 1619 '("cache" "primary" "secondary" "forwarders" "limit" "options"
1638 "directory" "check-names") 1620 "directory" "check-names")
1639 ;; List of additional font-lock-expressions 1621 ;; List of additional font-lock-expressions
1640 (list 1622 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)
1641 (list "\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face) 1623 ("^directory\\s-+\\(.*\\)" 1 font-lock-variable-name-face)
1642 (list "^directory\\s-+\\(.*\\)" 1 'font-lock-variable-name-face) 1624 ("^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)"
1643 (list "^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)" 1625 (2 font-lock-variable-name-face)
1644 (list 2 'font-lock-variable-name-face) 1626 (3 font-lock-constant-face)))
1645 (list 3 'font-lock-constant-face)))
1646 ;; List of additional automode-alist expressions 1627 ;; List of additional automode-alist expressions
1647 (list "/etc/named.boot\\'") 1628 '("/etc/named.boot\\'")
1648 ;; List of set up functions to call 1629 ;; List of set up functions to call
1649 nil) 1630 nil)
1650 1631
1651(define-generic-mode named-database-generic-mode 1632(define-generic-mode named-database-generic-mode
1652 ;; List of comment characters 1633 ;; List of comment characters
1653 (list ?\;) 1634 '(?\;)
1654 ;; List of keywords 1635 ;; List of keywords
1655 (list "IN" "NS" "CNAME" "SOA" "PTR" "MX" "A") 1636 '("IN" "NS" "CNAME" "SOA" "PTR" "MX" "A")
1656 ;; List of additional font-lock-expressions 1637 ;; List of additional font-lock-expressions
1657 (list 1638 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)
1658 (list "\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face) 1639 ("^\\([.A-Za-z0-9]+\\)" 1 font-lock-variable-name-face))
1659 (list "^\\([.A-Za-z0-9]+\\)" 1 'font-lock-variable-name-face))
1660 ;; List of additional automode-alist expressions 1640 ;; List of additional automode-alist expressions
1661 nil 1641 nil
1662 ;; List of set up functions to call 1642 ;; List of set up functions to call
@@ -1672,13 +1652,13 @@ generic-x to enable the specified modes."
1672 1652
1673(define-generic-mode resolve-conf-generic-mode 1653(define-generic-mode resolve-conf-generic-mode
1674 ;; List of comment characters 1654 ;; List of comment characters
1675 (list ?#) 1655 '(?#)
1676 ;; List of keywords 1656 ;; List of keywords
1677 (list "nameserver" "domain" "search" "sortlist" "options") 1657 '("nameserver" "domain" "search" "sortlist" "options")
1678 ;; List of additional font-lock-expressions 1658 ;; List of additional font-lock-expressions
1679 nil 1659 nil
1680 ;; List of additional automode-alist expressions 1660 ;; List of additional automode-alist expressions
1681 (list "/etc/resolv[e]?.conf\\'") 1661 '("/etc/resolv[e]?.conf\\'")
1682 ;; List of set up functions to call 1662 ;; List of set up functions to call
1683 nil) 1663 nil)
1684 1664
@@ -1688,130 +1668,125 @@ generic-x to enable the specified modes."
1688 1668
1689(define-generic-mode spice-generic-mode 1669(define-generic-mode spice-generic-mode
1690 nil 1670 nil
1691 (list 1671 '("and"
1692 "and" 1672 "cccs"
1693 "cccs" 1673 "ccvs"
1694 "ccvs" 1674 "delay"
1695 "delay" 1675 "nand"
1696 "nand" 1676 "nor"
1697 "nor" 1677 "npwl"
1698 "npwl" 1678 "or"
1699 "or" 1679 "par"
1700 "par" 1680 "ppwl"
1701 "ppwl" 1681 "pwl"
1702 "pwl" 1682 "vccap"
1703 "vccap" 1683 "vccs"
1704 "vccs" 1684 "vcr"
1705 "vcr" 1685 "vcvs")
1706 "vcvs") 1686 '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face)
1707 '( 1687 (" \\(\\$ .*\\)$" 1 font-lock-comment-face)
1708 ("^\\s-*\\([*].*\\)" 1 'font-lock-comment-face) 1688 ("^\\(\\$ .*\\)$" 1 font-lock-comment-face)
1709 (" \\(\\$ .*\\)$" 1 'font-lock-comment-face) 1689 ("\\([*].*\\)" 1 font-lock-comment-face)
1710 ("^\\(\\$ .*\\)$" 1 'font-lock-comment-face) 1690 ("^\\([+]\\)" 1 font-lock-string-face)
1711 ("\\([*].*\\)" 1 'font-lock-comment-face) 1691 ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face)
1712 ("^\\([+]\\)" 1 'font-lock-string-face) 1692 ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)
1713 ("^\\s-*\\([.]\\w+\\>\\)" 1 'font-lock-keyword-face) 1693 ("\\('[^']+'\\)" 1 font-lock-string-face)
1714 ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face) 1694 ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face))
1715 ("\\('[^']+'\\)" 1 'font-lock-string-face) 1695 '("\\.[sS][pP]\\'"
1716 ("\\(\"[^\"]+\"\\)" 1 'font-lock-string-face)) 1696 "\\.[sS][pP][iI]\\'"
1717 (list "\\.[sS][pP]\\'" 1697 "\\.[sS][pP][iI][cC][eE]\\'"
1718 "\\.[sS][pP][iI]\\'" 1698 "\\.[iI][nN][cC]\\'")
1719 "\\.[sS][pP][iI][cC][eE]\\'"
1720 "\\.[iI][nN][cC]\\'")
1721 (list 1699 (list
1722 'generic-bracket-support 1700 'generic-bracket-support
1723 ;; Make keywords case-insensitive 1701 ;; Make keywords case-insensitive
1724 (function 1702 (function
1725 (lambda() 1703 (lambda()
1726 (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))))) 1704 (setq font-lock-defaults '(generic-font-lock-defaults nil t)))))
1727 "Generic mode for SPICE circuit netlist files.") 1705 "Generic mode for SPICE circuit netlist files.")
1728 1706
1729(define-generic-mode ibis-generic-mode 1707(define-generic-mode ibis-generic-mode
1730 (list ?|) 1708 '(?|)
1731 nil 1709 nil
1732 '( 1710 '(("[[]\\([^]]*\\)[]]" 1 font-lock-keyword-face)
1733 ("[[]\\([^]]*\\)[]]" 1 'font-lock-keyword-face) 1711 ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face))
1734 ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)) 1712 '("\\.[iI][bB][sS]\\'")
1735 (list "\\.[iI][bB][sS]\\'") 1713 '(generic-bracket-support)
1736 (list 'generic-bracket-support)
1737 "Generic mode for IBIS circuit netlist files.") 1714 "Generic mode for IBIS circuit netlist files.")
1738 1715
1739(define-generic-mode astap-generic-mode 1716(define-generic-mode astap-generic-mode
1740 nil 1717 nil
1741 (list 1718 '("analyze"
1742 "analyze" 1719 "description"
1743 "description" 1720 "elements"
1744 "elements" 1721 "execution"
1745 "execution" 1722 "features"
1746 "features" 1723 "functions"
1747 "functions" 1724 "ground"
1748 "ground" 1725 "model"
1749 "model" 1726 "outputs"
1750 "outputs" 1727 "print"
1751 "print" 1728 "run"
1752 "run" 1729 "controls"
1753 "controls" 1730 "table")
1754 "table") 1731 '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face)
1755 '(("^\\s-*\\([*].*\\)" 1 'font-lock-comment-face) 1732 (";\\s-*\\([*].*\\)" 1 font-lock-comment-face)
1756 (";\\s-*\\([*].*\\)" 1 'font-lock-comment-face) 1733 ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face)
1757 ("^\\s-*\\([.]\\w+\\>\\)" 1 'font-lock-keyword-face) 1734 ("\\('[^']+'\\)" 1 font-lock-string-face)
1758 ("\\('[^']+'\\)" 1 'font-lock-string-face) 1735 ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face)
1759 ("\\(\"[^\"]+\"\\)" 1 'font-lock-string-face) 1736 ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face))
1760 ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)) 1737 '("\\.[aA][pP]\\'"
1761 (list "\\.[aA][pP]\\'" 1738 "\\.[aA][sS][xX]\\'"
1762 "\\.[aA][sS][xX]\\'" 1739 "\\.[aA][sS][tT][aA][pP]\\'"
1763 "\\.[aA][sS][tT][aA][pP]\\'" 1740 "\\.[pP][sS][pP]\\'"
1764 "\\.[pP][sS][pP]\\'" 1741 "\\.[dD][eE][cC][kK]\\'"
1765 "\\.[dD][eE][cC][kK]\\'" 1742 "\\.[gG][oO][dD][aA][tT][aA]")
1766 "\\.[gG][oO][dD][aA][tT][aA]")
1767 (list 1743 (list
1768 'generic-bracket-support 1744 'generic-bracket-support
1769 ;; Make keywords case-insensitive 1745 ;; Make keywords case-insensitive
1770 (function 1746 (function
1771 (lambda() 1747 (lambda()
1772 (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))))) 1748 (setq font-lock-defaults '(generic-font-lock-defaults nil t)))))
1773 "Generic mode for ASTAP circuit netlist files.") 1749 "Generic mode for ASTAP circuit netlist files.")
1774 1750
1775(define-generic-mode etc-modules-conf-generic-mode 1751(define-generic-mode etc-modules-conf-generic-mode
1776 ;; List of comment characters 1752 ;; List of comment characters
1777 (list ?#) 1753 '(?#)
1778 ;; List of keywords 1754 ;; List of keywords
1779 (list 1755 '("above"
1780 "above" 1756 "alias"
1781 "alias" 1757 "below"
1782 "below" 1758 "define"
1783 "define" 1759 "depfile"
1784 "depfile" 1760 "else"
1785 "else" 1761 "elseif"
1786 "elseif" 1762 "endif"
1787 "endif" 1763 "if"
1788 "if" 1764 "include"
1789 "include" 1765 "insmod_opt"
1790 "insmod_opt" 1766 "install"
1791 "install" 1767 "keep"
1792 "keep" 1768 "options"
1793 "options" 1769 "path"
1794 "path" 1770 "generic_stringfile"
1795 "generic_stringfile" 1771 "pcimapfile"
1796 "pcimapfile" 1772 "isapnpmapfile"
1797 "isapnpmapfile" 1773 "usbmapfile"
1798 "usbmapfile" 1774 "parportmapfile"
1799 "parportmapfile" 1775 "ieee1394mapfile"
1800 "ieee1394mapfile" 1776 "pnpbiosmapfile"
1801 "pnpbiosmapfile" 1777 "probe"
1802 "probe" 1778 "probeall"
1803 "probeall" 1779 "prune"
1804 "prune" 1780 "post-install"
1805 "post-install" 1781 "post-remove"
1806 "post-remove" 1782 "pre-install"
1807 "pre-install" 1783 "pre-remove"
1808 "pre-remove" 1784 "remove"
1809 "remove" 1785 "persistdir")
1810 "persistdir")
1811 ;; List of additional font-lock-expressions 1786 ;; List of additional font-lock-expressions
1812 nil 1787 nil
1813 ;; List of additional automode-alist expressions 1788 ;; List of additional automode-alist expressions
1814 (list "/etc/modules.conf" "/etc/conf.modules") 1789 '("/etc/modules.conf" "/etc/conf.modules")
1815 ;; List of set up functions to call 1790 ;; List of set up functions to call
1816 nil) 1791 nil)
1817 1792
generated by cgit v1.2.1 (git 2.18.0) at 2026-01-24 20:33:17 +0000