%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313#\207" [custom-declare-group bat-mode nil "Major mode for editing DOS/Windows batch files." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages custom-declare-face bat-label-face ((t :weight bold)) "Font Lock mode face used to highlight labels in batch files."] 8)
(defvar bat-font-lock-keywords '(("\\_<\\(call\\|goto\\)\\_>[ ]+%?\\([A-Za-z0-9_\\:.-]+\\)%?" (2 font-lock-constant-face t)) ("^:[^:].*" quote bat-label-face) ("\\_<\\(defined\\|set\\)\\_>[ ]*\\(\\(\\sw\\|\\s_\\)+\\)" (2 font-lock-variable-name-face)) ("%~\\([0-9]\\)" (1 font-lock-variable-name-face)) ("%\\([^%~ \n]+\\)%?" (1 font-lock-variable-name-face)) ("!\\([^!%~ \n]+\\)!?" (1 font-lock-variable-name-face)) ("%%\\(?:~[adfnpstxz]*\\(?:\\$\\(\\(?:\\sw\\|\\s_\\|_\\)+\\):\\)?\\)?\\([]!#$&-:?-[_-{}~]\\)" (1 font-lock-variable-name-face nil t) (2 font-lock-variable-name-face)) ("[ =][-/]+\\(\\w+\\)" (1 font-lock-type-face append)) ("\\_<\\(?:a\\(?:ssoc\\|t\\(?:trib\\)?\\)\\|c\\(?:d\\|ls\\|o\\(?:lor\\|py\\)\\)\\|d\\(?:ate\\|el\\|ir\\|oskey\\)\\|e\\(?:cho\\|ndlocal\\|rase\\)\\|f\\(?:c\\|ind\\(?:str\\)?\\|ormat\\|type\\)\\|label\\|m\\(?:d\\|kdir\\|o\\(?:[rv]e\\)\\)\\|net\\|p\\(?:a\\(?:th\\|use\\)\\|opd\\|rompt\\|ushd\\)\\|r\\(?:d\\|e\\(?:n\\(?:ame\\)?\\|place\\)\\|mdir\\)\\|s\\(?:et\\(?:local\\)?\\|\\(?:hif\\|or\\|ubs\\)t\\)\\|t\\(?:\\(?:i\\(?:m\\|tl\\)\\|re\\|yp\\)e\\)\\|v\\(?:er\\|ol\\)\\|xcopy\\)\\_>" . font-lock-builtin-face) ("\\_<\\(?:c\\(?:all\\|md\\)\\|d\\(?:efined\\|o\\)\\|e\\(?:lse\\|qu\\|xi\\(?:s?t\\)\\)\\|for\\|g\\(?:eq\\|oto\\|tr\\)\\|i[fn]\\|l\\(?:eq\\|ss\\)\\|n\\(?:eq\\|ot\\)\\|start\\)\\_>" . font-lock-keyword-face) ("\\_<\\(?:bash\\|c\\(?:at\\|p\\)\\|fgrep\\|grep\\|ls\\|mv\\|rm\\|s\\(?:ed\\|h\\)\\)\\_>" . font-lock-warning-face)))
(defvar bat-menu '("Bat" ["Run" bat-run :help "Run script"] ["Run with Args" bat-run-args :help "Run script with args"] "--" ["Imenu" imenu :help "Navigate with imenu"] "--" ["Template" bat-template :help "Insert template"] "--" ["Help (Command)" bat-cmd-help :help "Show help page for DOS command"]))
(defvar bat-mode-map (byte-code "\302 \303\304\304 $\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\313#\210)\207" [map bat-menu make-sparse-keymap easy-menu-do-define nil define-key [3 67108911] bat-cmd-help [3 1] bat-run-args [3 3] bat-run [3 20] bat-template [3 22]] 5))
(defvar bat-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\310#\210\302\314\310#\210\302\315\310#\210\302\316\310#\210\302\317\312#\210\302\320\312#\210)\207" [table make-syntax-table modify-syntax-entry 10 ">" 34 "\"" 126 "_" 37 "." 45 95 123 125 92 61] 4))
(defconst bat--syntax-propertize #[(start end) "b\210` W\205\" \302\303 \304#\205\" \305\224\203 \306\305\224\305\225\307\310$\210\202 \207" [start end re-search-forward "^[ ]*\\(?:\\(@?r\\)em\\_>\\|\\(?1::\\):\\).*" t 1 put-text-property syntax-table (11)] 5])
#@39 Show help for batch file command CMD.
(defalias 'bat-cmd-help #[(cmd) "\301\230\203\n \302\303!\207\302\304P!\207" [cmd "net" shell-command "net /?" "help "] 3 (#$ . 3464) "sHelp: "])
#@19 Run a batch file.
(defalias 'bat-run #[nil "\301 \210\302!\207" [buffer-file-name save-buffer shell-command] 2 (#$ . 3656) nil])
#@29 Run a batch file with ARGS.
(defalias 'bat-run-args #[(args) "\302\303 Q!\207" [buffer-file-name args shell-command " "] 4 (#$ . 3792) "sArgs: "])
#@37 Insert minimal batch file template.
(defalias 'bat-template #[nil "eb\210\300c\207" ["@echo off\nsetlocal\n\n"] 1 (#$ . 3946) nil])
(add-to-list 'auto-mode-alist '("\\.\\(bat\\|cmd\\)\\'" . bat-mode))
(defvar bat-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [bat-mode-hook variable-documentation put "Hook run after entering Bat mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bat-mode-map definition-name bat-mode] 4)
(defvar bat-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [bat-mode-abbrev-table bat-mode-map variable-documentation put purecopy "Keymap for `bat-mode'." boundp bat-mode-syntax-table definition-name bat-mode (lambda (#1=#:def-tmp-var) (defvar bat-mode-syntax-table #1#)) make-syntax-table "Syntax table for `bat-mode'." (lambda (#1#) (defvar bat-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `bat-mode'." derived-mode-parent prog-mode] 5)
#@418 Major mode for editing DOS/Windows batch files.
Start a new script from `bat-template'. Read help pages for DOS commands
with `bat-cmd-help'. Navigate between sections using `imenu'.
Run script using `bat-run' and `bat-run-args'.
\{bat-mode-map}
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `bat-mode-hook', as the final or penultimate step
during initialization.
(defalias 'bat-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324&\325\"\204V &'=\204V \326&\325'C#\210\327 !\210\330\f!\210&'\306\331!\210\332\306\333!\210\334\306\335!\210( \306\336!\210\337 \306\340!\210\341 \306\342!\210\343\")\344\345!\207" [delay-mode-hooks major-mode mode-name bat-mode-map bat-mode-syntax-table parent make-local-variable t prog-mode bat-mode "Bat" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comment-start "rem " comment-start-skip "rem[ ]+" syntax-propertize-function font-lock-defaults (bat-font-lock-keywords nil t) imenu-generic-expression ((nil "^:[^:].*" 0)) outline-regexp ":[^:]" run-mode-hooks bat-mode-hook bat-mode-abbrev-table local-abbrev-table bat--syntax-propertize] 6 (#$ . 5247) nil])
(provide 'bat-mode)
Zerion Mini Shell 1.0