Emacs Lisp: Function to Copy/Delete a Dir Recursively (fixed)

[2010-06-02 Addendum: this issue is fixed in emacs 23.2, released on 2010-05-08. Specifically, emacs 23.2 has “copy-directory”, and recursive option is added to “delete-directory”.]

There lacks a function to copy and delete directories recursively.

in the elisp manual, the closest is: Create/Delete Dirs (ELISP Manual)

it would be good to have a function that copy a whole dir, and another for deleting whole dir.

Emacs does implement them in dired, or in eshell, apparently, but it's not easy to use them.

many scripting languages provide such functions, and is very convenient.

for deleting dir, perhaps this can be implemented:

(delete-directory dirname &optional recursive)

for copying dir, perhaps it can be modeled on copy-file:

(copy-file oldname newname &optional ok-if-exists time)

these should be perhaps few hours to implement for elisp developers, perhaps by just pulling existing implementation from dired or eshell.

Once implemented, they'd be standard functions in elisp manual. They would be great convenience for average elisp coders.

As a personal example, i needed to both copy dir recursively and also delete whole dir, in my use of elisp as a text processing lang. So far i've been just calling shell. Example:

(shell-command (concat "cp -R " fromDir " " toDir))
(shell-command (concat "find " destDir " -type d -name \"xx*\" -exec rm -R {} \\;"))

My script worked well in the past 2 years, but relying on unix shell has many complications. For example, recently i need my script to work on Windows. With Windows, there are many complications. For example, which unix shell you use, is it Cygwin, MSYS, their config, their path env var config in emacs, both are inter-related to which emacs distribution one is using (example: what shell runs when you do M-x shell). Then, recently in one emacs distro i'm trying out eshell (in hope that it perhaps more cross-platform than M-x shell or Lennart emacsW23's shell, cmd-shell, msys-shell), but discovered that eshell chocks on this standard Bash syntax:

find -name "*el" -exec rm {} \;

(reported in bug#4406. Doesn't work when called as shell-command neither. The solution is to replace \; with ';')

In short, something trivial turns out to be 5 or more hours to trying to get it work.

emacs + elisp is a great text processing lang, and one big advantage is that it is cross platform. So, all things considered, i think the suggestion in this report is a very good one, in particular its ratio of impact/ease-to-implement is relatively high.

if i eventually got a solution from looking into dired or eshell for copying/deleting dir, i'll update this report with code for draft implementation.

Thanks.

PS: this suggestion is reported to FSF as bug#4408, bug#4416.

Draft Implementation

Here's is a draft implementation. Tested and used to replace my elisp scripts that relied on unix cp.

(defun copy-directory-recursive (source-dir dest-dir)
  "Copy a whole directory SOURCE-DIR to DEST-DIR.
Note, the semantics of source-dir dest-dir is different from the
unix “cp” utility.  In unix's “cp -R”, if dest-dir exists, it'll
copy source-dir itself, else, just source-dir's children.

In copy-directory-recursive, it always copy source-dir's children.

In both, the dest-dir may or may not exist. If not, it'll be
created. However, dest-dir's parent must exist.

This function is based on dired-copy-file-recursive.  Behavior
about linked files, time stamp, etc, are from that function.

WARNING: when copying to a existing dir with existing files, old
files does not seem to get over-written.  This is a major
bug… needs research.  Do not use this function."

  (require 'dired-aux)
  (dired-copy-file-recursive source-dir dest-dir nil nil nil 'always)
  )