accomplish nothing

/bin/sh決め打ちとかそういうのを回避するために使う。こういうの、他の人も色々書いてる気がするけど。

(defvar alternate-program-table
  (make-hash-table :test 'equal))

(defmacro define-alternate-program (program alt)
  `(puthash ,program ,alt alternate-program-table))

(defun alternate-program (program)
  (gethash program alternate-program-table))

(defadvice start-process (around kludge-for-hard-coding (name buffer program &rest program-args) activate)
  (let* ((alternate (alternate-program program))
         (program (or (if (consp alternate) (car alternate) alternate) program))
         (program-args (if (consp alternate) (append (cdr alternate) program-args) program-args)))
    ad-do-it))

こういう感じに使う。

(defmacro when-windows (&rest body)
  `(if-windows (progn ,@body)))

(when-windows
  (define-alternate-program "/bin/sh" '("fakecygpty" "/bin/sh")))

Cygwin環境とfakecygptyがちゃんとあれば、term.elのansi-termとかがWindowsでもきちんと動作するように。

CygwinでビルドしたOCaml 4.00.0と、それを使ってビルドしたOCamlSpotter（bf0060bc031f）と、non-Cygwin Emacs 23.2を併用するためのkluge。CygwinでのパスとWindowsのパスの表現の違いによる問題を解決するものなので、MinGW版のOCamlならこういう設定は不要のはず。多分素直に使える。

.emacsの(require 'ocamlspot)以降に

(defun cygpath (args)
  (let* ((command (with-output-to-string
                    (princ "cygpath")
                    (mapc (lambda (x) (princ " ") (princ x)) args)))
         (result (shell-command-to-string command)))
    (replace-regexp-in-string "\n$" "" result)))

(defun ocamlspot-query-string-at-cursor ()
  (let ((file-name (cygpath `(-u ,(prin1-to-string (buffer-file-name))))))
    (setq ad-return-value
          (format "%s:l%dc%d"
                  file-name
                  (ocamlspot-lines-of-point)
                  (ocamlspot-bytes-of-line-to-point)))))

(defun ocamlspot-find-file-existing (path)
  (let ((path (cygpath `(-w ,path))))
    (if (file-exists-p path)
        (find-file-other-window path)
      (ocamlspot-message-add (format "ERROR: source file %s was not found" path))
      nil)))

で取り敢えず動くと思う。良く分からなかったりちゃんと動かなかったら諦めた方が吉。

やってて思ったけど、素直に仮想マシンにLinuxなりをインストールした方が苦労が少なそう。でもこのPCメモリそんな積んでないから厳しい。

WindowsでChicken Schemeをビルドするには、CygwinかMinGWのどちらかのgccを使う。Visual Studioはサポートされていない。MinGWを使ってビルドする場合はMSYSは必須ではないけど、いずれにせよGNU makeは必要。以下の例はCygwinを使っている場合。

makeのマクロによって、どういった感じでビルドするか設定をする仕組み。どんなオプションがあるかはREADMEに書いてある。

% tar xf chicken-4.7.0
% cd chicken-4.7.0
% make PLATFORM=cygwin
% !! install

インストールする場所を指定しないと/usr/localにインストールされる。指定する場合はmake PLATFORM=cygwin PREFIX=/opt/chicken-4.7.0といった感じでPREFIXという名前のマクロを指定する。

(setq tramp-default-method "sshx")

(require 'tramp)

(defun set-tramp-login-args (method args)
  (setcdr (assq 'tramp-login-args
                (assoc method tramp-methods))
          `(,args)))

(defun set-tramp-remote-sh (method sh)
  (setcdr (assq 'tramp-remote-sh
                (assoc method tramp-methods))
          `(,sh)))

(set-tramp-login-args "sshx" '("-e" "none" "-t" "-t" "/bin/bash --posix"))
(set-tramp-remote-sh "sshx" "/bin/bash --posix")

Emacs 23.1付属のTRAMPでは、内部構造が変わったため、ここに書いてある設定では正常に動作しない。ksh93も、HISTFILE変数を変更したときの不具合が修正されたものを、Korn Shell 93 integration/migration projectでダウンロードできる。不具合が修正されたのが2009-06-16のリリースなので、それ以降のリリースでは問題ない。