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