コミット: 1e3810ca8a0a7246a8bce574ad53167764c4b561 - cmd_mode (git)

cmd-modeはMS-DOSのバッチファイル(拡張子が.bat)や、Windows NT コマンドスクリプトファイル(拡張子が.cmd)等を編集する為の、Emacsのメジャーモードです。

コミットメタ情報

• リビジョン: 1e3810ca8a0a7246a8bce574ad53167764c4b561 (tree)
• 日時: 2001-08-28 22:14:43
• 作者: tfuruka1 <tfuruka1>
• コミッター: tfuruka1

ログメッセージ

Initial revision

変更サマリ

• add: cmd-mode.el

差分

--- /dev/null
+++ b/cmd-mode.el
@@ -0,0 +1,418 @@
+;; -*- Mode: Emacs-Lisp ; coding: sjis-dos -*-
+;;
+;; Copyright 2001 by Tadamegu Furukawa.[[e-mail]]
+;;
+;; MS-DOSのバッチファイル及びWindows NTのコマンドスクリプトを編集する
+;; 為のへなちょこモードです。%が沢山あって、何がなんだかわからないバッ
+;; チファイルを読み易くする目的で作成したので、基本的にfont-lock以外の
+;; 機能は殆どありません。しかもemacs 20.7 "Meadow-1.14 (AWSAKA:62)" で
+;; しか試していません(これ以外で使用される事を想定していません)。
+;;
+;; .emacsの何処かに以下を追加してください。拡張子がcmd又はbatのファイ
+;; ルを開くと自動でcmd-modeになります。
+;;
+;;    (autoload 'cmd-mode "cmd-mode" "CMD mode." t)
+;;    (setq auto-mode-alist (append '(("\\.\\(cmd\\|bat\\)$" . cmd-mode))
+;;                                  auto-mode-alist))
+;;
+;;
+;; $Id: cmd-mode.el,v 1.1 2001/08/28 13:14:43 tfuruka1 Exp $
+;; $Log: cmd-mode.el,v $
+;; Revision 1.1  2001/08/28 13:14:43  tfuruka1
+;; Initial revision
+;;
+
+;; (replace-regexp "[\t ]+$" "")
+
+(defconst cmd-mode-revision-number "$Revision: 1.1 $" "cmd-modeのRevision")
+
+;;; *** hook
+(defvar cmd-mode-hook nil
+  "cmd-modeを作成するタイミングで呼ばれる hook です。")
+(defvar cmd-help-mode-hook nil
+  "cmd-help-modeを作成するタイミングで呼ばれる hook です。")
+
+;;; *** 外部コマンド
+(defvar cmd-help-command "help"
+  "helpコマンドのコマンド名。Windows NT系以外には存在しません。")
+
+;;; *** buffer関係
+(defvar cmd-temp-buf " *cmd-temp-buf*" "作業用の隠しバッファ")
+(defvar cmd-help-buf-base-name "*cmd-help " "ヘルプバッファのベース名")
+
+;;; *** regexp
+(defvar cmd-full-size-space-etc-pattern "\\(　+\\)"
+  "所謂「全角の空白」の正規表現")
+(defvar cmd-tab-pattern "\\(\t+\\)" "TAB文字の正規表現")
+(defvar cmd-comment-pattern "^[ \t]*\\(@*\\)\\(rem\\)\\([\t ].*$\\|$\\)"
+  "コメント行の正規表現")
+(defvar cmd-variable-pattern
+  (concat "\\(%\\("                     ;最初の文字が%
+          "\\*\\|"                      ;%* の場合
+          "~[^0-9 \n]+[0-9a-z]\\|"      ;~f1 等
+          "[^%\n　-龠]+%\\|"            ;通常の環境変数
+          "[0-9a-z]\\b\\|"              ;%1 等
+          "%[0-9a-z]?"                  ;%% 等
+          "\\)\\)")
+  "環境変数の展開の正規表現
+
+想定しているパターンは以下の通りです。
+
+例            意味
+-----------   -----------------------
+%*            すべての引数を参照する
+%~fi, %~dp1   バッチパラメータ(%n)及びFOR変数参照の置換
+%文字列%      通常の環境変数の参照
+%1, %i        バッチパラメータ(%n)及びFOR変数参照
+%%, %%1, %%i  %そのもの、バッチパラメータ(%n)及びFOR変数参照（バッチ
+              ファイル内で使用した場合）")
+(defvar cmd-const-pattern
+  "\\(^[ \t]*@\\|nul\\|:eof\\|&&\\||\\|\\^\\|&[12]?\\|[,;]\\)"
+  "条件付き処理記号等の正規表現")
+(defvar cmd-set-pattern
+  (concat "\\b"
+          "\\(set\\b\\)\\([ \t]+/a\\)*"
+          "\\(\\([ \t]+[_A-Za-z-][_A-Za-z0-9-]*\\)*\\)"
+          "\\(-\\|\\W\\)*")
+  "SETコマンドの正規表現")
+(defvar cmd-label-pattern "^[ \t]*\\(:[:A-Za-z0-9_-]+\\)"
+  "ラベルの正規表現")
+(defvar cmd-redirect-pattern
+  (concat "\\("
+          "[12]?>>?\\|"                 ;1> 2> 1>> 2>> > >>
+          "<[12]?"                      ;<1 <2 <
+          "\\)")
+  "リダイレクトの正規表現")
+(defvar cmd-option-pattern
+  (concat "\\b"
+          (regexp-opt
+           '(
+             ;; if
+             "not" "exist" "defined" "errorlevel" "cmdextversion"
+             "equ" "neq" "lss" "leq" "gtr" "geq"
+             ;; for
+             "eol" "skip" "delims" "tokens" "in" "do") t) "\\b")
+  "IF文等のオプションの正規表現")
+(defvar cmd-command-pattern
+  (concat "\\b"
+          (regexp-opt '("assoc" "break" "call" "cd" "chdir" "cls"
+                        "color" "copy" "date" "del" "dir" "echo"
+                        "echo." "endlocal" "erase" "exit" "for"
+                        "ftype" "goto" "if" "md" "mkdir" "move" "path"
+                        "pause" "popd" "prompt" "pushd" "rd" "ren"
+                        "rename" "rmdir" "setlocal" "shift" "start"
+                        "time" "title" "type" "ver" "verify" "vol" )
+                      t) "\\b")
+  "コマンドの正規表現
+
+コマンドは内部コマンドのみです。Windows NTのHELPコマンドで一覧表示され
+るコマンドから、外部コマンド(*.exe, *.com)を除いたものです。但し、SET
+と REM は他で定義していますので、ここでは除いています。また、ECHO は
+ECHO. も含めています")
+
+;; font-lockの設定
+(defvar cmd-font-lock-keywords
+  (list
+   ;; コメント
+   (list cmd-comment-pattern
+         '(1 font-lock-constant-face)   ;行頭の@
+         '(2 font-lock-keyword-face)    ;rem
+         '(3 font-lock-comment-face)    ;コメント文字
+         )
+   ;; ラベル
+   (list cmd-label-pattern
+         '(1 (cons font-lock-function-name-face '(underline))))
+   ;; リダイレクト記号
+   (list cmd-redirect-pattern 1 font-lock-warning-face)
+   ;; 環境変数の参照
+   (list cmd-variable-pattern 1 font-lock-variable-name-face)
+   ;; 内部コマンド
+   (list cmd-command-pattern 1 font-lock-keyword-face)
+   ;; SET
+   (list cmd-set-pattern
+         '(1 font-lock-keyword-face)    ;SET
+         '(3 font-lock-type-face)       ;環境変数名
+         )
+   ;;条件付き処理記号等
+   (list cmd-const-pattern 1 font-lock-constant-face)
+   ;; IF文とFOR文のオプション等
+   (list cmd-option-pattern 1 font-lock-builtin-face)
+   ;; 全角スペース
+   (list cmd-full-size-space-etc-pattern '(1 '(underline)))
+   ;; TAB文字
+   (list cmd-tab-pattern '(1 '(highlight)))
+   )
+  "cmd-mode, cmd-help-modeで使用するfont-lockの設定です。
+詳細はfont-lock-defaultsを参照してください。")
+
+(defun cmd-mode-version ()
+  "cmd-modeのVersion表示"
+  (interactive)
+  (message
+   (concat "cmd-mode " cmd-mode-revision-number)))
+
+(defun cmd-help (arg)
+  "helpコマンドを実行して、結果を表示します。
+この関数は、Windows NT系以外では、動作しません。
+
+※Windows \\(9[58]\\|Me\\)でも動作するように作ったつもりだったんですが、
+見事に動作しません。
+"
+  (interactive
+   (list (let* ((command (current-word))
+                (input (read-string
+                        (format "コマンド%s: "
+                                (if (string-equal command "")
+                                    ""
+                                  (format "(%s)" command))))))
+                (if (string-equal input "")
+                    (if (string-equal command "")
+                        "help"
+                      command)
+                  input))))
+
+  (let* ((case-fold-search t)
+        (cmd-help-buffer (format "%s%s*"
+                                 cmd-help-buf-base-name (downcase arg)))
+        (comspec (getenv "ComSpec"))
+        (cmd-help-arg
+         (cond
+          ((string-match "cmd\\.exe$" comspec)
+           (list "\\/c" cmd-help-command
+                 (if (string-equal arg "help") "" arg)))
+          ((string-match "command\\.com$" comspec)
+           (if (string-equal arg "help")
+               (error "コマンドを入力してください")
+             (list "\\/c" arg "\\/?")))
+          (t
+           (error (concat "WindowsXX以外では動作しません ComSpec=" comspec)))))
+        )
+    (set-buffer (get-buffer-create cmd-help-buffer))
+    (setq buffer-read-only nil)
+    (erase-buffer)
+    (apply (function call-process) comspec nil t nil cmd-help-arg)
+    (goto-char (point-min))
+    (display-buffer cmd-help-buffer)
+    (cmd-help-mode)
+    )
+  )
+(defun cmd-help-mode-exit ()
+  "cmd-help-modeを終了します。"
+  (interactive)
+  (if (eq major-mode 'cmd-help-mode)
+      (kill-buffer (current-buffer)))
+  )
+
+(defun cmd-help-mode ()
+  "cmd-helpから呼び出されます。
+
+●ヘルプコマンドを実行し、結果を表示します。
+  \\[cmd-help]
+
+●cmd-help-modeを終了します。
+  \\[cmd-help-mode-exit]
+"
+  (interactive)
+  (kill-all-local-variables)
+  ;;モード名の設定と、モードラインのモード名フィールドの設定
+  (setq major-mode 'cmd-help-mode
+        mode-name "cmd-help"
+        buffer-auto-save-file-name nil  ;自動保存しない
+        buffer-read-only t              ;読み込み専用
+        )
+  ;; キーマップの設定
+  (setq cmd-help-local-map (make-keymap))
+  ;; キーの割り当て
+  (define-key cmd-help-local-map "\C-ch" 'cmd-help)
+  (define-key cmd-help-local-map "\C-m" 'cmd-help)
+  (define-key cmd-help-local-map " " 'cmd-help)
+  (define-key cmd-help-local-map "q" 'cmd-help-mode-exit)
+  (define-key cmd-help-local-map "Q" 'cmd-help-mode-exit)
+  (define-key cmd-help-local-map "n" 'next-line)
+  (define-key cmd-help-local-map "p" 'previous-line)
+
+  (use-local-map cmd-help-local-map)    ; ローカルマップの使用宣言
+
+  ;; お化粧の設定
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults
+        '((cmd-font-lock-keywords) t t))
+  (font-lock-mode t)
+
+  (run-hooks 'cmd-help-mode-hook)
+  )
+
+(defun cmd-right-trim-region (start end)
+  "リージョンで指定された範囲の行末の空白文字を削除します。"
+  (interactive "r")
+  (save-excursion
+    (goto-char start)
+    (while (re-search-forward "[\t ]+$" end t)
+      (replace-match ""))))
+
+(defun cmd-exec ()
+  "バッファの内容を（必要であれば）ファイルに保存し、保存したファイル
+を実行する。かなり手抜きをしています。"
+  (interactive)
+  (save-buffer)
+  (shell-command (buffer-file-name))
+  )
+
+(defun cmd-recenter ()
+  "カレント位置を中央に配置した後、余分な行末のスペースを削除する"
+  (interactive)
+  (recenter)
+  (cmd-right-trim-region (point-min) (point-max)))
+
+(defun cmd-next-label ()
+  "次のラベルへ跳ぶ"
+  (interactive)
+  (if (re-search-forward cmd-label-pattern nil t)
+      (goto-char (match-end 0))))
+(defun cmd-prev-label ()
+  "前のラベルへ跳ぶ"
+  (interactive)
+  (if (re-search-backward cmd-label-pattern nil t)
+      (goto-char (match-beginning 0))))
+
+(defun cmd-fill-paragraph ()
+  "コメント行等の行詰めを行います。かなり手抜きをしています(こんな事を
+して良いのだろうか)。"
+  (interactive)
+  (save-excursion
+    (let ((case-fold-search t)            ;大文字・小文字を区別しない
+          (cmd-rem-regexp
+           "\\([\t ]*@?\\(rem\\|echo\\)\\)\\([ \t].*$\\|$\\)")
+          rem-begin
+          rem-end
+          rem-paragraph
+          match-str
+          (cmd-fill-column fill-column)
+          (current-buffer (buffer-name))
+          )
+      (beginning-of-line)
+      (if (looking-at cmd-rem-regexp)
+          (progn
+            (setq match-str (buffer-substring
+                             (match-beginning 1) (match-end 1))
+                  rem-begin (point))
+            (message "cmd-fill-paragraph【%s】" match-str)
+            (while (not (bobp))
+              (forward-line -1)
+              (if (looking-at (concat match-str "\\([\t ]\\|$\\)"))
+                  (setq rem-begin (point))
+                (goto-char (point-min))))
+
+            (goto-char rem-begin)
+            (setq cmd-rem-regexp
+                  (concat "\\("
+                          "\\(^" match-str "[^\n]*\n\\)+"
+                          "\\(^" match-str "[^\n]*\\)?\\|"
+                          "^" match-str ".*$\\)"))
+            (if (looking-at cmd-rem-regexp)
+                (progn
+                  (setq rem-end (match-end 0)
+                        rem-paragraph (buffer-substring rem-begin rem-end))
+                  (set-buffer (get-buffer-create cmd-temp-buf))
+                  (erase-buffer)
+                  (insert rem-paragraph)
+                  (indented-text-mode)
+
+                  (goto-char (point-min))
+                  (while (re-search-forward
+                          (concat "^" match-str " ?") nil t)
+                    (replace-match ""))
+
+                  (setq fill-column (- cmd-fill-column (length match-str)))
+                  (goto-char (point-min))
+                  (while (not (eobp))
+                    (fill-paragraph nil)
+                    (forward-paragraph))
+
+                  (goto-char (point-min))
+                  (while (not (eobp))
+                    (beginning-of-line)
+                    (insert (concat match-str
+                                    (if (looking-at "$") "" " ")))
+                    (beginning-of-line)
+                    (if (looking-at "[ \t]*@?echo$")
+                        (progn
+                          (end-of-line);
+                          (insert ".")))
+                    (forward-line 1))
+
+                  (goto-char (point-max))
+                  (beginning-of-line)
+                  (if (looking-at (concat match-str "$"))
+                      (replace-match ""))
+
+                  (cmd-right-trim-region (point-min) (point-max))
+
+                  (setq rem-paragraph
+                        (buffer-substring (point-min) (point-max)))
+                  (kill-buffer cmd-temp-buf)
+                  (set-buffer current-buffer)
+                  (delete-region rem-begin rem-end)
+                  (insert rem-paragraph)
+                  (message "done.")
+              )
+              (progn
+                (ding)
+                (error "cmd-fill-paragraph【バグでしょう】")))
+            )
+        (message "cmd-fill-paragraph: 行頭が REM 又は ECHO ではありません")
+        )
+      )
+    )
+  )
+
+(defun cmd-mode ()
+  "MS-DOSのバッチファイルやWindows NT のコマンドスクリプトファイルを編
+集する為のへなちゃこもーどです。
+
+●バッファを保存後、保存したファイルを実行する
+  \\[cmd-exec]
+
+●コマンドのヘルプを表示する。
+  \\[cmd-help]
+
+●現在のカーソル位置を画面の中央に配置し、行末の余分な空白文字を削除
+  する。
+  \\[cmd-recenter]
+
+●コメント行等(REM or ECHO)の行詰めを行なう。
+  \\[cmd-fill-paragraph]
+
+●前のラベルへ
+  \\[cmd-prev-label]
+
+●次のラベルへ
+  \\[cmd-next-label]
+"
+  (interactive)
+  (kill-all-local-variables)
+  ;;モード名の設定と、モードラインのモード名フィールドの設定
+  (setq major-mode 'cmd-mode
+        mode-name "CMDとBAT")
+  ;; キーマップの設定
+  (setq cmd-local-map (make-keymap))
+  ;; キーの割り当て
+  (define-key cmd-local-map "\C-c\C-c" 'cmd-exec)
+  (define-key cmd-local-map "\C-ch" 'cmd-help)
+  (define-key cmd-local-map "\C-l" 'cmd-recenter)
+  (define-key cmd-local-map "\eq" 'cmd-fill-paragraph)
+  (define-key cmd-local-map "\e\C-a" 'cmd-prev-label)
+  (define-key cmd-local-map "\e\C-e" 'cmd-next-label)
+
+  (use-local-map cmd-local-map)         ; ローカルマップの使用宣言
+
+  ;; font-lockの設定
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults
+        '((cmd-font-lock-keywords) t t))
+  (font-lock-mode t)
+
+  (run-hooks 'cmd-mode-hook)
+)
+
+;; end here.