lisp/generic-x.el

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