diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-03-14 23:49:36 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-03-17 12:59:53 +0100 |
| commit | cf76bf6a59f508ad88ad3b3e0c92a45007031f3f (patch) | |
| tree | 0974fdb33976501be866821964a97d24f0b8e99e | |
| parent | 2502e47b059f7718064b461d553ba87278918af9 (diff) | |
Disable file cleanup in cmake-minimal to expose cppdap headers
| -rw-r--r-- | private/komodo/cmake.scm | 50 |
1 files 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 |