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