(hexl-find-file): Bind `default-major-mode' to `fundamental-mode'.
[emacs.git] / lisp / generic-x.el
blobbb2d3513f891e05b4007b2ac18901b8bb3179a05
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 ;; Bugfixes by "Rolf Sandau" <Rolf.Sandau@marconi.com>
849 (and
850 (memq 'rul-generic-mode generic-extras-enable-list)
851 ;;; build the regexp strings using regexp-opt
852 (defvar installshield-statement-keyword-list
853 (list
854 "abort"
855 "begin"
856 "call"
857 "case"
858 "declare"
859 "default"
860 "downto"
861 "elseif"
862 "else"
863 "endfor"
864 "endif"
865 "endswitch"
866 "endwhile"
867 "end"
868 "exit"
869 "external"
870 "for"
871 "function"
872 ;; "goto" -- handled elsewhere
873 "if"
874 "program"
875 "prototype"
876 "repeat"
877 "return"
878 "step"
879 "switch"
880 "then"
881 "to"
882 "typedef"
883 "until"
884 "void"
885 "while"
887 "Statement keywords used in InstallShield 3 and 5.")
889 (defvar installshield-system-functions-list
890 (list
891 "AddFolderIcon"
892 "AddProfString"
893 "AddressString"
894 "AppCommand"
895 "AskDestPath"
896 "AskOptions"
897 "AskPath"
898 "AskText"
899 "AskYesNo"
900 "BatchDeleteEx"
901 "BatchFileLoad"
902 "BatchFileSave"
903 "BatchFind"
904 "BatchGetFileName"
905 "BatchMoveEx"
906 "BatchSetFileName"
907 "ChangeDirectory"
908 "CloseFile"
909 "CmdGetHwndDlg"
910 "ComponentAddItem" ; differs between IS3 and IS5
911 "ComponentCompareSizeRequired" ; IS5 only
912 "ComponentDialog"
913 "ComponentError" ; IS5 only
914 "ComponentFileEnum" ; IS5 only
915 "ComponentFileInfo" ; IS5 only
916 "ComponentFilterLanguage" ; IS5 only
917 "ComponentFilterOS" ; IS5 only
918 "ComponentGetData" ; IS5 only
919 "ComponentGetItemInfo" ; IS3 only
920 "ComponentGetItemSize" ; differs between IS3 and IS5
921 "ComponentIsItemSelected" ; differs between IS3 and IS5
922 "ComponentListItems"
923 "ComponentMoveData" ; IS5 only
924 "ComponentSelectItem" ; differs between IS3 and IS5
925 "ComponentSetData" ; IS5 only
926 "ComponentSetItemInfo" ; IS3 only
927 "ComponentSetTarget" ; IS5 only
928 "ComponentSetupTypeEnum" ; IS5 only
929 "ComponentSetupTypeGetData" ; IS5 only
930 "ComponentSetupTypeSet" ; IS5 only
931 "ComponentTotalSize"
932 "ComponentValidate" ; IS5 only
933 "CompressAdd" ; IS3 only
934 "CompressDel" ; IS3 only
935 "CompressEnum" ; IS3 only
936 "CompressGet" ; IS3 only
937 "CompressInfo" ; IS3 only
938 "CopyFile"
939 "CreateDir"
940 "CreateFile"
941 "CreateProgramFolder"
942 "DeinstallSetReference" ; IS5 only
943 "DeinstallStart"
944 "Delay"
945 "DeleteDir"
946 "DeleteFile"
947 "DialogSetInfo"
948 "Disable"
949 "DoInstall"
950 "Do"
951 "Enable"
952 "EnterDisk"
953 "ExistsDir"
954 "ExistsDisk"
955 "ExitProgMan"
956 "EzBatchAddPath"
957 "EzBatchAddString"
958 "EzBatchReplace"
959 "EzConfigAddDriver"
960 "EzConfigAddString"
961 "EzConfigGetValue"
962 "EzConfigSetValue"
963 "EzDefineDialog"
964 "FileCompare"
965 "FileDeleteLine"
966 "FileGrep"
967 "FileInsertLine"
968 "FileSetBeginDefine" ; IS3 only
969 "FileSetEndDefine" ; IS3 only
970 "FileSetPerformEz" ; IS3 only
971 "FileSetPerform" ; IS3 only
972 "FileSetReset" ; IS3 only
973 "FileSetRoot" ; IS3 only
974 "FindAllDirs"
975 "FindAllFiles"
976 "FindFile"
977 "FindWindow"
978 "GetDiskSpace"
979 "GetDisk"
980 "GetEnvVar"
981 "GetExtents"
982 "GetFileInfo"
983 "GetLine"
984 "GetProfInt"
985 "GetProfString"
986 "GetSystemInfo"
987 "GetValidDrivesList"
988 "GetVersion"
989 "GetWindowHandle"
990 "InstallationInfo"
991 "Is"
992 "LaunchApp"
993 "LaunchAppAndWait"
994 "ListAddItem"
995 "ListAddString"
996 "ListCount"
997 "ListCreate"
998 "ListDestroy"
999 "ListFindItem"
1000 "ListFindString"
1001 "ListGetFirstItem"
1002 "ListGetFirstString"
1003 "ListGetNextItem"
1004 "ListGetNextString"
1005 "ListReadFromFile"
1006 "ListSetCurrentItem"
1007 "ListSetNextItem"
1008 "ListSetNextString"
1009 "ListSetIndex"
1010 "ListWriteToFile"
1011 "LongPathToQuote"
1012 "LongPathToShortPath"
1013 "MessageBox"
1014 "NumToStr"
1015 "OpenFileMode"
1016 "OpenFile"
1017 "ParsePath"
1018 "PathAdd"
1019 "PathDelete"
1020 "PathFind"
1021 "PathGet"
1022 "PathMove"
1023 "PathSet"
1024 "Path"
1025 "PlaceBitmap"
1026 "PlaceWindow"
1027 "PlayMMedia" ; IS5 only
1028 "ProgDefGroupType"
1029 "RegDBCreateKeyEx"
1030 "RegDBDeleteValue"
1031 "RegDBGetItem"
1032 "RegDBKeyExist"
1033 "RegDBSetItem"
1034 "RegDBGetKeyValueEx"
1035 "RegDBSetKeyValueEx"
1036 "RegDBSetDefaultRoot"
1037 "RenameFile"
1038 "ReplaceFolderIcon"
1039 "ReplaceProfString"
1040 "SdAskDestPath"
1041 "SdAskOptions"
1042 "SdAskOptionsList"
1043 "SdBitmap"
1044 "SdCloseDlg"
1045 "SdComponentAdvCheckSpace"
1046 "SdComponentAdvInit"
1047 "SdComponentAdvUpdateSpace"
1048 "SdComponentDialog"
1049 "SdComponentDialog2"
1050 "SdComponentDialogAdv"
1051 "SdComponentDialogEx"
1052 "SdComponentDlgCheckSpace"
1053 "SdComponentMult"
1054 "SdConfirmNewDir"
1055 "SdConfirmRegistration"
1056 "SdDiskSpace"
1057 "SdDisplayTopics"
1058 "SdDoStdButton"
1059 "SdEnablement"
1060 "SdError"
1061 "SdFinish"
1062 "SdFinishInit32"
1063 "SdFinishReboot"
1064 "SdGeneralInit"
1065 "SdGetItemName"
1066 "SdGetTextExtent"
1067 "SdGetUserCompanyInfo"
1068 "SdInit"
1069 "SdIsShellExplorer"
1070 "SdIsStdButton"
1071 "SdLicense"
1072 "SdMakeName"
1073 "SdOptionInit"
1074 "SdOptionSetState"
1075 "SdOptionsButtons"
1076 "SdOptionsButtonsInit"
1077 "SdPlugInProductName"
1078 "SdProductName"
1079 "SdRegEnableButton"
1080 "SdRegExEnableButton"
1081 "SdRegisterUser"
1082 "SdRegisterUserEx"
1083 "SdRemoveEndSpace"
1084 "SdSelectFolder"
1085 "SdSetSequentialItems"
1086 "SdSetStatic"
1087 "SdSetupTypeEx" ; IS5 only
1088 "SdSetupType"
1089 "SdShowAnyDialog"
1090 "SdShowDlgEdit1"
1091 "SdShowDlgEdit2"
1092 "SdShowDlgEdit3"
1093 "SdShowFileMods"
1094 "SdShowInfoList"
1095 "SdShowMsg"
1096 "SdStartCopy"
1097 "SdUnInit"
1098 "SdUpdateComponentSelection"
1099 "SdWelcome"
1100 "SendMessage"
1101 "SetColor"
1102 "SetFont"
1103 "SetDialogTitle"
1104 "SetDisplayEffect" ; IS5 only
1105 "SetFileInfo"
1106 "SetForegroundWindow"
1107 "SetStatusWindow"
1108 "SetTitle"
1109 "SetupType"
1110 "ShowProgramFolder"
1111 "Split" ; IS3 only
1112 "SprintfBox"
1113 "Sprintf"
1114 "StatusUpdate"
1115 "StrCompare"
1116 "StrFind"
1117 "StrGetTokens"
1118 "StrLength"
1119 "StrRemoveLastSlash"
1120 "StrToLower"
1121 "StrToNum"
1122 "StrToUpper"
1123 "StrSub"
1124 "VarRestore"
1125 "VarSave"
1126 "VerCompare"
1127 "VerGetFileVersion"
1128 "WaitOnDialog"
1129 "Welcome"
1130 "WriteLine"
1131 "WriteProfString"
1132 "XCopyFile"
1134 "System functions defined in InstallShield 3 and 5.")
1136 (defvar installshield-system-variables-list
1137 (list
1138 "BATCH_INSTALL"
1139 "CMDLINE"
1140 "COMMONFILES"
1141 "CORECOMPONENTHANDLING"
1142 "DIALOGCACHE"
1143 "ERRORFILENAME"
1144 "FOLDER_DESKTOP"
1145 "FOLDER_PROGRAMS"
1146 "FOLDER_STARTMENU"
1147 "FOLDER_STARTUP"
1148 "INFOFILENAME"
1149 "ISRES"
1150 "ISUSER"
1151 "ISVERSION"
1152 "MEDIA"
1153 "MODE"
1154 "PROGRAMFILES"
1155 "SELECTED_LANGUAGE"
1156 "SRCDIR"
1157 "SRCDISK"
1158 "SUPPORTDIR"
1159 "TARGETDIR"
1160 "TARGETDISK"
1161 "UNINST"
1162 "WINDIR"
1163 "WINDISK"
1164 "WINMAJOR"
1165 "WINSYSDIR"
1166 "WINSYSDISK"
1168 "System variables used in InstallShield 3 and 5.")
1170 (defvar installshield-types-list
1171 (list
1172 "BOOL"
1173 "BYREF"
1174 "CHAR"
1175 "HIWORD"
1176 "HWND"
1177 "INT"
1178 "LIST"
1179 "LONG"
1180 "LOWORD"
1181 "LPSTR"
1182 "NUMBER"
1183 "NUMBERLIST"
1184 "POINTER"
1185 "QUAD"
1186 "RGB"
1187 "SHORT"
1188 "STRINGLIST"
1189 "STRING"
1191 "Type keywords used in InstallShield 3 and 5.")
1193 ;;; some might want to skip highlighting these to improve performance
1194 (defvar installshield-funarg-constants-list
1195 (list
1196 "AFTER"
1197 "APPEND"
1198 "ALLCONTENTS"
1199 "BACKBUTTON"
1200 "BACKGROUNDCAPTION"
1201 "BACKGROUND"
1202 "BACK"
1203 "BASEMEMORY"
1204 "BEFORE"
1205 "BIOS"
1206 "BITMAPICON"
1207 "BK_BLUE"
1208 "BK_GREEN"
1209 "BK_RED"
1210 "BLUE"
1211 "BOOTUPDRIVE"
1212 "CANCEL"
1213 "CDROM_DRIVE"
1214 "CDROM"
1215 "CHECKBOX95"
1216 "CHECKBOX"
1217 "CHECKLINE"
1218 "CHECKMARK"
1219 "COLORS"
1220 "COMMANDEX"
1221 "COMMAND"
1222 "COMP_NORMAL"
1223 "COMP_UPDATE_DATE"
1224 "COMP_UPDATE_SAME"
1225 "COMP_UPDATE_VERSION"
1226 "COMPACT"
1227 "CONTINUE"
1228 "CPU"
1229 "CUSTOM"
1230 "DATE"
1231 "DEFWINDOWMODE"
1232 "DIR_WRITEABLE"
1233 "DIRECTORY"
1234 "DISABLE"
1235 "DISK_TOTALSPACE"
1236 "DISK"
1237 "DLG_OPTIONS"
1238 "DLG_PATH"
1239 "DLG_TEXT"
1240 "DLG_ASK_YESNO"
1241 "DLG_ENTER_DISK"
1242 "DLG_ERR"
1243 "DLG_INFO_ALTIMAGE"
1244 "DLG_INFO_CHECKSELECTION"
1245 "DLG_INFO_KUNITS"
1246 "DLG_INFO_USEDECIMAL"
1247 "DLG_MSG_INFORMATION"
1248 "DLG_MSG_SEVERE"
1249 "DLG_MSG_WARNING"
1250 "DLG_STATUS"
1251 "DLG_WARNING"
1252 "DLG_USER_CAPTION"
1253 "DRIVE"
1254 "ENABLE"
1255 "END_OF_FILE"
1256 "END_OF_LIST"
1257 "ENVSPACE"
1258 "EQUALS"
1259 "EXCLUDE_SUBDIR"
1260 "EXCLUSIVE"
1261 "EXISTS"
1262 "EXIT"
1263 "EXTENDED_MEMORY"
1264 "EXTENSION_ONLY"
1265 "FAILIFEXISTS"
1266 "FALSE"
1267 "FEEDBACK_FULL"
1268 "FILE_ATTR_ARCHIVED"
1269 "FILE_ATTR_DIRECTORY"
1270 "FILE_ATTR_HIDDEN"
1271 "FILE_ATTR_NORMAL"
1272 "FILE_ATTR_READONLY"
1273 "FILE_ATTR_SYSTEM"
1274 "FILE_ATTRIBUTE"
1275 "FILE_DATE"
1276 "FILE_LINE_LENGTH"
1277 "FILE_MODE_APPEND"
1278 "FILE_MODE_BINARYREADONLY"
1279 "FILE_MODE_BINARY"
1280 "FILE_MODE_NORMAL"
1281 "FILE_NO_VERSION"
1282 "FILE_NOT_FOUND"
1283 "FILE_SIZE"
1284 "FILE_TIME"
1285 "FILENAME_ONLY"
1286 "FILENAME"
1287 "FIXED_DRIVE"
1288 "FOLDER_DESKTOP"
1289 "FOLDER_PROGRAMS"
1290 "FOLDER_STARTMENU"
1291 "FOLDER_STARTUP"
1292 "FREEENVSPACE"
1293 "FULLWINDOWMODE"
1294 "FULL"
1295 "FONT_TITLE"
1296 "GREATER_THAN"
1297 "GREEN"
1298 "HKEY_CLASSES_ROOT"
1299 "HKEY_CURRENT_USER"
1300 "HKEY_LOCAL_MACHINE"
1301 "HKEY_USERS"
1302 "HOURGLASS"
1303 "INCLUDE_SUBDIR"
1304 "INDVFILESTATUS"
1305 "INFORMATION"
1306 "IS_WINDOWSNT"
1307 "IS_WINDOWS95"
1308 "IS_WINDOWS"
1309 "IS_WIN32S"
1310 "ISTYPE"
1311 "LANGUAGE_DRV"
1312 "LANGUAGE"
1313 "LESS_THAN"
1314 "LIST_NULL"
1315 "LISTFIRST"
1316 "LISTNEXT"
1317 "LOCKEDFILE"
1318 "LOGGING"
1319 "LOWER_LEFT"
1320 "LOWER_RIGHT"
1321 "MAGENTA"
1322 "MOUSE_DRV"
1323 "MOUSE"
1324 "NETWORK_DRV"
1325 "NETWORK"
1326 "NEXT"
1327 "NONEXCLUSIVE"
1328 "NORMALMODE"
1329 "NOSET"
1330 "NOTEXISTS"
1331 "NOWAIT"
1332 "NO"
1333 "OFF"
1334 "ONLYDIR"
1335 "ON"
1336 "OSMAJOR"
1337 "OSMINOR"
1338 "OS"
1339 "OTHER_FAILURE"
1340 "PARALLEL"
1341 "PARTIAL"
1342 "PATH_EXISTS"
1343 "PATH"
1344 "RED"
1345 "REGDB_APPPATH_DEFAULT"
1346 "REGDB_APPPATH"
1347 "REGDB_BINARY"
1348 "REGDB_ERR_CONNECTIONEXISTS"
1349 "REGDB_ERR_CORRUPTEDREGSITRY"
1350 "REGDB_ERR_INITIALIZATION"
1351 "REGDB_ERR_INVALIDHANDLE"
1352 "REGDB_ERR_INVALIDNAME"
1353 "REGDB_NUMBER"
1354 "REGDB_STRING_EXPAND"
1355 "REGDB_STRING_MULTI"
1356 "REGDB_STRING"
1357 "REGDB_UNINSTALL_NAME"
1358 "REMOTE_DRIVE"
1359 "REMOVALE_DRIVE"
1360 "REPLACE_ITEM"
1361 "REPLACE"
1362 "RESET"
1363 "RESTART"
1364 "ROOT"
1365 "SELFREGISTER"
1366 "SERIAL"
1367 "SET"
1368 "SEVERE"
1369 "SHAREDFILE"
1370 "SHARE"
1371 "SILENTMODE"
1372 "SRCTARGETDIR"
1373 "STATUSBAR"
1374 "STATUSDLG"
1375 "STATUSOLD"
1376 "STATUS"
1377 "STYLE_NORMAL"
1378 "SW_MAXIMIZE"
1379 "SW_MINIMIZE"
1380 "SW_RESTORE"
1381 "SW_SHOW"
1382 "SYS_BOOTMACHINE"
1383 "TIME"
1384 "TRUE"
1385 "TYPICAL"
1386 "UPPER_LEFT"
1387 "UPPER_RIGHT"
1388 "VALID_PATH"
1389 "VERSION"
1390 "VIDEO"
1391 "VOLUMELABEL"
1392 "YELLOW"
1393 "YES"
1394 "WAIT"
1395 "WARNING"
1396 "WINMAJOR"
1397 "WINMINOR"
1398 "WIN32SINSTALLED"
1399 "WIN32SMAJOR"
1400 "WIN32SMINOR"
1402 "Function argument constants used in InstallShield 3 and 5.")
1404 (progn
1405 (defvar rul-generic-mode-syntax-table nil
1406 "Syntax table to use in rul-generic-mode buffers.")
1408 (setq rul-generic-mode-syntax-table
1409 (make-syntax-table c++-mode-syntax-table))
1411 (modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table)
1412 (modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table)
1414 (cond
1415 ;; XEmacs 19 & 20 & 21
1416 ((memq '8-bit c-emacs-features)
1417 (modify-syntax-entry ?/ ". 1456" rul-generic-mode-syntax-table)
1418 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table)
1420 ;; Emacs 19 & 20
1421 ((memq '1-bit c-emacs-features)
1422 (modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table)
1423 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table)
1425 ;; incompatible
1426 (t (error "Run Mode is incompatible with this version of Emacs"))
1429 ;; here manually instead
1430 (defun generic-rul-mode-setup-function ()
1431 (make-local-variable 'parse-sexp-ignore-comments)
1432 (make-local-variable 'comment-start)
1433 (make-local-variable 'comment-start-skip)
1434 (make-local-variable 'comment-end)
1435 (setq imenu-generic-expression
1436 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1))
1437 parse-sexp-ignore-comments t
1438 comment-end "*/"
1439 comment-start "/*"
1440 ;; comment-end ""
1441 ;; comment-start "//"
1442 ;; comment-start-skip ""
1444 ;; (set-syntax-table rul-generic-mode-syntax-table)
1445 (setq font-lock-syntax-table rul-generic-mode-syntax-table)
1448 ;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan
1449 (define-generic-mode 'rul-generic-mode
1450 ;; Using "/*" and "*/" doesn't seem to be working right
1451 (list "//" '("/*" . "*/" ))
1452 installshield-statement-keyword-list
1453 (list
1454 ;; preprocessor constructs
1455 '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
1456 1 font-lock-string-face)
1457 '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
1458 (1 font-lock-reference-face)
1459 (2 font-lock-variable-name-face nil t))
1460 ;; indirect string constants
1461 '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face)
1462 ;; gotos
1463 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face)
1464 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
1465 (1 font-lock-keyword-face)
1466 (2 font-lock-reference-face nil t))
1467 ;; system variables
1468 (generic-make-keywords-list
1469 installshield-system-variables-list
1470 'font-lock-variable-name-face "[^_]" "[^_]")
1471 ;; system functions
1472 (generic-make-keywords-list
1473 installshield-system-functions-list
1474 'font-lock-function-name-face "[^_]" "[^_]")
1475 ;; type keywords
1476 (generic-make-keywords-list
1477 installshield-types-list
1478 'font-lock-type-face "[^_]" "[^_]")
1479 ;; function argument constants
1480 (generic-make-keywords-list
1481 installshield-funarg-constants-list
1482 'font-lock-variable-name-face "[^_]" "[^_]") ; is this face the best choice?
1484 (list "\\.[rR][uU][lL]$")
1485 (list 'generic-rul-mode-setup-function)
1486 "Generic mode for InstallShield RUL files.")
1488 (define-skeleton rul-if
1489 "Insert an if statement."
1490 "condition: "
1491 "if(" str ") then" \n
1492 > _ \n
1493 ( "other condition, %s: "
1494 > "elseif(" str ") then" \n
1495 > \n)
1496 > "else" \n
1497 > \n
1498 resume:
1499 > "endif;"
1502 (define-skeleton rul-function
1503 "Insert a function statement."
1504 "function: "
1505 "function " str " ()" \n
1506 ( "local variables, %s: "
1507 > " " str ";" \n)
1508 > "begin" \n
1509 > _ \n
1510 resume:
1511 > "end;")
1515 ;; Additions by ACorreir@pervasive-sw.com (Alfred Correira)
1516 (define-generic-mode 'mailrc-generic-mode
1517 (list ?#)
1518 (list
1519 "alias"
1520 "else"
1521 "endif"
1522 "group"
1523 "if"
1524 "ignore"
1525 "set"
1526 "source"
1527 "unset"
1529 '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
1530 (2 font-lock-constant-face) (3 font-lock-variable-name-face))
1531 ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$"
1532 (2 font-lock-constant-face) (3 font-lock-variable-name-face))
1533 ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
1534 (2 font-lock-variable-name-face)))
1535 (list "\\.mailrc\\'")
1537 "Mode for mailrc files.")
1539 ;; Inetd.conf
1540 (and
1541 (memq 'inetd-conf-generic-mode generic-extras-enable-list)
1543 (define-generic-mode 'inetd-conf-generic-mode
1544 (list ?#)
1545 (list
1546 "stream"
1547 "dgram"
1548 "tcp"
1549 "udp"
1550 "wait"
1551 "nowait"
1552 "internal"
1555 ("^\\([-A-Za-z0-9_]+\\)"
1556 1 'font-lock-type-face)
1558 '("/etc/inetd.conf\\'")
1559 (list
1560 (function
1561 (lambda ()
1562 (setq imenu-generic-expression
1563 '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))
1568 ;; Services
1569 (and
1570 (memq 'etc-services-generic-mode generic-extras-enable-list)
1572 (define-generic-mode 'etc-services-generic-mode
1573 (list ?#)
1574 (list
1575 "tcp"
1576 "udp"
1577 "ddp"
1580 ("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/"
1581 (1 'font-lock-type-face)
1582 (2 'font-lock-variable-name-face)
1585 '("/etc/services\\'")
1586 (list
1587 (function
1588 (lambda ()
1589 (setq imenu-generic-expression
1590 '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))
1595 ;; Password and Group files
1596 (and
1597 (memq 'etc-passwd-generic-mode generic-extras-enable-list)
1599 (define-generic-mode 'etc-passwd-generic-mode
1600 nil ;; No comment characters
1601 (list "root") ;; Only one keyword
1602 (list
1603 (list
1604 (concat
1606 ;; User name -- Never blank!
1607 "\\([^:]+\\)"
1609 ;; Password, UID and GID
1610 (mapconcat
1611 'identity
1612 (make-list 3 "\\([^:]+\\)")
1616 ;; GECOS/Name -- might be blank
1617 "\\([^:]*\\)"
1619 ;; Home directory and shell
1620 "\\([^:]+\\)"
1621 ":?"
1622 "\\([^:]*\\)"
1625 '(1 'font-lock-type-face)
1626 '(5 'font-lock-variable-name-face)
1627 '(6 'font-lock-constant-face)
1628 '(7 'font-lock-warning-face)
1630 '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$"
1631 (1 'font-lock-type-face)
1632 (4 'font-lock-variable-name-face)
1635 '("/etc/passwd\\'" "/etc/group\\'")
1636 (list
1637 (function
1638 (lambda ()
1639 (setq imenu-generic-expression
1640 '((nil "^\\([-A-Za-z0-9_]+\\):" 1)))
1645 ;; Fstab
1646 (and
1647 (memq 'etc-fstab-generic-mode generic-extras-enable-list)
1649 (define-generic-mode 'etc-fstab-generic-mode
1650 (list ?#)
1651 (list
1652 "ext2"
1653 "fd"
1654 "iso9660"
1655 "nfs"
1656 "proc"
1657 "swap"
1658 "ufs"
1661 ("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)"
1662 (1 'font-lock-type-face)
1663 (2 'font-lock-variable-name-face)
1666 '("/etc/[v]*fstab\\'")
1667 (list
1668 (function
1669 (lambda ()
1670 (setq imenu-generic-expression
1671 '((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1)))
1676 ;; From Jacques Duthen <jacques.duthen@sncf.fr>
1677 (defvar show-tabs-generic-mode-font-lock-defaults-1
1678 '( ;; trailing spaces must come before...
1679 ("[ \t]+$" . 'show-tabs-space-face)
1680 ;; ...embedded tabs
1681 ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab-face))))
1683 (defvar show-tabs-generic-mode-font-lock-defaults-2
1684 '( ;; trailing spaces must come before...
1685 ("[ \t]+$" . 'show-tabs-space-face)
1686 ;; ...tabs
1687 ("\t+" . 'show-tabs-tab-face)))
1689 (defface show-tabs-tab-face
1690 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
1691 (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
1692 (((class color) (background light)) (:foreground "red"))
1693 (((class color) (background dark)) (:foreground "red"))
1694 (t (:weight bold)))
1695 "Font Lock mode face used to highlight TABs."
1696 :group 'show-tabs)
1698 (defface show-tabs-space-face
1699 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
1700 (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
1701 (((class color) (background light)) (:foreground "yellow"))
1702 (((class color) (background dark)) (:foreground "yellow"))
1703 (t (:weight bold)))
1704 "Font Lock mode face used to highlight spaces."
1705 :group 'show-tabs)
1707 (define-generic-mode 'show-tabs-generic-mode
1708 () ;; no comment char
1709 () ;; no keywords
1710 show-tabs-generic-mode-font-lock-defaults-1
1711 () ;; no auto-mode-alist
1712 ;; (list 'show-tabs-generic-mode-hook-fun)
1714 "Generic mode to show tabs and trailing spaces")
1716 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1717 ;; DNS modes
1718 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1720 (define-generic-mode 'named-boot-generic-mode
1721 ;;List of comment characters
1722 (list ?\;)
1723 ;;List of keywords
1724 (list "cache" "primary" "secondary" "forwarders" "limit" "options"
1725 "directory" "check-names")
1726 ;;List of additional font-lock-expressions
1727 (list
1728 (list "\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face)
1729 (list "^directory\\s-+\\(.*\\)" 1 'font-lock-variable-name-face)
1730 (list "^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)"
1731 (list 2 'font-lock-variable-name-face)
1732 (list 3 'font-lock-constant-face))
1734 ;;List of additional automode-alist expressions
1735 (list "/etc/named.boot\\'")
1736 ;;List of set up functions to call
1740 (define-generic-mode 'named-database-generic-mode
1741 ;;List of comment characters
1742 (list ?\;)
1743 ;;List of keywords
1744 (list "IN" "NS" "CNAME" "SOA" "PTR" "MX" "A")
1745 ;;List of additional font-lock-expressions
1746 (list
1747 (list "\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face)
1748 (list "^\\([.A-Za-z0-9]+\\)" 1 'font-lock-variable-name-face)
1750 ;;List of additional automode-alist expressions
1752 ;;List of set up functions to call
1756 (defvar named-database-time-string "%Y%m%d%H"
1757 "Timestring for named serial numbers.")
1759 (defun named-database-print-serial ()
1760 "Print a serial number based on the current date."
1761 (interactive)
1762 (insert (format-time-string named-database-time-string (current-time)))
1765 (define-generic-mode 'resolve-conf-generic-mode
1766 ;;List of comment characters
1767 (list ?#)
1768 ;;List of keywords
1769 (list "nameserver" "domain" "search" "sortlist" "options")
1770 ;;List of additional font-lock-expressions
1772 ;;List of additional automode-alist expressions
1773 (list "/etc/resolv[e]?.conf\\'")
1774 ;;List of set up functions to call
1778 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1779 ;; Modes for spice and common electrical engineering circuit netlist formats
1780 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1782 (define-generic-mode 'spice-generic-mode
1784 (list
1785 "and"
1786 "cccs"
1787 "ccvs"
1788 "delay"
1789 "nand"
1790 "nor"
1791 "npwl"
1792 "or"
1793 "par"
1794 "ppwl"
1795 "pwl"
1796 "vccap"
1797 "vccs"
1798 "vcr"
1799 "vcvs"
1802 ("^\\s-*\\([*].*\\)" 1 'font-lock-comment-face)
1803 (" \\(\\$ .*\\)$" 1 'font-lock-comment-face)
1804 ("^\\(\\$ .*\\)$" 1 'font-lock-comment-face)
1805 ("\\([*].*\\)" 1 'font-lock-comment-face)
1806 ("^\\([+]\\)" 1 'font-lock-string-face)
1807 ("^\\s-*\\([.]\\w+\\>\\)" 1 'font-lock-keyword-face)
1808 ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
1809 ("\\('[^']+'\\)" 1 'font-lock-string-face)
1810 ("\\(\"[^\"]+\"\\)" 1 'font-lock-string-face)
1812 (list "\\.[sS][pP]\\'"
1813 "\\.[sS][pP][iI]\\'"
1814 "\\.[sS][pP][iI][cC][eE]\\'"
1815 "\\.[iI][nN][cC]\\'")
1816 (list
1817 'generic-bracket-support
1818 ;; Make keywords case-insensitive
1819 (function
1820 (lambda()
1821 (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))))
1823 "Generic mode for SPICE circuit netlist files."
1826 (define-generic-mode 'ibis-generic-mode
1827 (list ?|)
1830 ("[[]\\([^]]*\\)[]]" 1 'font-lock-keyword-face)
1831 ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
1833 (list "\\.[iI][bB][sS]\\'")
1834 (list 'generic-bracket-support)
1835 "Generic mode for IBIS circuit netlist files."
1838 (define-generic-mode 'astap-generic-mode
1840 (list
1841 "analyze"
1842 "description"
1843 "elements"
1844 "execution"
1845 "features"
1846 "functions"
1847 "ground"
1848 "model"
1849 "outputs"
1850 "print"
1851 "run"
1852 "controls"
1853 "table"
1856 ("^\\s-*\\([*].*\\)" 1 'font-lock-comment-face)
1857 (";\\s-*\\([*].*\\)" 1 'font-lock-comment-face)
1858 ("^\\s-*\\([.]\\w+\\>\\)" 1 'font-lock-keyword-face)
1859 ("\\('[^']+'\\)" 1 'font-lock-string-face)
1860 ("\\(\"[^\"]+\"\\)" 1 'font-lock-string-face)
1861 ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
1863 (list "\\.[aA][pP]\\'"
1864 "\\.[aA][sS][xX]\\'"
1865 "\\.[aA][sS][tT][aA][pP]\\'"
1866 "\\.[pP][sS][pP]\\'"
1867 "\\.[dD][eE][cC][kK]\\'"
1868 "\\.[gG][oO][dD][aA][tT][aA]")
1869 (list
1870 'generic-bracket-support
1871 ;; Make keywords case-insensitive
1872 (function
1873 (lambda()
1874 (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))))
1876 "Generic mode for ASTAP circuit netlist files."
1879 (define-generic-mode 'etc-modules-conf-generic-mode
1880 ;;List of comment characters
1881 (list ?#)
1882 ;;List of keywords
1883 (list "alias" "pre-install" "post-install" "options" "probeall")
1884 ;;List of additional font-lock-expressions
1886 ;;List of additional automode-alist expressions
1887 (list "/etc/modules.conf" "/etc/conf.modules")
1888 ;;List of set up functions to call
1892 (provide 'generic-x)
1894 ;;; generic-x.el ends here