Differences From Artifact [0af43ce4a9]:
- File spublish.scm — part of check-in [2955cf0dfc] at 2020-08-22 00:19:29 on branch v1.65-merge-forward-v1.66 — It compiles again (user: matt, size: 33719) [annotate] [blame] [check-ins using] [more...]
To Artifact [d0bcfc709c]:
- File attic/spublish.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 33937) [annotate] [blame] [check-ins using]
- File spublish.scm — part of check-in [81893b52af] at 2020-09-16 12:44:29 on branch 1.65-archive — updates to remov-keep for archiving (user: pjhatwal, size: 33937) [annotate] [blame] [check-ins using]
| ︙ | |||
389 390 391 392 393 394 395 396 397 398 399 400 401 402 | 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 | + + + + |
(define (spublish:shell-cp src-path target-path)
(cond
((not (file-exists? target-path))
(sauth:print-error (conc " target Directory " target-path " does not exist!!")))
((not (file-exists? src-path))
(sauth:print-error (conc "Source path " src-path " does not exist!!" )))
(else
(if (< (sauth-common:space-left-at-dest target-path) (sauth-common:src-size src-path))
(begin
(sauth:print-error "Destination does not have enough disk space.")
(exit 1)))
(if (is_directory src-path)
(begin
(let* ((parent-dir src-path)
(start-dir target-path))
(run (pipe
(begin (system (conc "cd " parent-dir " ;tar chf - ." )))
(begin (change-directory start-dir)
|
| ︙ |