From cf76bf6a59f508ad88ad3b3e0c92a45007031f3f Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 14 Mar 2024 23:49:36 +0100 Subject: Disable file cleanup in cmake-minimal to expose cppdap headers --- private/komodo/cmake.scm | 50 ++++++++++++++++++++++++------------------------ 1 file changed, 25 insertions(+), 25 deletions(-) diff --git a/private/komodo/cmake.scm b/private/komodo/cmake.scm index c9da1d3020..6e1b2b8ca6 100644 --- a/private/komodo/cmake.scm +++ b/private/komodo/cmake.scm @@ -277,31 +277,31 @@ and workspaces that can be used in the compiler environment of your choice.") `(begin (define preserved-files ',%preserved-third-party-files) - (file-system-fold (lambda (dir stat result) ;enter? - (or (string=? "Utilities" dir) ;init - ;; The bundled dependencies are - ;; distinguished by having a "cm" - ;; prefix to their upstream names. - (and (string-prefix? "Utilities/cm" dir) - (not (member dir preserved-files))))) - (lambda (file stat result) ;leaf - (unless (or (member file preserved-files) - ;; Preserve top-level files. - (string=? "Utilities" - (dirname file))) - (delete-file file))) - (const #t) ;down - (lambda (dir stat result) ;up - (when (equal? (scandir dir) '("." "..")) - (rmdir dir))) - (const #t) ;skip - (lambda (file stat errno result) - (format (current-error-port) - "warning: failed to delete ~a: ~a~%" - file (strerror errno))) - #t - "Utilities" - lstat) + ;; (file-system-fold (lambda (dir stat result) ;enter? + ;; (or (string=? "Utilities" dir) ;init + ;; ;; The bundled dependencies are + ;; ;; distinguished by having a "cm" + ;; ;; prefix to their upstream names. + ;; (and (string-prefix? "Utilities/cm" dir) + ;; (not (member dir preserved-files))))) + ;; (lambda (file stat result) ;leaf + ;; (unless (or (member file preserved-files) + ;; ;; Preserve top-level files. + ;; (string=? "Utilities" + ;; (dirname file))) + ;; (delete-file file))) + ;; (const #t) ;down + ;; (lambda (dir stat result) ;up + ;; (when (equal? (scandir dir) '("." "..")) + ;; (rmdir dir))) + ;; (const #t) ;skip + ;; (lambda (file stat errno result) + ;; (format (current-error-port) + ;; "warning: failed to delete ~a: ~a~%" + ;; file (strerror errno))) + ;; #t + ;; "Utilities" + ;; lstat) #t)))) (build-system cmake-build-system) (arguments -- cgit v1.2.3