lisp/generic-x.el

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