lisp/batmode.el

   1 ;;; batmode.el --- Simple mode for Windows BAT files
   2
   3 ;; Copyright (C) 1996 Free Software Foundation, Inc.
   4
   5 ;; Author: Peter Breton <pbreton@i-kinetics.com>
   6 ;; Created: Thu Jul 25 1996
   7 ;; Keywords: BAT, DOS, Windows
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Commentary:
  27 ;;
  28 ;; USAGE: Byte-compile this file, and add the following lines to your
  29 ;;   emacs initialization file (.emacs/_emacs):
  30 ;;
  31 ;; (setq auto-mode-alist
  32 ;;       (append
  33 ;;        (list (cons "\\.[bB][aA][tT]$" 'bat-mode))
  34 ;;        ;; For DOS init files
  35 ;;        (list (cons "CONFIG\\."   'bat-mode))
  36 ;;        (list (cons "AUTOEXEC\\." 'bat-mode))
  37 ;;        auto-mode-alist))
  38 ;;
  39 ;;   (autoload 'bat-mode "batmode"
  40 ;;      "DOS and WIndows BAT files" t)
  41
  42 ;; TODO:
  43 ;;
  44 ;; Support "compiles" ?
  45 ;; Imenu? Don't have real functions.....
  46
  47 ;;; Change log:
  48 ;; $Log: batmode.el,v $
  49 ;; Revision 1.3  1996/08/22 02:31:47  peter
  50 ;; Added Usage message, credit to folks from NTEmacs mailing list,
  51 ;; Syntax table, New font-lock keywords
  52 ;;
  53 ;; Revision 1.2  1996/08/18 16:27:13  peter
  54 ;; Added preliminary global-font-lock support
  55 ;;
  56 ;; Revision 1.1  1996/08/18 16:14:18  peter
  57 ;; Initial revision
  58 ;;
  59
  60 ;; Credit for suggestions, patches and bug-fixes:
  61 ;;   Robert Brodersen <rbrodersen@siebel.com>
  62 ;;   ACorreir@pervasive-sw.com (Alfred Correira)
  63
  64 ;;; Code:
  65
  66 (defvar bat-mode-map nil "Local keymap for bat-mode buffers.")
  67
  68 ;; Make this lowercase if you like
  69 (defvar bat-mode-comment-start "REM "
  70   "Comment string to use in BAT mode")
  71
  72 (defvar bat-mode-syntax-table nil
  73   "Syntax table in use in Bat-mode buffers.")
  74
  75 (if bat-mode-map
  76     nil
  77   (setq bat-mode-map (copy-keymap global-map))
  78 )
  79
  80 ;; Make underscores count as words
  81 (if bat-mode-syntax-table
  82     ()
  83   (setq bat-mode-syntax-table (make-syntax-table))
  84   (modify-syntax-entry ?_  "w"  bat-mode-syntax-table)
  85 )
  86
  87 (defun bat-mode ()
  88   "Mode for DOS and Windows BAT files"
  89   (interactive)
  90   (kill-all-local-variables)
  91   (use-local-map             bat-mode-map)
  92   (set-syntax-table          bat-mode-syntax-table)
  93
  94   (make-local-variable       'parse-sexp-ignore-comments)
  95   (make-local-variable       'comment-start)
  96   (make-local-variable       'comment-start-skip)
  97   (make-local-variable       'comment-end)
  98   (make-local-variable       'executable-command)
  99   (make-local-variable       'font-lock-defaults)
 100
 101   (setq major-mode          'bat-mode
 102         mode-name           "bat"
 103
 104         comment-end         ""
 105
 106        comment-start       bat-mode-comment-start
 107        comment-start-skip  "[Rr][Ee][Mm] *"
 108
 109        parse-sexp-ignore-comments t
 110
 111        )
 112
 113   ;; Global font-lock support
 114   ;; (setq font-lock-defaults (list 'bat-font-lock-keywords nil t nil nil))
 115   (setq font-lock-defaults (list 'bat-font-lock-keywords nil))
 116
 117   (run-hooks 'bat-mode-hook))
 118
 119 (defvar bat-font-lock-keywords
 120   (list
 121    ;; Make this one first in the list, otherwise comments will
 122    ;; be over-written by other variables
 123     (list "^[@ \t]*\\([rR][eE][mM].*\\)" 1 'font-lock-comment-face t)
 124     (list "^[ \t]*\\(::-.*\\)"           1 'font-lock-comment-face t)
 125     (list
 126      (concat "\\(\\<"
 127       (mapconcat 'identity
 128                  '(
 129                    "call"
 130                    "echo"
 131                    "exist"
 132                    "errorlevel"
 133                    "for"
 134                    "goto"
 135                    "if"
 136                    "not"
 137                    "path"
 138                    "pause"
 139                    "prompt"
 140                    "set"
 141                    "start"
 142                   )
 143                  "\\>\\|\\<")
 144              "\\>\\)") 1 'font-lock-keyword-face)
 145         (list "^[ \t]*\\(:\\sw+\\)"      1 'font-lock-function-name-face t)
 146         (list "\\(%\\sw+%\\)"            1 'font-lock-reference-face)
 147         (list "\\(%[0-9]\\)"             1 'font-lock-reference-face)
 148         (list "\\(/[^/ \t\n]+\\)"        1 'font-lock-type-face)
 149         (list "\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
 150               '(1 font-lock-keyword-face)
 151               '(2 font-lock-function-name-face nil t))
 152
 153   )
 154   "Keywords to hilight in BAT mode")
 155
 156 ;;; don't do it in Win-Emacs
 157 (if (boundp 'font-lock-defaults-alist)
 158     (add-to-list
 159      'font-lock-defaults-alist
 160      (cons 'bat-mode
 161            (list 'bat-font-lock-keywords nil t nil nil))))
 162
 163 (provide 'bat-mode)
 164
 165 ;;; batmode.el ends here