diff options
Diffstat (limited to 'src/property/file.lisp')
-rw-r--r-- | src/property/file.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index c49a703..7136db9 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -125,6 +125,18 @@ Uses CL-PPCRE:REGEX-REPLACE, which see for the syntax of REPLACE." ;; assume it was already there :no-change)) +(defprop containing-directory-exists :posix (file) + "Ensure that a file's directory and the latter's parents exist." + (:desc #?"Directory containing ${file} exists") + (:apply + (if (pathname-name file) + (let ((parent (unix-namestring (pathname-directory-pathname file)))) + (when (plusp (length parent)) + (mrun "mkdir" "-p" parent))) + (mrun "mkdir" "-p" (pathname-parent-directory-pathname file))) + ;; likewise assume it was already there + :no-change)) + ;; readlink(1) is not POSIX (defun remote-link-target (symlink) (loop with s = (stripln (run :env '(:LOCALE "POSIX") "ls" "-ld" symlink)) |