lisp/generic-x.el

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