Overview
| Comment: | fixed sretrive to ignore bad links |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 | v1.6101a |
| Files: | files | file ages | folders |
| SHA1: |
bb799c9f43fccaebdfbb4d3f3597f222 |
| User & Date: | pjhatwal on 2016-05-02 12:23:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-05-03
| ||
| 13:59 | Added megatest-fossil-hash files to be removed during make clean check-in: 0075073268 user: jmoon18 tags: v1.61 | |
|
2016-05-02
| ||
| 15:56 | Cherrypicked changes check-in: 01385661b3 user: ritikaag tags: mtdboard | |
| 12:23 | fixed sretrive to ignore bad links check-in: bb799c9f43 user: pjhatwal tags: v1.61, v1.6101a | |
| 09:37 | merged fork check-in: 439a6a73fd user: mrwellan tags: v1.61 | |
Changes
Modified sretrieve.scm from [1a41688ba0] to [915dd04401].
| ︙ | ︙ | |||
163 164 165 166 167 168 169 |
(if (directory? datadir)
(begin
(change-directory datadir)
(let ((files (filter (lambda (x)
(not (member x '("." ".."))))
(glob "*" ".*"))))
(print "files: " files)
| | | 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 |
(if (directory? datadir)
(begin
(change-directory datadir)
(let ((files (filter (lambda (x)
(not (member x '("." ".."))))
(glob "*" ".*"))))
(print "files: " files)
(process-execute "/bin/tar" (append (append (list "chfv" "-") files) (list "--ignore-failed-read")))))
(begin
(let* ((parent-dir (pathname-directory datadir) )
(filename (conc(pathname-file datadir) "." (pathname-extension datadir))))
(change-directory parent-dir)
(process-execute "/bin/tar" (list "chfv" "-" filename))
)))
))
|
| ︙ | ︙ |