[xyzzy:07728] Re: ローカル設定での背景色 ＆ ファイラーのコピー

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

yanagiura さん、こんにちは。

	2001年11月3日(土)[23:12:11]の、
	[xyzzy:07725] Re: ローカル設定での背景色　＆　ファイラーのコピー
	への返事です。

| file-copy-1　とか　filer-do-copy　あたりを　コピーして
| 編集して使うみたいな感じになるのでしょうか？

たぶんこんな感じ。もともとファイラから使うことしか考え
ていないので、柔軟性はあまりありません。変な引数を渡し
た場合は、変な動作をします。

(let (;; コピー元ファイル(ディレクトリ)のリスト
      (from-files '("c:/foo/bar/baz/"))
      ;; コピー先ディレクトリ
      (to-dir "d:/qux/")
      ;; コピー元の基準ディレクトリ
      ;;   "c:/foo/bar/" なら "c:/qux/baz/" へコピー
      ;;   "c:/foo/" なら "c:/qux/bar/baz/" へコピー
      (base-dir "c:/foo/bar/"))
  (let ((ed::if-exists :newer)
	(ed::if-access-denied :error))
    (declare (special ed::if-exists ed::if-access-denied))
    (ed::filer-do-copy from-files to-dir (length base-dir))))

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx