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