lisp/generic-x.el

   1 ;;; generic-x.el --- Extra Modes for generic-mode -*- no-byte-compile: t -*-
   2
   3 ;; Copyright (C) 1997, 1998 Free Software Foundation, Inc.
   4
   5 ;; Author:  Peter Breton <pbreton@cs.umb.edu>
   6 ;; Created: Tue Oct 08 1996
   7 ;; Keywords: generic, comment, font-lock
   8
   9 ;; This file is part of GNU Emacs.
  10
  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.
  15
  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.
  20
  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.
  25
  26 ;;; Commentary:
  27 ;;
  28 ;; This file contains some pre-defined generic-modes.
  29 ;;
  30 ;; INSTALLATION:
  31 ;;
  32 ;; Add this line to your .emacs file:
  33 ;;
  34 ;;   (require 'generic-x)
  35 ;;
  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).
  40 ;;
  41 ;; You can also send in new modes; if the file types a reasonably common,
  42 ;; we would like to install them.
  43 ;;
  44 ;; PROBLEMS WHEN USED WITH FOLDING MODE:
  45 ;;
  46 ;; [The following relates to the obsolete selective-display technique.
  47 ;; Folding mode should use invisible text properties instead. -- Dave
  48 ;; Love]
  49 ;;
  50 ;; From Anders Lindgren <andersl@csd.uu.se>
  51 ;;
  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'.
  55 ;;
  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:
  58 ;;
  59 ;; >      - various msgs including "Fontifying region...(error Stack
  60 ;; > overflow in regexp matcher)" appear
  61 ;;
  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.
  69 ;;
  70 ;; Many other hiding packages, besides folding, use the same technique,
  71 ;; the problem should occur when using them as well.
  72 ;;
  73 ;; The erroronous lines in `generic-extras' look like the following (this
  74 ;; example is from the `ini' section):
  75 ;;
  76 ;;     '(("^\\(\\[.*\\]\\)"   1 'font-lock-constant-face)
  77 ;;       ("^\\(.*\\)="        1 'font-lock-variable-name-face)
  78 ;;
  79 ;; The intention of these lines is to highlight lines of the following
  80 ;; form:
  81 ;;
  82 ;; [foo]
  83 ;; bar = xxx
  84 ;;
  85 ;; However, since the `.' regexp symbol match the linefeed character the
  86 ;; entire folded section is searched, resulting in a regexp stack
  87 ;; overflow.
  88 ;;
  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.
  92
  93 ;;; Code:
  94
  95 (require 'generic)
  96 (require 'font-lock)
  97
  98 (defgroup generic-x nil
  99   "Extra modes for generic mode."
 100   :prefix "generic-"
 101   :group 'generic
 102   :version "20.3")
 103
 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)
 113   )
 114
 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
 120   )
 121
 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
 127   )
 128
 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
 137                         )
 138                   generic-extras-enable-list)))
 139
 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
 152                          )
 153                    generic-extras-enable-list)))
 154
 155 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 156 ;; Generic-modes
 157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 158
 159 ;;; Apache
 160 (and
 161  (memq 'apache-conf-generic-mode generic-extras-enable-list)
 162
 163 (define-generic-mode 'apache-conf-generic-mode
 164    (list ?#)
 165    nil
 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)
 176               ))
 177        )))
 178    "Generic mode for Apache or HTTPD configuration files."))
 179
 180 (and
 181  (memq 'apache-log-generic-mode generic-extras-enable-list)
 182
 183 (define-generic-mode 'apache-log-generic-mode
 184   nil
 185   nil
 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))
 190     )
 191   (list "access_log\\'")
 192   nil
 193   "Mode for Apache log files"))
 194
 195 ;;; Samba
 196 (and
 197  (memq 'samba-generic-mode generic-extras-enable-list)
 198
 199 (define-generic-mode 'samba-generic-mode
 200    (list ?\; ?#)
 201    nil
 202    '(
 203      ("^\\(\\[.*\\]\\)"   1 'font-lock-constant-face)
 204      ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)"
 205       (1 'font-lock-variable-name-face)
 206       (2 'font-lock-type-face))
 207      )
 208    (list "smb\\.conf\\'")
 209    (list 'generic-bracket-support)
 210    "Generic mode for Samba configuration files."))
 211
 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)
 217
 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"
 234     )
 235    nil
 236    (list "\\.fvwmrc\\'" "\\.fvwm2rc\\'")
 237    nil
 238    "Generic mode for FVWM configuration files."))
 239
 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)
 245
 246 (define-generic-mode 'x-resource-generic-mode
 247    (list ?!)
 248    nil
 249    '(("^\\([^:\n]+:\\)" 1 'font-lock-variable-name-face))
 250    (list "\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
 251    nil
 252    "Generic mode for X Resource configuration files."))
 253
 254 ;;; Hosts
 255 (and
 256  (memq 'hosts-generic-mode generic-extras-enable-list)
 257
 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]\\'")
 263    nil
 264    "Generic mode for HOSTS files."))
 265
 266 ;;; Windows INF files
 267 (and
 268  (memq 'inf-generic-mode generic-extras-enable-list)
 269
 270 (define-generic-mode 'inf-generic-mode
 271    (list ?\;)
 272    nil
 273    '(("^\\(\\[.*\\]\\)"   1 'font-lock-constant-face))
 274    (list "\\.[iI][nN][fF]\\'")
 275    (list 'generic-bracket-support)
 276    "Generic mode for MS-Windows INF files."))
 277
 278 ;;; Windows INI files
 279 ;; Should define escape character as well!
 280 (and
 281  (memq 'ini-generic-mode generic-extras-enable-list)
 282
 283 (define-generic-mode 'ini-generic-mode
 284    (list ?\;)
 285    nil
 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)))
 297        )))
 298     "Generic mode for MS-Windows INI files."))
 299
 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)
 304
 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."))
 317
 318 ;;; DOS/Windows BAT files
 319 (if (not (memq 'bat-generic-mode generic-extras-enable-list))
 320     nil
 321 (define-generic-mode 'bat-generic-mode
 322     nil
 323     nil
 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"
 348        )
 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))
 391
 392      )
 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.")
 399
 400   (defvar bat-generic-mode-syntax-table nil
 401     "Syntax table in use in bat-generic-mode buffers.")
 402
 403   (defvar bat-generic-mode-keymap (make-sparse-keymap)
 404     "Keymap for bet-generic-mode.")
 405
 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) "*")))
 413               )
 414             )
 415       (compile
 416        (concat (w32-shell-name) " -c " (buffer-file-name)))))
 417
 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)
 433          nil
 434          (list
 435           "-c"
 436           file
 437           )
 438          )
 439         (display-buffer buf-name))))
 440
 441   (define-key bat-generic-mode-keymap "\C-c\C-c" 'bat-generic-mode-compile)
 442
 443   ;; Make underscores count as words
 444   (if bat-generic-mode-syntax-table
 445       nil
 446     (setq bat-generic-mode-syntax-table (make-syntax-table))
 447     (modify-syntax-entry ?_  "w"  bat-generic-mode-syntax-table))
 448
 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] *"
 462           )
 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)
 467     )
 468   )
 469
 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)
 475
 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.")
 484
 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))))
 489  )
 490
 491 ;; Solaris/Sys V prototype files
 492 (and
 493  (memq 'prototype-generic-mode generic-extras-enable-list)
 494
 495 (define-generic-mode 'prototype-generic-mode
 496    (list ?#)
 497    nil
 498    '(
 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))
 512      )
 513    (list "prototype\\'")
 514    nil
 515    "Mode for Sys V prototype files."))
 516
 517 ;; Solaris/Sys V pkginfo files
 518 (and
 519  (memq 'pkginfo-generic-mode generic-extras-enable-list)
 520
 521 (define-generic-mode 'pkginfo-generic-mode
 522    (list ?#)
 523    nil
 524    '(
 525      ("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
 526       (1 font-lock-keyword-face)
 527       (2 font-lock-variable-name-face))
 528      )
 529    (list "pkginfo\\'")
 530    nil
 531    "Mode for Sys V pkginfo files."))
 532
 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"
 598    )
 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))
 604      )
 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)
 612               ))
 613       )))
 614   "Mode for JavaScript files.")
 615
 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"
 648    )
 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))
 660    )
 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)))
 670       )))
 671   "Generic Mode for VRML files.")
 672
 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"
 685    )
 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))
 690     )
 691   (list "[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
 692   nil
 693   "Mode for Java Manifest files")
 694
 695 ;; Java properties files
 696 (define-generic-mode 'java-properties-generic-mode
 697   (list ?! ?#)
 698   nil
 699   (let ((java-properties-key
 700          "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)")
 701         (java-properties-value
 702          "\\([^\r\n]*\\)")
 703         )
 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)
 715          )))
 716      ;; These are the separators
 717      (list ":\\s-*" "\\s-+" "\\s-*=\\s-*")
 718      )
 719     )
 720   nil
 721   (list
 722    (function
 723     (lambda ()
 724       (setq imenu-generic-expression
 725             '((nil "^\\([^#! \t\n\r=:]+\\)" 1)))
 726       )))
 727   "Mode for Java properties files.")
 728
 729 ;; C shell alias definitions
 730 (and
 731  (memq 'alias-generic-mode generic-extras-enable-list)
 732
 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))
 740     )
 741   (list "alias\\'")
 742   (list
 743    (function
 744     (lambda ()
 745       (setq imenu-generic-expression
 746             '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2)))
 747       )))
 748   "Mode for C Shell alias files.")
 749 )
 750
 751 ;;; Windows RC files
 752 ;; Contributed by ACorreir@pervasive-sw.com (Alfred Correira)
 753 (and
 754  (memq 'rc-generic-mode generic-extras-enable-list)
 755
 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"
 811      )
 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]$")
 843    nil
 844    "Generic mode for MS-Windows Resource files."))
 845
 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"
 886    )
 887   "Statement keywords used in InstallShield 3 and 5.")
 888
 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"
1133    )
1134   "System functions defined in InstallShield 3 and 5.")
1135
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"
1167    )
1168   "System variables used in InstallShield 3 and 5.")
1169
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"
1190    )
1191   "Type keywords used in InstallShield 3 and 5.")
1192
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"
1401    )
1402   "Function argument constants used in InstallShield 3 and 5.")
1403
1404 (progn
1405   (defvar rul-generic-mode-syntax-table nil
1406      "Syntax table to use in rul-generic-mode buffers.")
1407
1408    (setq rul-generic-mode-syntax-table
1409          (make-syntax-table c++-mode-syntax-table))
1410
1411    (modify-syntax-entry ?\r "> b"   rul-generic-mode-syntax-table)
1412    (modify-syntax-entry ?\n "> b"   rul-generic-mode-syntax-table)
1413
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)
1419        )
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)
1424        )
1425     ;; incompatible
1426     (t (error "Run Mode is incompatible with this version of Emacs"))
1427     )
1428
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        ""
1443            )
1444 ;;     (set-syntax-table              rul-generic-mode-syntax-table)
1445      (setq font-lock-syntax-table rul-generic-mode-syntax-table)
1446      )
1447
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?
1483       )
1484      (list "\\.[rR][uU][lL]$")
1485      (list 'generic-rul-mode-setup-function)
1486      "Generic mode for InstallShield RUL files.")
1487 )
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;"
1500    )
1501
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;")
1512
1513 )
1514
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"
1528    )
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\\'")
1536   nil
1537   "Mode for mailrc files.")
1538
1539 ;; Inetd.conf
1540 (and
1541  (memq 'inetd-conf-generic-mode generic-extras-enable-list)
1542
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"
1553    )
1554   '(
1555     ("^\\([-A-Za-z0-9_]+\\)"
1556      1 'font-lock-type-face)
1557     )
1558   '("/etc/inetd.conf\\'")
1559   (list
1560    (function
1561     (lambda ()
1562       (setq imenu-generic-expression
1563             '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))
1564       )))
1565   )
1566 )
1567
1568 ;; Services
1569 (and
1570  (memq 'etc-services-generic-mode generic-extras-enable-list)
1571
1572 (define-generic-mode 'etc-services-generic-mode
1573   (list ?#)
1574   (list
1575    "tcp"
1576    "udp"
1577    "ddp"
1578    )
1579   '(
1580     ("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/"
1581      (1 'font-lock-type-face)
1582      (2 'font-lock-variable-name-face)
1583      )
1584     )
1585   '("/etc/services\\'")
1586   (list
1587    (function
1588     (lambda ()
1589       (setq imenu-generic-expression
1590             '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))
1591       )))
1592   )
1593 )
1594
1595 ;; Password and Group files
1596 (and
1597  (memq 'etc-passwd-generic-mode generic-extras-enable-list)
1598
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
1605       "^"
1606       ;; User name -- Never blank!
1607       "\\([^:]+\\)"
1608       ":"
1609       ;; Password, UID and GID
1610       (mapconcat
1611        'identity
1612        (make-list 3 "\\([^:]+\\)")
1613        ":"
1614        )
1615       ":"
1616       ;; GECOS/Name -- might be blank
1617       "\\([^:]*\\)"
1618       ":"
1619       ;; Home directory and shell
1620       "\\([^:]+\\)"
1621       ":?"
1622       "\\([^:]*\\)"
1623       "$"
1624      )
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)
1629      )
1630     '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$"
1631       (1 'font-lock-type-face)
1632       (4 'font-lock-variable-name-face)
1633      )
1634     )
1635   '("/etc/passwd\\'" "/etc/group\\'")
1636   (list
1637    (function
1638     (lambda ()
1639       (setq imenu-generic-expression
1640             '((nil "^\\([-A-Za-z0-9_]+\\):" 1)))
1641       )))
1642   )
1643 )
1644
1645 ;; Fstab
1646 (and
1647  (memq 'etc-fstab-generic-mode generic-extras-enable-list)
1648
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"
1659    )
1660   '(
1661     ("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)"
1662      (1 'font-lock-type-face)
1663      (2 'font-lock-variable-name-face)
1664      )
1665     )
1666   '("/etc/[v]*fstab\\'")
1667   (list
1668    (function
1669     (lambda ()
1670       (setq imenu-generic-expression
1671             '((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1)))
1672       )))
1673   )
1674 )
1675
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))))
1682
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)))
1688
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)
1697
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)
1706
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)
1713   nil
1714   "Generic mode to show tabs and trailing spaces")
1715
1716 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1717 ;; DNS modes
1718 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1719
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))
1733    )
1734   ;;List of additional automode-alist expressions
1735   (list "/etc/named.boot\\'")
1736   ;;List of set up functions to call
1737   nil
1738   )
1739
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)
1749    )
1750   ;;List of additional automode-alist expressions
1751   nil
1752   ;;List of set up functions to call
1753   nil
1754   )
1755
1756 (defvar named-database-time-string "%Y%m%d%H"
1757   "Timestring for named serial numbers.")
1758
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)))
1763   )
1764
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
1771   nil
1772   ;;List of additional automode-alist expressions
1773   (list "/etc/resolv[e]?.conf\\'")
1774   ;;List of set up functions to call
1775   nil
1776   )
1777
1778 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1779 ;; Modes for spice and common electrical engineering circuit netlist formats
1780 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1781
1782 (define-generic-mode 'spice-generic-mode
1783   nil
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"
1800    )
1801   '(
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)
1811     )
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))))
1822    )
1823   "Generic mode for SPICE circuit netlist files."
1824   )
1825
1826 (define-generic-mode 'ibis-generic-mode
1827   (list ?|)
1828   nil
1829   '(
1830     ("[[]\\([^]]*\\)[]]"          1 'font-lock-keyword-face)
1831     ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
1832     )
1833   (list "\\.[iI][bB][sS]\\'")
1834   (list 'generic-bracket-support)
1835   "Generic mode for IBIS circuit netlist files."
1836   )
1837
1838 (define-generic-mode 'astap-generic-mode
1839   nil
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"
1854    )
1855   '(
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)
1862     )
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))))
1875    )
1876   "Generic mode for ASTAP circuit netlist files."
1877   )
1878
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
1885   nil
1886   ;;List of additional automode-alist expressions
1887   (list "/etc/modules.conf" "/etc/conf.modules")
1888   ;;List of set up functions to call
1889   nil
1890   )
1891
1892 (provide 'generic-x)
1893
1894 ;;; generic-x.el ends here