code.delx.au - gnu-emacs/blob - lisp/generic-x.el

   1 ;;; generic-x.el --- A collection of generic modes
   2
   3 ;; Copyright (C) 1997-1998, 2001-2016 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 init 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
  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     ansible-inventory-generic-mode
 219     etc-fstab-generic-mode
 220     etc-modules-conf-generic-mode
 221     etc-passwd-generic-mode
 222     etc-services-generic-mode
 223     etc-sudoers-generic-mode
 224     fvwm-generic-mode
 225     inetd-conf-generic-mode
 226     mailagent-rules-generic-mode
 227     mailrc-generic-mode
 228     named-boot-generic-mode
 229     named-database-generic-mode
 230     prototype-generic-mode
 231     resolve-conf-generic-mode
 232     samba-generic-mode
 233     x-resource-generic-mode
 234     xmodmap-generic-mode)
 235   "List of generic modes that are defined by default on Unix.")
 236
 237 (defconst generic-other-modes
 238   '(astap-generic-mode
 239     ibis-generic-mode
 240     pkginfo-generic-mode
 241     spice-generic-mode)
 242   "List of generic modes that are not defined by default.")
 243
 244 (defcustom generic-define-mswindows-modes
 245   (memq system-type '(windows-nt ms-dos))
 246   "Non-nil means the modes in `generic-mswindows-modes' will be defined.
 247 This is a list of MS-Windows specific generic modes.  This variable
 248 only affects the default value of `generic-extras-enable-list'."
 249   :group 'generic-x
 250   :type 'boolean
 251   :version "22.1")
 252 (make-obsolete-variable 'generic-define-mswindows-modes 'generic-extras-enable-list "22.1")
 253
 254 (defcustom generic-define-unix-modes
 255   (not (memq system-type '(windows-nt ms-dos)))
 256   "Non-nil means the modes in `generic-unix-modes' will be defined.
 257 This is a list of Unix specific generic modes.  This variable only
 258 affects the default value of `generic-extras-enable-list'."
 259   :group 'generic-x
 260   :type 'boolean
 261   :version "22.1")
 262 (make-obsolete-variable 'generic-define-unix-modes 'generic-extras-enable-list "22.1")
 263
 264 (defcustom generic-extras-enable-list
 265   (append generic-default-modes
 266           (if generic-define-mswindows-modes generic-mswindows-modes)
 267           (if generic-define-unix-modes generic-unix-modes)
 268           nil)
 269   "List of generic modes to define.
 270 Each entry in the list should be a symbol.  If you set this variable
 271 directly, without using customize, you must reload generic-x to put
 272 your changes into effect."
 273   :group 'generic-x
 274   :type (let (list)
 275           (dolist (mode
 276                    (sort (append generic-default-modes
 277                                  generic-mswindows-modes
 278                                  generic-unix-modes
 279                                  generic-other-modes
 280                                  nil)
 281                          (lambda (a b)
 282                            (string< (symbol-name b)
 283                                     (symbol-name a))))
 284                    (cons 'set list))
 285             (push `(const ,mode) list)))
 286   :set (lambda (s v)
 287          (set-default s v)
 288          (unless load-in-progress
 289            (load "generic-x")))
 290   :version "22.1")
 291
 292 ;;; Apache
 293 (when (memq 'apache-conf-generic-mode generic-extras-enable-list)
 294
 295 (define-generic-mode apache-conf-generic-mode
 296   '(?#)
 297   nil
 298   '(("^\\s-*\\(<.*>\\)"      1 font-lock-constant-face)
 299     ("^\\s-*\\(\\sw+\\)\\s-" 1 font-lock-variable-name-face))
 300   '("srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'")
 301   (list
 302    (function
 303     (lambda ()
 304       (setq imenu-generic-expression
 305             '((nil "^\\([-A-Za-z0-9_]+\\)" 1)
 306               ("*Directories*" "^\\s-*<Directory\\s-*\\([^>]+\\)>" 1)
 307               ("*Locations*"   "^\\s-*<Location\\s-*\\([^>]+\\)>" 1))))))
 308   "Generic mode for Apache or HTTPD configuration files."))
 309
 310 (when (memq 'apache-log-generic-mode generic-extras-enable-list)
 311
 312 (define-generic-mode apache-log-generic-mode
 313   nil
 314   nil
 315   ;; Hostname ? user date request return-code number-of-bytes
 316   '(("^\\([-a-zA-z0-9.]+\\) - [-A-Za-z]+ \\(\\[.*\\]\\)"
 317      (1 font-lock-constant-face)
 318      (2 font-lock-variable-name-face)))
 319   '("access_log\\'")
 320   nil
 321   "Generic mode for Apache log files."))
 322
 323 ;;; Samba
 324 (when (memq 'samba-generic-mode generic-extras-enable-list)
 325
 326 (define-generic-mode samba-generic-mode
 327   '(?\; ?#)
 328   nil
 329   '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
 330     ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)"
 331      (1 font-lock-variable-name-face)
 332      (2 font-lock-type-face)))
 333   '("smb\\.conf\\'")
 334   '(generic-bracket-support)
 335   "Generic mode for Samba configuration files."))
 336
 337 ;;; Fvwm
 338 ;; This is pretty basic. Also, modes for other window managers could
 339 ;; be defined as well.
 340 (when (memq 'fvwm-generic-mode generic-extras-enable-list)
 341
 342 (define-generic-mode fvwm-generic-mode
 343   '(?#)
 344   '("AddToMenu"
 345     "AddToFunc"
 346     "ButtonStyle"
 347     "EndFunction"
 348     "EndPopup"
 349     "Function"
 350     "IconPath"
 351     "Key"
 352     "ModulePath"
 353     "Mouse"
 354     "PixmapPath"
 355     "Popup"
 356     "Style")
 357   nil
 358   '("\\.fvwmrc\\'" "\\.fvwm2rc\\'")
 359   nil
 360   "Generic mode for FVWM configuration files."))
 361
 362 ;;; X Resource
 363 ;; I'm pretty sure I've seen an actual mode to do this, but I don't
 364 ;; think it's standard with Emacs
 365 (when (memq 'x-resource-generic-mode generic-extras-enable-list)
 366
 367 (define-generic-mode x-resource-generic-mode
 368   '(?!)
 369   nil
 370   '(("^\\([^:\n]+:\\)" 1 font-lock-variable-name-face))
 371   '("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
 372   nil
 373   "Generic mode for X Resource configuration files."))
 374
 375 (if (memq 'xmodmap-generic-mode generic-extras-enable-list)
 376 (define-generic-mode xmodmap-generic-mode
 377   '(?!)
 378   '("add" "clear" "keycode" "keysym" "remove" "pointer")
 379   nil
 380   '("[xX]modmap\\(rc\\)?\\'")
 381   nil
 382   "Simple mode for xmodmap files."))
 383
 384 ;;; Hosts
 385 (when (memq 'hosts-generic-mode generic-extras-enable-list)
 386
 387 (define-generic-mode hosts-generic-mode
 388   '(?#)
 389   '("localhost")
 390   '(("\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" 1 font-lock-constant-face))
 391   '("[hH][oO][sS][tT][sS]\\'")
 392   nil
 393   "Generic mode for HOSTS files."))
 394
 395 ;;; Windows INF files
 396
 397 ;; If i-g-m-f-f-h is defined, then so is i-g-m.
 398 (declare-function ini-generic-mode "generic-x")
 399
 400 (when (memq 'inf-generic-mode generic-extras-enable-list)
 401
 402 (define-generic-mode inf-generic-mode
 403   '(?\;)
 404   nil
 405   '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face))
 406   '("\\.[iI][nN][fF]\\'")
 407   '(generic-bracket-support)
 408   "Generic mode for MS-Windows INF files."))
 409
 410 ;;; Windows INI files
 411 ;; Should define escape character as well!
 412 (when (memq 'ini-generic-mode generic-extras-enable-list)
 413
 414 (define-generic-mode ini-generic-mode
 415   '(?\;)
 416   nil
 417   '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
 418     ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$"
 419      (1 font-lock-function-name-face)
 420      (2 font-lock-variable-name-face)))
 421   '("\\.[iI][nN][iI]\\'")
 422   (list
 423    (function
 424     (lambda ()
 425       (setq imenu-generic-expression
 426             '((nil "^\\[\\(.*\\)\\]" 1)
 427               ("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1))))))
 428   "Generic mode for MS-Windows INI files.
 429 You can use `ini-generic-mode-find-file-hook' to enter this mode
 430 automatically for INI files whose names do not end in \".ini\".")
 431
 432 (defun ini-generic-mode-find-file-hook ()
 433   "Hook function to enter Ini-Generic mode automatically for INI files.
 434 Done if the first few lines of a file in Fundamental mode look
 435 like an INI file.  You can add this hook to `find-file-hook'."
 436   (and (eq major-mode 'fundamental-mode)
 437        (save-excursion
 438          (goto-char (point-min))
 439          (and (looking-at "^\\s-*\\[.*\\]")
 440               (ini-generic-mode)))))
 441 (defalias 'generic-mode-ini-file-find-file-hook 'ini-generic-mode-find-file-hook))
 442
 443 ;;; Windows REG files
 444 ;;; Unfortunately, Windows 95 and Windows NT have different REG file syntax!
 445 (when (memq 'reg-generic-mode generic-extras-enable-list)
 446
 447 (define-generic-mode reg-generic-mode
 448   '(?\;)
 449   '("key" "classes_root" "REGEDIT" "REGEDIT4")
 450   '(("\\(\\[.*\\]\\)"        1 font-lock-constant-face)
 451     ("^\\([^\n\r]*\\)\\s-*=" 1 font-lock-variable-name-face))
 452   '("\\.[rR][eE][gG]\\'")
 453   (list
 454    (function
 455     (lambda ()
 456       (setq imenu-generic-expression
 457             '((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
 458   "Generic mode for MS-Windows Registry files."))
 459
 460 (declare-function w32-shell-name "w32-fns" ())
 461
 462 ;;; DOS/Windows BAT files
 463 (when (memq 'bat-generic-mode generic-extras-enable-list)
 464   (define-obsolete-function-alias 'bat-generic-mode 'bat-mode "24.4"))
 465
 466 ;;; Mailagent
 467 ;; Mailagent is a Unix mail filtering program.  Anyone wanna do a
 468 ;; generic mode for procmail?
 469 (when (memq 'mailagent-rules-generic-mode generic-extras-enable-list)
 470
 471 (define-generic-mode mailagent-rules-generic-mode
 472   '(?#)
 473   '("SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT")
 474   '(("^\\(\\sw+\\)\\s-*="         1 font-lock-variable-name-face)
 475     ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 font-lock-constant-face))
 476   '("\\.rules\\'")
 477   (list
 478    (function
 479     (lambda ()
 480       (setq imenu-generic-expression
 481             '((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1))))))
 482   "Generic mode for Mailagent rules files."))
 483
 484 ;; Solaris/Sys V prototype files
 485 (when (memq 'prototype-generic-mode generic-extras-enable-list)
 486
 487 (define-generic-mode prototype-generic-mode
 488   '(?#)
 489   nil
 490   '(("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$"
 491      (2 font-lock-constant-face)
 492      (3 font-lock-keyword-face))
 493     ("^\\([a-z]\\) \\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
 494      (1 font-lock-constant-face)
 495      (2 font-lock-keyword-face)
 496      (3 font-lock-variable-name-face))
 497     ("^\\(!\\s-*\\(search\\|include\\|default\\)\\)\\s-*\\([^\n\r]*\\)$"
 498      (1 font-lock-keyword-face)
 499      (3 font-lock-variable-name-face))
 500     ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$"
 501      (1 font-lock-keyword-face)
 502      (2 font-lock-variable-name-face)))
 503   '("prototype\\'")
 504   nil
 505   "Generic mode for Sys V prototype files."))
 506
 507 ;; Solaris/Sys V pkginfo files
 508 (when (memq 'pkginfo-generic-mode generic-extras-enable-list)
 509
 510 (define-generic-mode pkginfo-generic-mode
 511   '(?#)
 512   nil
 513   '(("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
 514      (1 font-lock-keyword-face)
 515      (2 font-lock-variable-name-face)))
 516   '("pkginfo\\'")
 517   nil
 518   "Generic mode for Sys V pkginfo files."))
 519
 520 ;; Javascript mode
 521 ;; Obsolete; defer to js-mode from js.el.
 522 (when (memq 'javascript-generic-mode generic-extras-enable-list)
 523   (define-obsolete-function-alias 'javascript-generic-mode 'js-mode "24.3")
 524   (define-obsolete-variable-alias 'javascript-generic-mode-hook 'js-mode-hook "24.3"))
 525
 526 ;; VRML files
 527 (when (memq 'vrml-generic-mode generic-extras-enable-list)
 528
 529 (define-generic-mode vrml-generic-mode
 530   '(?#)
 531   '("DEF"
 532     "NULL"
 533     "USE"
 534     "Viewpoint"
 535     "ambientIntensity"
 536     "appearance"
 537     "children"
 538     "color"
 539     "coord"
 540     "coordIndex"
 541     "creaseAngle"
 542     "diffuseColor"
 543     "emissiveColor"
 544     "fieldOfView"
 545     "geometry"
 546     "info"
 547     "material"
 548     "normal"
 549     "orientation"
 550     "position"
 551     "shininess"
 552     "specularColor"
 553     "texCoord"
 554     "texture"
 555     "textureTransform"
 556     "title"
 557     "transparency"
 558     "type")
 559   '(("USE\\s-+\\([-A-Za-z0-9_]+\\)"
 560      (1 font-lock-constant-face))
 561     ("DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
 562      (1 font-lock-type-face)
 563      (2 font-lock-constant-face))
 564     ("^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{"
 565      (1 font-lock-function-name-face))
 566     ("^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)"
 567      (2 font-lock-variable-name-face)))
 568   '("\\.wrl\\'")
 569   (list
 570    (function
 571     (lambda ()
 572       (setq imenu-generic-expression
 573             '((nil "^\\([A-Za-z0-9_]+\\)\\s-*{" 1)
 574               ("*Definitions*"
 575                "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
 576                1))))))
 577   "Generic Mode for VRML files."))
 578
 579 ;; Java Manifests
 580 (when (memq 'java-manifest-generic-mode generic-extras-enable-list)
 581
 582 (define-generic-mode java-manifest-generic-mode
 583   '(?#)
 584   '("Name"
 585     "Digest-Algorithms"
 586     "Manifest-Version"
 587     "Required-Version"
 588     "Signature-Version"
 589     "Magic"
 590     "Java-Bean"
 591     "Depends-On")
 592   '(("^Name:\\s-+\\([^\n\r]*\\)$"
 593      (1 font-lock-variable-name-face))
 594     ("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$"
 595      (2 font-lock-constant-face)))
 596   '("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
 597   nil
 598   "Generic mode for Java Manifest files."))
 599
 600 ;; Java properties files
 601 (when (memq 'java-properties-generic-mode generic-extras-enable-list)
 602
 603 (define-generic-mode java-properties-generic-mode
 604   '(?! ?#)
 605   nil
 606   (eval-when-compile
 607     (let ((java-properties-key
 608            "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)")
 609           (java-properties-value
 610            "\\([^\r\n]*\\)"))
 611       ;; Property and value can be separated in a number of different ways:
 612       ;;   * whitespace
 613       ;;   * an equal sign
 614       ;;   * a colon
 615       (mapcar
 616        (function
 617         (lambda (elt)
 618           (list
 619            (concat "^" java-properties-key elt java-properties-value "$")
 620            '(1 font-lock-constant-face)
 621            '(4 font-lock-variable-name-face))))
 622        ;; These are the separators
 623        '(":\\s-*" "\\s-+" "\\s-*=\\s-*"))))
 624   nil
 625   (list
 626    (function
 627     (lambda ()
 628       (setq imenu-generic-expression
 629             '((nil "^\\([^#! \t\n\r=:]+\\)" 1))))))
 630   "Generic mode for Java properties files."))
 631
 632 ;; C shell alias definitions
 633 (when (memq 'alias-generic-mode generic-extras-enable-list)
 634
 635 (define-generic-mode alias-generic-mode
 636   '(?#)
 637   '("alias" "unalias")
 638   '(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+"
 639      (1 font-lock-variable-name-face))
 640     ("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$"
 641      (1 font-lock-variable-name-face)))
 642   '("alias\\'")
 643   (list
 644    (function
 645     (lambda ()
 646       (setq imenu-generic-expression
 647             '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2))))))
 648   "Generic mode for C Shell alias files."))
 649
 650 ;; Ansible inventory files
 651 (when (memq 'ansible-inventory-generic-mode generic-extras-enable-list)
 652
 653 (define-generic-mode ansible-inventory-generic-mode
 654   '(?#)
 655   nil
 656   '(("^\\s-*\\(\\[.*\\]\\)" 1 font-lock-constant-face)
 657     ("^\\s-*\\([^ \n\r]*\\)" 1 font-lock-function-name-face)
 658     ("\\([^ =\n\r]+\\)=\\([^ \n\r]*\\)"
 659      (1 font-lock-variable-name-face)
 660      (2 font-lock-keyword-face)))
 661   '("inventory")
 662   (list
 663    (function
 664     (lambda ()
 665       (setq imenu-generic-expression
 666             '((nil "^\\s-*\\[\\(.*\\)\\]" 1)
 667               ("*Variables*" "\\s-+\\([^ =\n\r]+\\)=" 1))))))
 668   "Generic mode for Ansible inventory files."))
 669
 670 ;;; Windows RC files
 671 ;; Contributed by ACorreir@pervasive-sw.com (Alfred Correira)
 672 (when (memq 'rc-generic-mode generic-extras-enable-list)
 673
 674 (define-generic-mode rc-generic-mode
 675   ;; '(?\/)
 676   '("//")
 677   '("ACCELERATORS"
 678     "AUTO3STATE"
 679     "AUTOCHECKBOX"
 680     "AUTORADIOBUTTON"
 681     "BITMAP"
 682     "BOTTOMMARGIN"
 683     "BUTTON"
 684     "CAPTION"
 685     "CHARACTERISTICS"
 686     "CHECKBOX"
 687     "CLASS"
 688     "COMBOBOX"
 689     "CONTROL"
 690     "CTEXT"
 691     "CURSOR"
 692     "DEFPUSHBUTTON"
 693     "DESIGNINFO"
 694     "DIALOG"
 695     "DISCARDABLE"
 696     "EDITTEXT"
 697     "EXSTYLE"
 698     "FONT"
 699     "GROUPBOX"
 700     "GUIDELINES"
 701     "ICON"
 702     "LANGUAGE"
 703     "LEFTMARGIN"
 704     "LISTBOX"
 705     "LTEXT"
 706     "MENUITEM SEPARATOR"
 707     "MENUITEM"
 708     "MENU"
 709     "MOVEABLE"
 710     "POPUP"
 711     "PRELOAD"
 712     "PURE"
 713     "PUSHBOX"
 714     "PUSHBUTTON"
 715     "RADIOBUTTON"
 716     "RCDATA"
 717     "RIGHTMARGIN"
 718     "RTEXT"
 719     "SCROLLBAR"
 720     "SEPARATOR"
 721     "STATE3"
 722     "STRINGTABLE"
 723     "STYLE"
 724     "TEXTINCLUDE"
 725     "TOOLBAR"
 726     "TOPMARGIN"
 727     "VERSIONINFO"
 728     "VERSION")
 729   ;; the choice of what tokens go where is somewhat arbitrary,
 730   ;; as is the choice of which value tokens are included, as
 731   ;; the choice of face for each token group
 732   (eval-when-compile
 733     (list
 734      (list (regexp-opt '("FILEFLAGSMASK"
 735                          "FILEFLAGS"
 736                          "FILEOS"
 737                          "FILESUBTYPE"
 738                          "FILETYPE"
 739                          "FILEVERSION"
 740                          "PRODUCTVERSION") 'symbols)
 741            1 font-lock-type-face)
 742      (list (regexp-opt '("BEGIN" "BLOCK" "END" "VALUE") 'symbols)
 743            1 font-lock-function-name-face)
 744      '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
 745      '("^#[ \t]*define[ \t]+\\(\\sw+\\)("       1 font-lock-function-name-face)
 746      '("^#[ \t]*\\(elif\\|if\\)\\>"
 747        ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
 748         (1 font-lock-constant-face)
 749         (2 font-lock-variable-name-face nil t)))
 750      '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
 751        (1 font-lock-constant-face)
 752        (2 font-lock-variable-name-face nil t))))
 753     '("\\.[rR][cC]\\'")
 754     nil
 755     "Generic mode for MS-Windows Resource files."))
 756
 757 ;; InstallShield RUL files
 758 ;; Contributed by  Alfred.Correira@Pervasive.Com
 759 ;; Bugfixes by "Rolf Sandau" <Rolf.Sandau@marconi.com>
 760 (when (memq 'rul-generic-mode generic-extras-enable-list)
 761
 762 (eval-when-compile
 763
 764 ;;; build the regexp strings using regexp-opt
 765 (defconst installshield-statement-keyword-list
 766   '("abort"
 767     "begin"
 768     "call"
 769     "case"
 770     "declare"
 771     "default"
 772     "downto"
 773     "elseif"
 774     "else"
 775     "endfor"
 776     "endif"
 777     "endswitch"
 778     "endwhile"
 779     "end"
 780     "exit"
 781     "external"
 782     "for"
 783     "function"
 784     ;; "goto" -- handled elsewhere
 785     "if"
 786     "program"
 787     "prototype"
 788     "repeat"
 789     "return"
 790     "step"
 791     "switch"
 792     "then"
 793     "to"
 794     "typedef"
 795     "until"
 796     "void"
 797     "while")
 798   "Statement keywords used in InstallShield 3 and 5.")
 799
 800 (defconst installshield-system-functions-list
 801   '("AddFolderIcon"
 802     "AddProfString"
 803     "AddressString"
 804     "AppCommand"
 805     "AskDestPath"
 806     "AskOptions"
 807     "AskPath"
 808     "AskText"
 809     "AskYesNo"
 810     "BatchDeleteEx"
 811     "BatchFileLoad"
 812     "BatchFileSave"
 813     "BatchFind"
 814     "BatchGetFileName"
 815     "BatchMoveEx"
 816     "BatchSetFileName"
 817     "ChangeDirectory"
 818     "CloseFile"
 819     "CmdGetHwndDlg"
 820     "ComponentAddItem"                  ; differs between IS3 and IS5
 821     "ComponentCompareSizeRequired"      ; IS5 only
 822     "ComponentDialog"
 823     "ComponentError"                    ; IS5 only
 824     "ComponentFileEnum"                 ; IS5 only
 825     "ComponentFileInfo"                 ; IS5 only
 826     "ComponentFilterLanguage"           ; IS5 only
 827     "ComponentFilterOS"                 ; IS5 only
 828     "ComponentGetData"                  ; IS5 only
 829     "ComponentGetItemInfo"              ; IS3 only
 830     "ComponentGetItemSize"              ; differs between IS3 and IS5
 831     "ComponentIsItemSelected"           ; differs between IS3 and IS5
 832     "ComponentListItems"
 833     "ComponentMoveData"                 ; IS5 only
 834     "ComponentSelectItem"               ; differs between IS3 and IS5
 835     "ComponentSetData"                  ; IS5 only
 836     "ComponentSetItemInfo"              ; IS3 only
 837     "ComponentSetTarget"                ; IS5 only
 838     "ComponentSetupTypeEnum"            ; IS5 only
 839     "ComponentSetupTypeGetData"         ; IS5 only
 840     "ComponentSetupTypeSet"             ; IS5 only
 841     "ComponentTotalSize"
 842     "ComponentValidate"                 ; IS5 only
 843     "CompressAdd"                       ; IS3 only
 844     "CompressDel"                       ; IS3 only
 845     "CompressEnum"                      ; IS3 only
 846     "CompressGet"                       ; IS3 only
 847     "CompressInfo"                      ; IS3 only
 848     "CopyFile"
 849     "CreateDir"
 850     "CreateFile"
 851     "CreateProgramFolder"
 852     "DeinstallSetReference"             ; IS5 only
 853     "DeinstallStart"
 854     "Delay"
 855     "DeleteDir"
 856     "DeleteFile"
 857     "DialogSetInfo"
 858     "Disable"
 859     "DoInstall"
 860     "Do"
 861     "Enable"
 862     "EnterDisk"
 863     "ExistsDir"
 864     "ExistsDisk"
 865     "ExitProgMan"
 866     "EzBatchAddPath"
 867     "EzBatchAddString"
 868     "EzBatchReplace"
 869     "EzConfigAddDriver"
 870     "EzConfigAddString"
 871     "EzConfigGetValue"
 872     "EzConfigSetValue"
 873     "EzDefineDialog"
 874     "FileCompare"
 875     "FileDeleteLine"
 876     "FileGrep"
 877     "FileInsertLine"
 878     "FileSetBeginDefine"                ; IS3 only
 879     "FileSetEndDefine"                  ; IS3 only
 880     "FileSetPerformEz"                  ; IS3 only
 881     "FileSetPerform"                    ; IS3 only
 882     "FileSetReset"                      ; IS3 only
 883     "FileSetRoot"                       ; IS3 only
 884     "FindAllDirs"
 885     "FindAllFiles"
 886     "FindFile"
 887     "FindWindow"
 888     "GetDiskSpace"
 889     "GetDisk"
 890     "GetEnvVar"
 891     "GetExtents"
 892     "GetFileInfo"
 893     "GetLine"
 894     "GetProfInt"
 895     "GetProfString"
 896     "GetSystemInfo"
 897     "GetValidDrivesList"
 898     "GetVersion"
 899     "GetWindowHandle"
 900     "InstallationInfo"
 901     "Is"
 902     "LaunchApp"
 903     "LaunchAppAndWait"
 904     "ListAddItem"
 905     "ListAddString"
 906     "ListCount"
 907     "ListCreate"
 908     "ListDestroy"
 909     "ListFindItem"
 910     "ListFindString"
 911     "ListGetFirstItem"
 912     "ListGetFirstString"
 913     "ListGetNextItem"
 914     "ListGetNextString"
 915     "ListReadFromFile"
 916     "ListSetCurrentItem"
 917     "ListSetNextItem"
 918     "ListSetNextString"
 919     "ListSetIndex"
 920     "ListWriteToFile"
 921     "LongPathToQuote"
 922     "LongPathToShortPath"
 923     "MessageBox"
 924     "NumToStr"
 925     "OpenFileMode"
 926     "OpenFile"
 927     "ParsePath"
 928     "PathAdd"
 929     "PathDelete"
 930     "PathFind"
 931     "PathGet"
 932     "PathMove"
 933     "PathSet"
 934     "Path"
 935     "PlaceBitmap"
 936     "PlaceWindow"
 937     "PlayMMedia"                        ; IS5 only
 938     "ProgDefGroupType"
 939     "RegDBCreateKeyEx"
 940     "RegDBDeleteValue"
 941     "RegDBGetItem"
 942     "RegDBKeyExist"
 943     "RegDBSetItem"
 944     "RegDBGetKeyValueEx"
 945     "RegDBSetKeyValueEx"
 946     "RegDBSetDefaultRoot"
 947     "RenameFile"
 948     "ReplaceFolderIcon"
 949     "ReplaceProfString"
 950     "SdAskDestPath"
 951     "SdAskOptions"
 952     "SdAskOptionsList"
 953     "SdBitmap"
 954     "SdCloseDlg"
 955     "SdComponentAdvCheckSpace"
 956     "SdComponentAdvInit"
 957     "SdComponentAdvUpdateSpace"
 958     "SdComponentDialog"
 959     "SdComponentDialog2"
 960     "SdComponentDialogAdv"
 961     "SdComponentDialogEx"
 962     "SdComponentDlgCheckSpace"
 963     "SdComponentMult"
 964     "SdConfirmNewDir"
 965     "SdConfirmRegistration"
 966     "SdDiskSpace"
 967     "SdDisplayTopics"
 968     "SdDoStdButton"
 969     "SdEnablement"
 970     "SdError"
 971     "SdFinish"
 972     "SdFinishInit32"
 973     "SdFinishReboot"
 974     "SdGeneralInit"
 975     "SdGetItemName"
 976     "SdGetTextExtent"
 977     "SdGetUserCompanyInfo"
 978     "SdInit"
 979     "SdIsShellExplorer"
 980     "SdIsStdButton"
 981     "SdLicense"
 982     "SdMakeName"
 983     "SdOptionInit"
 984     "SdOptionSetState"
 985     "SdOptionsButtons"
 986     "SdOptionsButtonsInit"
 987     "SdPlugInProductName"
 988     "SdProductName"
 989     "SdRegEnableButton"
 990     "SdRegExEnableButton"
 991     "SdRegisterUser"
 992     "SdRegisterUserEx"
 993     "SdRemoveEndSpace"
 994     "SdSelectFolder"
 995     "SdSetSequentialItems"
 996     "SdSetStatic"
 997     "SdSetupTypeEx"                     ; IS5 only
 998     "SdSetupType"
 999     "SdShowAnyDialog"
1000     "SdShowDlgEdit1"
1001     "SdShowDlgEdit2"
1002     "SdShowDlgEdit3"
1003     "SdShowFileMods"
1004     "SdShowInfoList"
1005     "SdShowMsg"
1006     "SdStartCopy"
1007     "SdUnInit"
1008     "SdUpdateComponentSelection"
1009     "SdWelcome"
1010     "SendMessage"
1011     "SetColor"
1012     "SetFont"
1013     "SetDialogTitle"
1014     "SetDisplayEffect"                  ; IS5 only
1015     "SetFileInfo"
1016     "SetForegroundWindow"
1017     "SetStatusWindow"
1018     "SetTitle"
1019     "SetupType"
1020     "ShowProgramFolder"
1021     "Split"                             ; IS3 only
1022     "SprintfBox"
1023     "Sprintf"
1024     "StatusUpdate"
1025     "StrCompare"
1026     "StrFind"
1027     "StrGetTokens"
1028     "StrLength"
1029     "StrRemoveLastSlash"
1030     "StrToLower"
1031     "StrToNum"
1032     "StrToUpper"
1033     "StrSub"
1034     "VarRestore"
1035     "VarSave"
1036     "VerCompare"
1037     "VerGetFileVersion"
1038     "WaitOnDialog"
1039     "Welcome"
1040     "WriteLine"
1041     "WriteProfString"
1042     "XCopyFile")
1043   "System functions defined in InstallShield 3 and 5.")
1044
1045 (defconst installshield-system-variables-list
1046   '("BATCH_INSTALL"
1047     "CMDLINE"
1048     "COMMONFILES"
1049     "CORECOMPONENTHANDLING"
1050     "DIALOGCACHE"
1051     "ERRORFILENAME"
1052     "FOLDER_DESKTOP"
1053     "FOLDER_PROGRAMS"
1054     "FOLDER_STARTMENU"
1055     "FOLDER_STARTUP"
1056     "INFOFILENAME"
1057     "ISRES"
1058     "ISUSER"
1059     "ISVERSION"
1060     "MEDIA"
1061     "MODE"
1062     "PROGRAMFILES"
1063     "SELECTED_LANGUAGE"
1064     "SRCDIR"
1065     "SRCDISK"
1066     "SUPPORTDIR"
1067     "TARGETDIR"
1068     "TARGETDISK"
1069     "UNINST"
1070     "WINDIR"
1071     "WINDISK"
1072     "WINMAJOR"
1073     "WINSYSDIR"
1074     "WINSYSDISK")
1075   "System variables used in InstallShield 3 and 5.")
1076
1077 (defconst installshield-types-list
1078   '("BOOL"
1079     "BYREF"
1080     "CHAR"
1081     "HIWORD"
1082     "HWND"
1083     "INT"
1084     "LIST"
1085     "LONG"
1086     "LOWORD"
1087     "LPSTR"
1088     "NUMBER"
1089     "NUMBERLIST"
1090     "POINTER"
1091     "QUAD"
1092     "RGB"
1093     "SHORT"
1094     "STRINGLIST"
1095     "STRING")
1096   "Type keywords used in InstallShield 3 and 5.")
1097
1098 ;;; some might want to skip highlighting these to improve performance
1099 (defconst installshield-funarg-constants-list
1100   '("AFTER"
1101     "APPEND"
1102     "ALLCONTENTS"
1103     "BACKBUTTON"
1104     "BACKGROUNDCAPTION"
1105     "BACKGROUND"
1106     "BACK"
1107     "BASEMEMORY"
1108     "BEFORE"
1109     "BIOS"
1110     "BITMAPICON"
1111     "BK_BLUE"
1112     "BK_GREEN"
1113     "BK_RED"
1114     "BLUE"
1115     "BOOTUPDRIVE"
1116     "CANCEL"
1117     "CDROM_DRIVE"
1118     "CDROM"
1119     "CHECKBOX95"
1120     "CHECKBOX"
1121     "CHECKLINE"
1122     "CHECKMARK"
1123     "COLORS"
1124     "COMMANDEX"
1125     "COMMAND"
1126     "COMP_NORMAL"
1127     "COMP_UPDATE_DATE"
1128     "COMP_UPDATE_SAME"
1129     "COMP_UPDATE_VERSION"
1130     "COMPACT"
1131     "CONTINUE"
1132     "CPU"
1133     "CUSTOM"
1134     "DATE"
1135     "DEFWINDOWMODE"
1136     "DIR_WRITEABLE"
1137     "DIRECTORY"
1138     "DISABLE"
1139     "DISK_TOTALSPACE"
1140     "DISK"
1141     "DLG_OPTIONS"
1142     "DLG_PATH"
1143     "DLG_TEXT"
1144     "DLG_ASK_YESNO"
1145     "DLG_ENTER_DISK"
1146     "DLG_ERR"
1147     "DLG_INFO_ALTIMAGE"
1148     "DLG_INFO_CHECKSELECTION"
1149     "DLG_INFO_KUNITS"
1150     "DLG_INFO_USEDECIMAL"
1151     "DLG_MSG_INFORMATION"
1152     "DLG_MSG_SEVERE"
1153     "DLG_MSG_WARNING"
1154     "DLG_STATUS"
1155     "DLG_WARNING"
1156     "DLG_USER_CAPTION"
1157     "DRIVE"
1158     "ENABLE"
1159     "END_OF_FILE"
1160     "END_OF_LIST"
1161     "ENVSPACE"
1162     "EQUALS"
1163     "EXCLUDE_SUBDIR"
1164     "EXCLUSIVE"
1165     "EXISTS"
1166     "EXIT"
1167     "EXTENDED_MEMORY"
1168     "EXTENSION_ONLY"
1169     "FAILIFEXISTS"
1170     "FALSE"
1171     "FEEDBACK_FULL"
1172     "FILE_ATTR_ARCHIVED"
1173     "FILE_ATTR_DIRECTORY"
1174     "FILE_ATTR_HIDDEN"
1175     "FILE_ATTR_NORMAL"
1176     "FILE_ATTR_READONLY"
1177     "FILE_ATTR_SYSTEM"
1178     "FILE_ATTRIBUTE"
1179     "FILE_DATE"
1180     "FILE_LINE_LENGTH"
1181     "FILE_MODE_APPEND"
1182     "FILE_MODE_BINARYREADONLY"
1183     "FILE_MODE_BINARY"
1184     "FILE_MODE_NORMAL"
1185     "FILE_NO_VERSION"
1186     "FILE_NOT_FOUND"
1187     "FILE_SIZE"
1188     "FILE_TIME"
1189     "FILENAME_ONLY"
1190     "FILENAME"
1191     "FIXED_DRIVE"
1192     "FOLDER_DESKTOP"
1193     "FOLDER_PROGRAMS"
1194     "FOLDER_STARTMENU"
1195     "FOLDER_STARTUP"
1196     "FREEENVSPACE"
1197     "FULLWINDOWMODE"
1198     "FULL"
1199     "FONT_TITLE"
1200     "GREATER_THAN"
1201     "GREEN"
1202     "HKEY_CLASSES_ROOT"
1203     "HKEY_CURRENT_USER"
1204     "HKEY_LOCAL_MACHINE"
1205     "HKEY_USERS"
1206     "HOURGLASS"
1207     "INCLUDE_SUBDIR"
1208     "INDVFILESTATUS"
1209     "INFORMATION"
1210     "IS_WINDOWSNT"
1211     "IS_WINDOWS95"
1212     "IS_WINDOWS"
1213     "IS_WIN32S"
1214     "ISTYPE"
1215     "LANGUAGE_DRV"
1216     "LANGUAGE"
1217     "LESS_THAN"
1218     "LIST_NULL"
1219     "LISTFIRST"
1220     "LISTNEXT"
1221     "LOCKEDFILE"
1222     "LOGGING"
1223     "LOWER_LEFT"
1224     "LOWER_RIGHT"
1225     "MAGENTA"
1226     "MOUSE_DRV"
1227     "MOUSE"
1228     "NETWORK_DRV"
1229     "NETWORK"
1230     "NEXT"
1231     "NONEXCLUSIVE"
1232     "NORMALMODE"
1233     "NOSET"
1234     "NOTEXISTS"
1235     "NOWAIT"
1236     "NO"
1237     "OFF"
1238     "ONLYDIR"
1239     "ON"
1240     "OSMAJOR"
1241     "OSMINOR"
1242     "OS"
1243     "OTHER_FAILURE"
1244     "PARALLEL"
1245     "PARTIAL"
1246     "PATH_EXISTS"
1247     "PATH"
1248     "RED"
1249     "REGDB_APPPATH_DEFAULT"
1250     "REGDB_APPPATH"
1251     "REGDB_BINARY"
1252     "REGDB_ERR_CONNECTIONEXISTS"
1253     "REGDB_ERR_CORRUPTEDREGISTRY"
1254     "REGDB_ERR_INITIALIZATION"
1255     "REGDB_ERR_INVALIDHANDLE"
1256     "REGDB_ERR_INVALIDNAME"
1257     "REGDB_NUMBER"
1258     "REGDB_STRING_EXPAND"
1259     "REGDB_STRING_MULTI"
1260     "REGDB_STRING"
1261     "REGDB_UNINSTALL_NAME"
1262     "REMOTE_DRIVE"
1263     "REMOVEABLE_DRIVE"
1264     "REPLACE_ITEM"
1265     "REPLACE"
1266     "RESET"
1267     "RESTART"
1268     "ROOT"
1269     "SELFREGISTER"
1270     "SERIAL"
1271     "SET"
1272     "SEVERE"
1273     "SHAREDFILE"
1274     "SHARE"
1275     "SILENTMODE"
1276     "SRCTARGETDIR"
1277     "STATUSBAR"
1278     "STATUSDLG"
1279     "STATUSOLD"
1280     "STATUS"
1281     "STYLE_NORMAL"
1282     "SW_MAXIMIZE"
1283     "SW_MINIMIZE"
1284     "SW_RESTORE"
1285     "SW_SHOW"
1286     "SYS_BOOTMACHINE"
1287     "TIME"
1288     "TRUE"
1289     "TYPICAL"
1290     "UPPER_LEFT"
1291     "UPPER_RIGHT"
1292     "VALID_PATH"
1293     "VERSION"
1294     "VIDEO"
1295     "VOLUMELABEL"
1296     "YELLOW"
1297     "YES"
1298     "WAIT"
1299     "WARNING"
1300     "WINMAJOR"
1301     "WINMINOR"
1302     "WIN32SINSTALLED"
1303     "WIN32SMAJOR"
1304     "WIN32SMINOR")
1305   "Function argument constants used in InstallShield 3 and 5."))
1306
1307 ;; c++-mode-syntax-table used to be autoloaded, with an initial nil value.
1308 ;; This file did not load cc-mode, and therefore rul-generic-mode-syntax-table
1309 ;; would have different values according to whether or not cc-mode
1310 ;; happened to be loaded before this file was.
1311 (require 'cc-mode)
1312 (defvar c++-mode-syntax-table)
1313
1314 (defvar rul-generic-mode-syntax-table
1315   (let ((table (make-syntax-table c++-mode-syntax-table)))
1316     (modify-syntax-entry ?\r "> b" table)
1317     (modify-syntax-entry ?\n "> b" table)
1318     (modify-syntax-entry ?/  ". 124b" table)
1319     (modify-syntax-entry ?*  ". 23" table)
1320     table)
1321   "Syntax table to use in `rul-generic-mode' buffers.")
1322
1323 ;; here manually instead
1324 (defun generic-rul-mode-setup-function ()
1325   (make-local-variable 'parse-sexp-ignore-comments)
1326   (make-local-variable 'comment-start)
1327   (make-local-variable 'comment-start-skip)
1328   (make-local-variable 'comment-end)
1329   (setq imenu-generic-expression
1330         '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1))
1331         parse-sexp-ignore-comments t
1332         comment-end               "*/"
1333         comment-start        "/*"
1334 ;;;     comment-end               ""
1335 ;;;     comment-start        "//"
1336 ;;;     comment-start-skip           ""
1337         )
1338   ;; (set-syntax-table rul-generic-mode-syntax-table)
1339   (setq-local font-lock-syntax-table rul-generic-mode-syntax-table))
1340
1341 ;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan
1342 (define-generic-mode rul-generic-mode
1343   ;; Using "/*" and "*/" doesn't seem to be working right
1344   '("//" ("/*" . "*/" ))
1345   (eval-when-compile installshield-statement-keyword-list)
1346   (eval-when-compile
1347     (list
1348      ;; preprocessor constructs
1349      '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
1350        1 font-lock-string-face)
1351      '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
1352        (1 font-lock-constant-face)
1353        (2 font-lock-variable-name-face nil t))
1354      ;; indirect string constants
1355      '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face)
1356      ;; gotos
1357      '("[ \t]*\\(\\sw+:\\)"           1 font-lock-constant-face)
1358      '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
1359        (1 font-lock-keyword-face)
1360        (2 font-lock-constant-face nil t))
1361      ;; system variables
1362      (list (concat "[^_]"
1363                    (regexp-opt installshield-system-variables-list 'symbols)
1364                    "[^_]")
1365            1 font-lock-variable-name-face)
1366      ;; system functions
1367      (list (concat "[^_]"
1368                    (regexp-opt installshield-system-functions-list 'symbols)
1369                    "[^_]")
1370            1 font-lock-function-name-face)
1371      ;; type keywords
1372      (list (concat "[^_]"
1373                    (regexp-opt installshield-types-list 'symbols)
1374                    "[^_]")
1375            1 font-lock-type-face)
1376      ;; function argument constants
1377      (list (concat "[^_]"
1378                    (regexp-opt installshield-funarg-constants-list 'symbols)
1379                    "[^_]")
1380            1 font-lock-variable-name-face))) ; is this face the best choice?
1381   '("\\.[rR][uU][lL]\\'")
1382   '(generic-rul-mode-setup-function)
1383   "Generic mode for InstallShield RUL files.")
1384
1385 (define-skeleton rul-if
1386   "Insert an if statement."
1387   "condition: "
1388   "if(" str ") then" \n
1389   > _ \n
1390   ( "other condition, %s: "
1391     > "elseif(" str ") then" \n
1392     > \n)
1393   > "else" \n
1394   > \n
1395   resume:
1396   > "endif;")
1397
1398 (define-skeleton rul-function
1399   "Insert a function statement."
1400   "function: "
1401   "function " str " ()" \n
1402   ( "local variables, %s: "
1403     > "  " str ";" \n)
1404   > "begin" \n
1405   > _ \n
1406   resume:
1407   > "end;"))
1408
1409 ;; Additions by ACorreir@pervasive-sw.com (Alfred Correira)
1410 (when (memq 'mailrc-generic-mode generic-extras-enable-list)
1411
1412 (define-generic-mode mailrc-generic-mode
1413   '(?#)
1414   '("alias"
1415     "else"
1416     "endif"
1417     "group"
1418     "if"
1419     "ignore"
1420     "set"
1421     "source"
1422     "unset")
1423   '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
1424      (2 font-lock-constant-face)
1425      (3 font-lock-variable-name-face))
1426     ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$"
1427      (2 font-lock-constant-face)
1428      (3 font-lock-variable-name-face))
1429     ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
1430      (2 font-lock-variable-name-face)))
1431   '("\\.mailrc\\'")
1432   nil
1433   "Mode for mailrc files."))
1434
1435 ;; Inetd.conf
1436 (when (memq 'inetd-conf-generic-mode generic-extras-enable-list)
1437
1438 (define-generic-mode inetd-conf-generic-mode
1439   '(?#)
1440   '("stream"
1441     "dgram"
1442     "tcp"
1443     "udp"
1444     "wait"
1445     "nowait"
1446     "internal")
1447   '(("^\\([-A-Za-z0-9_]+\\)" 1 font-lock-type-face))
1448   '("/etc/inetd.conf\\'")
1449   (list
1450    (function
1451     (lambda ()
1452       (setq imenu-generic-expression
1453             '((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))))
1454
1455 ;; Services
1456 (when (memq 'etc-services-generic-mode generic-extras-enable-list)
1457
1458 (define-generic-mode etc-services-generic-mode
1459   '(?#)
1460   '("tcp"
1461     "udp"
1462     "ddp")
1463   '(("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/"
1464      (1 font-lock-type-face)
1465      (2 font-lock-variable-name-face)))
1466   '("/etc/services\\'")
1467   (list
1468    (function
1469     (lambda ()
1470       (setq imenu-generic-expression
1471             '((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))))
1472
1473 ;; Password and Group files
1474 (when (memq 'etc-passwd-generic-mode generic-extras-enable-list)
1475
1476 (define-generic-mode etc-passwd-generic-mode
1477   nil              ;; No comment characters
1478   '("root")        ;; Only one keyword
1479   (eval-when-compile
1480     (list
1481      (list
1482       (concat
1483        "^"
1484        ;; User name -- Never blank!
1485        "\\([^:]+\\)"
1486        ":"
1487        ;; Password, UID and GID
1488        (mapconcat
1489         'identity
1490         (make-list 3 "\\([^:]+\\)")
1491         ":")
1492        ":"
1493        ;; GECOS/Name -- might be blank
1494        "\\([^:]*\\)"
1495        ":"
1496        ;; Home directory and shell
1497        "\\([^:]+\\)"
1498        ":?"
1499        "\\([^:]*\\)"
1500        "$")
1501       '(1 font-lock-type-face)
1502       '(5 font-lock-variable-name-face)
1503       '(6 font-lock-constant-face)
1504       '(7 font-lock-warning-face))
1505      '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$"
1506        (1 font-lock-type-face)
1507        (4 font-lock-variable-name-face))))
1508   '("/etc/passwd\\'" "/etc/group\\'")
1509   (list
1510    (function
1511     (lambda ()
1512       (setq imenu-generic-expression
1513             '((nil "^\\([-A-Za-z0-9_]+\\):" 1))))))))
1514
1515 ;; Fstab
1516 (when (memq 'etc-fstab-generic-mode generic-extras-enable-list)
1517
1518 (define-generic-mode etc-fstab-generic-mode
1519   '(?#)
1520   '("adfs"
1521     "affs"
1522     "autofs"
1523     "coda"
1524     "coherent"
1525     "cramfs"
1526     "devpts"
1527     "efs"
1528     "ext2"
1529     "ext3"
1530     "ext4"
1531     "hfs"
1532     "hpfs"
1533     "iso9660"
1534     "jfs"
1535     "minix"
1536     "msdos"
1537     "ncpfs"
1538     "nfs"
1539     "ntfs"
1540     "proc"
1541     "qnx4"
1542     "reiserfs"
1543     "romfs"
1544     "smbfs"
1545     "cifs"
1546     "usbdevfs"
1547     "sysv"
1548     "sysfs"
1549     "tmpfs"
1550     "udf"
1551     "ufs"
1552     "umsdos"
1553     "vfat"
1554     "xenix"
1555     "xfs"
1556     "swap"
1557     "auto"
1558     "ignore")
1559   '(("^\\([^# \t]+\\)\\s-+\\([^# \t]+\\)"
1560      (1 font-lock-type-face t)
1561      (2 font-lock-variable-name-face t)))
1562   '("/etc/[v]*fstab\\'")
1563   (list
1564    (function
1565     (lambda ()
1566       (setq imenu-generic-expression
1567             '((nil "^\\([^# \t]+\\)\\s-+" 1))))))))
1568
1569 ;; /etc/sudoers
1570 (when (memq 'etc-sudoers-generic-mode generic-extras-enable-list)
1571
1572 (define-generic-mode etc-sudoers-generic-mode
1573   '(?#)
1574   '("User_Alias" "Runas_Alias" "Host_Alias"  "Cmnd_Alias"
1575     "NOPASSWD" "PASSWD" "NOEXEC" "EXEC"
1576     "ALL")
1577   '(("\\<\\(root\\|su\\)\\>" 1 font-lock-warning-face)
1578     ("\\(\\*\\)" 1 font-lock-warning-face)
1579     ("\\<\\(%[A-Za-z0-9_]+\\)\\>" 1 font-lock-variable-name-face))
1580   '("/etc/sudoers\\'")
1581   nil
1582   "Generic mode for sudoers configuration files."))
1583
1584 ;; From Jacques Duthen <jacques.duthen@sncf.fr>
1585 (when (memq 'show-tabs-generic-mode generic-extras-enable-list)
1586
1587 (eval-when-compile
1588
1589 (defconst show-tabs-generic-mode-font-lock-defaults-1
1590   '(;; trailing spaces must come before...
1591     ("[ \t]+$" . 'show-tabs-space)
1592     ;; ...embedded tabs
1593     ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab))))
1594
1595 (defconst show-tabs-generic-mode-font-lock-defaults-2
1596   '(;; trailing spaces must come before...
1597     ("[ \t]+$" . 'show-tabs-space)
1598     ;; ...tabs
1599     ("\t+" . 'show-tabs-tab))))
1600
1601 (defface show-tabs-tab
1602   '((((class grayscale) (background light)) (:background "DimGray"   :weight bold))
1603     (((class grayscale) (background dark))  (:background "LightGray" :weight bold))
1604     (((class color)     (min-colors 88))    (:background "red1"))
1605     (((class color))                        (:background "red"))
1606     (t (:weight bold)))
1607   "Font Lock mode face used to highlight TABs."
1608   :group 'generic-x)
1609 (define-obsolete-face-alias 'show-tabs-tab-face 'show-tabs-tab "22.1")
1610
1611 (defface show-tabs-space
1612   '((((class grayscale) (background light)) (:background "DimGray"   :weight bold))
1613     (((class grayscale) (background dark))  (:background "LightGray" :weight bold))
1614     (((class color)     (min-colors 88))    (:background "yellow1"))
1615     (((class color))                        (:background "yellow"))
1616     (t (:weight bold)))
1617   "Font Lock mode face used to highlight spaces."
1618   :group 'generic-x)
1619 (define-obsolete-face-alias 'show-tabs-space-face 'show-tabs-space "22.1")
1620
1621 (define-generic-mode show-tabs-generic-mode
1622   nil ;; no comment char
1623   nil ;; no keywords
1624   (eval-when-compile show-tabs-generic-mode-font-lock-defaults-1)
1625   nil ;; no auto-mode-alist
1626   ;; '(show-tabs-generic-mode-hook-fun)
1627   nil
1628   "Generic mode to show tabs and trailing spaces."))
1629
1630 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1631 ;; DNS modes
1632 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1633
1634 (when (memq 'named-boot-generic-mode generic-extras-enable-list)
1635
1636 (define-generic-mode named-boot-generic-mode
1637   ;; List of comment characters
1638   '(?\;)
1639   ;; List of keywords
1640   '("cache" "primary" "secondary" "forwarders" "limit" "options"
1641     "directory" "check-names")
1642   ;; List of additional font-lock-expressions
1643   '(("\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" 1 font-lock-constant-face)
1644     ("^directory\\s-+\\(.*\\)"              1 font-lock-variable-name-face)
1645     ("^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)"
1646      (2 font-lock-variable-name-face)
1647      (3 font-lock-constant-face)))
1648   ;; List of additional automode-alist expressions
1649   '("/etc/named.boot\\'")
1650   ;; List of set up functions to call
1651   nil))
1652
1653 (when (memq 'named-database-generic-mode generic-extras-enable-list)
1654
1655 (define-generic-mode named-database-generic-mode
1656   ;; List of comment characters
1657   '(?\;)
1658   ;; List of keywords
1659   '("IN" "NS" "CNAME" "SOA" "PTR" "MX" "A")
1660   ;; List of additional font-lock-expressions
1661   '(("\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" 1 font-lock-constant-face)
1662     ("^\\([.A-Za-z0-9]+\\)"                 1 font-lock-variable-name-face))
1663   ;; List of additional auto-mode-alist expressions
1664   nil
1665   ;; List of set up functions to call
1666   nil)
1667
1668 (defvar named-database-time-string "%Y%m%d%H"
1669   "Timestring for named serial numbers.")
1670
1671 (defun named-database-print-serial ()
1672   "Print a serial number based on the current date."
1673   (interactive)
1674   (insert (format-time-string named-database-time-string))))
1675
1676 (when (memq 'resolve-conf-generic-mode generic-extras-enable-list)
1677
1678 (define-generic-mode resolve-conf-generic-mode
1679   ;; List of comment characters
1680   '(?#)
1681   ;; List of keywords
1682   '("nameserver" "domain" "search" "sortlist" "options")
1683   ;; List of additional font-lock-expressions
1684   nil
1685   ;; List of additional auto-mode-alist expressions
1686   '("/etc/resolv[e]?.conf\\'")
1687   ;; List of set up functions to call
1688   nil))
1689
1690 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1691 ;; Modes for spice and common electrical engineering circuit netlist formats
1692 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1693
1694 (when (memq 'spice-generic-mode generic-extras-enable-list)
1695
1696 (define-generic-mode spice-generic-mode
1697   nil
1698   '("and"
1699     "cccs"
1700     "ccvs"
1701     "delay"
1702     "nand"
1703     "nor"
1704     "npwl"
1705     "or"
1706     "par"
1707     "ppwl"
1708     "pwl"
1709     "vccap"
1710     "vccs"
1711     "vcr"
1712     "vcvs")
1713   '(("^\\s-*\\([*].*\\)"                1 font-lock-comment-face)
1714     (" \\(\\$ .*\\)$"                   1 font-lock-comment-face)
1715     ("^\\(\\$ .*\\)$"                   1 font-lock-comment-face)
1716     ("\\([*].*\\)"                      1 font-lock-comment-face)
1717     ("^\\([+]\\)"                       1 font-lock-string-face)
1718     ("^\\s-*\\([.]\\w+\\>\\)"           1 font-lock-keyword-face)
1719     ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)
1720     ("\\('[^']+'\\)"                    1 font-lock-string-face)
1721     ("\\(\"[^\"]+\"\\)"                 1 font-lock-string-face))
1722   '("\\.[sS][pP]\\'"
1723     "\\.[sS][pP][iI]\\'"
1724     "\\.[sS][pP][iI][cC][eE]\\'"
1725     "\\.[iI][nN][cC]\\'")
1726   (list
1727    'generic-bracket-support
1728    ;; Make keywords case-insensitive
1729    (function
1730     (lambda()
1731       (setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
1732   "Generic mode for SPICE circuit netlist files."))
1733
1734 (when (memq 'ibis-generic-mode generic-extras-enable-list)
1735
1736 (define-generic-mode ibis-generic-mode
1737   '(?|)
1738   nil
1739   '(("[[]\\([^]]*\\)[]]"          1 font-lock-keyword-face)
1740     ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face))
1741   '("\\.[iI][bB][sS]\\'")
1742   '(generic-bracket-support)
1743   "Generic mode for IBIS circuit netlist files."))
1744
1745 (when (memq 'astap-generic-mode generic-extras-enable-list)
1746
1747 (define-generic-mode astap-generic-mode
1748   nil
1749   '("analyze"
1750     "description"
1751     "elements"
1752     "execution"
1753     "features"
1754     "functions"
1755     "ground"
1756     "model"
1757     "outputs"
1758     "print"
1759     "run"
1760     "controls"
1761     "table")
1762   '(("^\\s-*\\([*].*\\)"      1 font-lock-comment-face)
1763     (";\\s-*\\([*].*\\)"      1 font-lock-comment-face)
1764     ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face)
1765     ("\\('[^']+'\\)"          1 font-lock-string-face)
1766     ("\\(\"[^\"]+\"\\)"       1 font-lock-string-face)
1767     ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face))
1768   '("\\.[aA][pP]\\'"
1769     "\\.[aA][sS][xX]\\'"
1770     "\\.[aA][sS][tT][aA][pP]\\'"
1771     "\\.[pP][sS][pP]\\'"
1772     "\\.[dD][eE][cC][kK]\\'"
1773     "\\.[gG][oO][dD][aA][tT][aA]")
1774   (list
1775    'generic-bracket-support
1776    ;; Make keywords case-insensitive
1777    (function
1778     (lambda()
1779       (setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
1780   "Generic mode for ASTAP circuit netlist files."))
1781
1782 (when (memq 'etc-modules-conf-generic-mode generic-extras-enable-list)
1783
1784 (define-generic-mode etc-modules-conf-generic-mode
1785   ;; List of comment characters
1786   '(?#)
1787   ;; List of keywords
1788   '("above"
1789     "alias"
1790     "below"
1791     "define"
1792     "depfile"
1793     "else"
1794     "elseif"
1795     "endif"
1796     "if"
1797     "include"
1798     "insmod_opt"
1799     "install"
1800     "keep"
1801     "options"
1802     "path"
1803     "generic_stringfile"
1804     "pcimapfile"
1805     "isapnpmapfile"
1806     "usbmapfile"
1807     "parportmapfile"
1808     "ieee1394mapfile"
1809     "pnpbiosmapfile"
1810     "probe"
1811     "probeall"
1812     "prune"
1813     "post-install"
1814     "post-remove"
1815     "pre-install"
1816     "pre-remove"
1817     "remove"
1818     "persistdir")
1819   ;; List of additional font-lock-expressions
1820   nil
1821   ;; List of additional automode-alist expressions
1822   '("/etc/modules.conf" "/etc/conf.modules")
1823   ;; List of set up functions to call
1824   nil))
1825
1826 (provide 'generic-x)
1827
1828 ;;; generic-x.el ends here