[Mew-Win32 00048] Re: mew-win32.el patch.

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

>>> In article <19971222232223U.shuuic-k at example.com>,
>>>    Shuichi Kitaguchi <shuuic-k at example.com> writes:

  shuuic-k> 祝、絣が取れたよ記念  ということで、mw32script 対応化パッチです。
  shuuic-k> 動作に変更はないですが。

mw32script-initの中で(define-process-argument-editing ...)してるので、
mew-win32.elからは必要ないですよ。
パターン".*"で定義されるのを避けるのであれば、
  (mw32script-init)
の代わりに
  (mw32script-make-pathext-regexp)
が適当だと思います。

あ、それから、mw32scriptは一応Mule for Win32にも対応しているつもりです。
＃が、試していませんので、誰か試しません? ^^;;;
＃＃当然Meadow拡張機能は使えませんけど。 :p


  shuuic-k> # meadow-develop な人向けです。

んじゃ、ここにも送ってしまいましょう。 ^^;;;
meadow-developでの最新と同じものです。
＃meadow-developに入っている方、ごめんなさい。

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
-------------- next part --------------
;;; mw32script.el
;;; Author: yamagus at example.com (YAMAGUCHI, Shuhei)
;;; Modified by H.Miyashita.
;;; Version 1.1p1 (Dec 22, 1997)
;;;
;;; [USAGE]
;;; Add the following in your .emacs:
;;;  (require 'mw32script)
;;;  (mw32script-init)

(defconst mw32script-version "Win32 Script version 1.1p1")
;; begin --- options
(defvar mw32script-argument-editing-alist
  '(("/sh$" . "sh.exe")
    ("/bash$" . "bash.exe")
    ("/perl$" . "perl.exe")
    ("/t?csh$" . "tcsh.exe"))
  "Association list of script interpreter.")

(defvar mw32script-pathext '(".com" ".exe" ".bat" ".cmd")
  "Extention list of executables.")

(defvar mw32script-resolve-script t
  "If non-nil, mw32script-argument-editing-function
resolve the script association.")

(defvar mw32script-resolve-extention (fboundp 'Meadow-version)
  "If non-nil, mw32script-argument-editing-function
resolve the filename association.
This only works with Meadow version Alpha-3.00 or later.")

(defvar mw32script-recursive nil)
;; end --- options
(defvar mw32script-bufsiz 256)
(defvar mw32script-buffer-tmp " *mw32script*")
(defvar mw32script-pathext-regexp nil)

(defun mw32script-make-pathext-regexp ()
  (setq mw32script-pathext-regexp
	(concat "\\("
		(mapconcat
		 (lambda (x) (regexp-quote x))
		 mw32script-pathext "\\|")
		"\\)$")))

(defun mw32script-openp (command-name)
  "Locate the full path name of external-command COMMAND-NAME."
  (interactive "sExternal-command: ")
  (catch 'tag
    (let (path)
      (if (file-name-absolute-p command-name)
	  (if (and (file-executable-p command-name)
		   (null (file-directory-p command-name)))
	      (throw 'tag command-name)
	    (mapcar
	     (lambda (suf)
	       (setq path (expand-file-name (concat command-name suf)))
	       (and (file-executable-p path)
		    (null (file-directory-p path))
		    (throw 'tag path)))
	     (if (null mw32script-pathext)
		 '("")
	       mw32script-pathext)))
	(mapcar
	 (lambda (dir)
	   (mapcar
	    (lambda (suf)
	      (setq path (expand-file-name (concat command-name suf) dir))
	      (and (file-executable-p path)
		   (null (file-directory-p path))
		   (throw 'tag path)))
	    (if (null mw32script-pathext)
		'("")
	      (append (list "") mw32script-pathext))))
	 exec-path))) nil))


(defun mw32script-resolve-script (path &optional directory)
  "Find executable path that interprets the script specified PATH.
Return value is a list of arguments, and car of the list is argv[0].
The optional argument DIRECTORY specify the default directory.
If the object executable is not found, return nil."
  (interactive "fScript: ")
  (setq path
	(expand-file-name
	 (if directory
	     (concat (file-name-as-directory directory) path)
	   path)))
  (let ((buf (generate-new-buffer mw32script-buffer-tmp))
	limit args)
    (unwind-protect
	(save-excursion
	  (set-buffer buf)
	  (condition-case nil
	      (progn
		(insert-file-contents path nil 0 mw32script-bufsiz)
		(goto-line 2)
		(setq limit (point))
		(goto-char 1)
		(if (re-search-forward
 		     "\\`#![ \t]*\\([^ \t\n]+\\)[ \t]*" limit t)
		    (while
			(progn
			  (setq args
				(nconc args
				       (list
					(buffer-substring (match-beginning 1)
							  (match-end 1)))))
			  (re-search-forward "\\([^ \t\n]+\\)[ \t]*"
					     limit t))))
		args)
	    (file-error nil)))
      (kill-buffer buf))))


(defun mw32script-resolve-extention (path &optional directory)
  "Find executable path that associated with filename specified PATH.
Return value is a list of arguments, and car of the list is argv[0].
The optional argument DIRECTORY specify the default directory.
If the object executable is not found, return 'notfound."
  (interactive "fFile: ")
  (setq path
	(expand-file-name
	 (if directory
	     (concat (file-name-as-directory directory) path)
	   path)))
  (let (executable)
    (condition-case nil
	(progn
	  (setq executable (w32-find-executable path))
	  (if (eq executable 'notfound)
	      executable
	    (list executable)))
      (error nil))))


(defun mw32script-argument-editing-function (argument)
  "Resolv the script/filename association,
and do the argument editiong."
  (let ((argv0 (car argument)) sargs func ret)
    (if (string-match mw32script-pathext-regexp argv0)
	(funcall default-process-argument-editing-function argument)
      (and mw32script-resolve-extention
	   (setq sargs (mw32script-resolve-extention argv0)))
      (and mw32script-resolve-script
	   (or (not sargs) (eq sargs 'notfound))
	   (setq sargs (mw32script-resolve-script argv0)))
      (if (and sargs (not (eq sargs 'notfound)))
	  (progn
	    (setq argv0 (car sargs))
	    (catch 'tag
	      (mapcar
	       (lambda (pat)
		 (and (string-match (car pat) argv0)
		      (setq argv0 (mw32script-openp (cdr pat)))
		      (throw 'tag t)))
	       mw32script-argument-editing-alist))
	    (and (eq (setq func (find-process-argument-editing-function argv0))
		     (function mw32script-argument-editing-function))
		 (not mw32script-recursive)
		 (setq func default-process-argument-editing-function))
	    (if (consp (setq ret (funcall
				  func
				  (append (list argv0) (cdr sargs) argument))))
		ret
	      (cons argv0 ret)))
	(funcall default-process-argument-editing-function argument)))))

(defun mw32script-init ()
  (interactive)
  (mw32script-make-pathext-regexp)
  (define-process-argument-editing
    ".*"
    'mw32script-argument-editing-function 'last))

(provide 'mw32script)