mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-21 10:24:55 +00:00
166 lines
4.8 KiB
EmacsLisp
166 lines
4.8 KiB
EmacsLisp
;;; batmode.el --- Simple mode for Windows BAT files
|
|
|
|
;; Copyright (C) 1996 Free Software Foundation, Inc.
|
|
|
|
;; Author: Peter Breton <pbreton@i-kinetics.com>
|
|
;; Created: Thu Jul 25 1996
|
|
;; Keywords: BAT, DOS, Windows
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
;; Boston, MA 02111-1307, USA.
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; USAGE: Byte-compile this file, and add the following lines to your
|
|
;; emacs initialization file (.emacs/_emacs):
|
|
;;
|
|
;; (setq auto-mode-alist
|
|
;; (append
|
|
;; (list (cons "\\.[bB][aA][tT]$" 'bat-mode))
|
|
;; ;; For DOS init files
|
|
;; (list (cons "CONFIG\\." 'bat-mode))
|
|
;; (list (cons "AUTOEXEC\\." 'bat-mode))
|
|
;; auto-mode-alist))
|
|
;;
|
|
;; (autoload 'bat-mode "batmode"
|
|
;; "DOS and WIndows BAT files" t)
|
|
|
|
;; TODO:
|
|
;;
|
|
;; Support "compiles" ?
|
|
;; Imenu? Don't have real functions.....
|
|
|
|
;;; Change log:
|
|
;; $Log: batmode.el,v $
|
|
;; Revision 1.3 1996/08/22 02:31:47 peter
|
|
;; Added Usage message, credit to folks from NTEmacs mailing list,
|
|
;; Syntax table, New font-lock keywords
|
|
;;
|
|
;; Revision 1.2 1996/08/18 16:27:13 peter
|
|
;; Added preliminary global-font-lock support
|
|
;;
|
|
;; Revision 1.1 1996/08/18 16:14:18 peter
|
|
;; Initial revision
|
|
;;
|
|
|
|
;; Credit for suggestions, patches and bug-fixes:
|
|
;; Robert Brodersen <rbrodersen@siebel.com>
|
|
;; ACorreir@pervasive-sw.com (Alfred Correira)
|
|
|
|
;;; Code:
|
|
|
|
(defvar bat-mode-map nil "Local keymap for bat-mode buffers.")
|
|
|
|
;; Make this lowercase if you like
|
|
(defvar bat-mode-comment-start "REM "
|
|
"Comment string to use in BAT mode")
|
|
|
|
(defvar bat-mode-syntax-table nil
|
|
"Syntax table in use in Bat-mode buffers.")
|
|
|
|
(if bat-mode-map
|
|
nil
|
|
(setq bat-mode-map (copy-keymap global-map))
|
|
)
|
|
|
|
;; Make underscores count as words
|
|
(if bat-mode-syntax-table
|
|
()
|
|
(setq bat-mode-syntax-table (make-syntax-table))
|
|
(modify-syntax-entry ?_ "w" bat-mode-syntax-table)
|
|
)
|
|
|
|
(defun bat-mode ()
|
|
"Mode for DOS and Windows BAT files"
|
|
(interactive)
|
|
(kill-all-local-variables)
|
|
(use-local-map bat-mode-map)
|
|
(set-syntax-table bat-mode-syntax-table)
|
|
|
|
(make-local-variable 'parse-sexp-ignore-comments)
|
|
(make-local-variable 'comment-start)
|
|
(make-local-variable 'comment-start-skip)
|
|
(make-local-variable 'comment-end)
|
|
(make-local-variable 'executable-command)
|
|
(make-local-variable 'font-lock-defaults)
|
|
|
|
(setq major-mode 'bat-mode
|
|
mode-name "bat"
|
|
|
|
comment-end ""
|
|
|
|
comment-start bat-mode-comment-start
|
|
comment-start-skip "[Rr][Ee][Mm] *"
|
|
|
|
parse-sexp-ignore-comments t
|
|
|
|
)
|
|
|
|
;; Global font-lock support
|
|
;; (setq font-lock-defaults (list 'bat-font-lock-keywords nil t nil nil))
|
|
(setq font-lock-defaults (list 'bat-font-lock-keywords nil))
|
|
|
|
(run-hooks 'bat-mode-hook))
|
|
|
|
(defvar bat-font-lock-keywords
|
|
(list
|
|
;; Make this one first in the list, otherwise comments will
|
|
;; be over-written by other variables
|
|
(list "^[@ \t]*\\([rR][eE][mM].*\\)" 1 'font-lock-comment-face t)
|
|
(list "^[ \t]*\\(::-.*\\)" 1 'font-lock-comment-face t)
|
|
(list
|
|
(concat "\\(\\<"
|
|
(mapconcat 'identity
|
|
'(
|
|
"call"
|
|
"echo"
|
|
"exist"
|
|
"errorlevel"
|
|
"for"
|
|
"goto"
|
|
"if"
|
|
"not"
|
|
"path"
|
|
"pause"
|
|
"prompt"
|
|
"set"
|
|
"start"
|
|
)
|
|
"\\>\\|\\<")
|
|
"\\>\\)") 1 'font-lock-keyword-face)
|
|
(list "^[ \t]*\\(:\\sw+\\)" 1 'font-lock-function-name-face t)
|
|
(list "\\(%\\sw+%\\)" 1 'font-lock-reference-face)
|
|
(list "\\(%[0-9]\\)" 1 'font-lock-reference-face)
|
|
(list "\\(/[^/ \t\n]+\\)" 1 'font-lock-type-face)
|
|
(list "\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
|
|
'(1 font-lock-keyword-face)
|
|
'(2 font-lock-function-name-face nil t))
|
|
|
|
)
|
|
"Keywords to hilight in BAT mode")
|
|
|
|
;;; don't do it in Win-Emacs
|
|
(if (boundp 'font-lock-defaults-alist)
|
|
(add-to-list
|
|
'font-lock-defaults-alist
|
|
(cons 'bat-mode
|
|
(list 'bat-font-lock-keywords nil t nil nil))))
|
|
|
|
(provide 'bat-mode)
|
|
|
|
;;; batmode.el ends here
|