New functions chmod-rec and chown-rec.

* lisplib.c (copy_file_set_entries): Add chown-rec and
chmod-rec to list of symbols that trigger auto-load of
copy-file.tl.

* share/txr/stdlib/copy-file.tl (chmod-rec, chown-rec): Neew
functions.

* txr.1: Documented.

1 files changed, 29 insertions, 0 deletions

diff --git a/share/txr/stdlib/copy-file.tl b/share/txr/stdlib/copy-file.tl
index 4f3eabb5..52125fd4 100755
--- a/share/txr/stdlib/copy-file.tl
+++ b/share/txr/stdlib/copy-file.tl
@@ -183,5 +183,34 @@
              (retry `retry copying @path` (exc . args)))))
        (logior ftw-phys ftw-depth)))
 
+(defun chmod-rec (path perm)
+  (ftw path
+       (lambda (path type stat . rest)
+         (while t
+           (catch**
+             (return
+               (caseql* type
+                 ((ftw-dnr ftw-ns) (error "~s: unable to access ~s"
+                                          'remove-rec path))
+                 (ftw-sl)
+                 (t (chmod path perm))))
+             (skip `skip chmod @path` (exc . args) (return))
+             (retry `retry chmod @path` (exc . args)))))
+       (logior ftw-phys)))
+
+(defun chown-rec (path uid gid)
+  (ftw path
+       (lambda (path type stat . rest)
+         (while t
+           (catch**
+             (return
+               (caseql* type
+                 ((ftw-dnr ftw-ns) (error "~s: unable to access ~s"
+                                          'remove-rec path))
+                 (t (lchown path uid gid))))
+             (skip `skip chown @path` (exc . args) (return))
+             (retry `retry chown @path` (exc . args)))))
+       (logior ftw-phys)))
+
 (eval-only
   (merge-delete-package 'sys))