suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Start improving file system usage

Browse Source
This commit is contained in:
Jay McCarthy 2012-05-12 23:05:04 -06:00
parent 9093acbfb8
commit 14edb40d94
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/meta/drdr/make-archive.rkt
View File

@ -20,11 +20,11 @@
(printf "r~a is already archived\n" rev)
(local [(define tmp-path (make-temporary-file))]
(printf "Archiving r~a\n" rev)
(safely-delete-directory (revision-trunk.tgz rev))
(create-archive tmp-path (revision-dir rev))
(rename-file-or-directory tmp-path archive-path)
(archive-directory (revision-log-dir rev))
(archive-directory (revision-analyze-dir rev))
(safely-delete-directory (revision-trunk.tgz rev)))))
(safely-delete-directory (revision-log-dir rev))
(safely-delete-directory (revision-analyze-dir rev)))))
(define mode (make-parameter 'single))

11
collects/meta/drdr/recompress.sh Executable file
View File

@ -0,0 +1,11 @@
#!/bin/bash
unset a i
while IFS= read -r -d $'\0' file; do
newfile=$(dirname "${file}")/$(basename "${file}" .tgz).tar.7z
if [ -f "${newfile}" ] ; then
rm -f "${newfile}"
fi
7z x "${file}" -so | 7z a "${newfile}" -t7z -m0=lzma -mfb=64 -ms=on -mx=9 -si && rm -f ${file}
done < <(find . -name '*.tgz' -print0)