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

distro-build/package-and-catalog: extra options for checksums & paths

Browse Source
This commit is contained in:
Matthew Flatt 2013-11-03 11:02:47 -07:00
parent 35bb99c72a
commit 5f1cd4cff4
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/distro-build/pack-and-catalog.rkt
View File

@ -17,6 +17,7 @@
(define relative? #t) (define relative? #t)
(define get-modules? #f) (define get-modules? #f)
(define checksum-dir #f) (define checksum-dir #f)
(define source-checksums? #f)
(define src-dirs (define src-dirs
(command-line (command-line
@ -27,6 +28,8 @@
(set! native? #t)] (set! native? #t)]
[("--absolute") "Record paths as absolute" [("--absolute") "Record paths as absolute"
(set! relative? #f)] (set! relative? #f)]
[("--source-checksum") "Compute checksum from source when not packing"
(set! source-checksums? #t)]
[("--at-checksum") dir "Copy each to to <dir>/<checksum>" [("--at-checksum") dir "Copy each to to <dir>/<checksum>"
(set! checksum-dir dir)] (set! checksum-dir dir)]
[("--mods") "Include modules and dependencies in catalog" [("--mods") "Include modules and dependencies in catalog"
@ -73,9 +76,10 @@
(build-path (path->complete-path pack-dest-dir) (build-path (path->complete-path pack-dest-dir)
zip-file))) zip-file)))
(define pkg-src-dir (build-path src-dir pkg-name))
(when pack-dest-dir (when pack-dest-dir
(define sum-file (path-add-suffix pkg-name #".srcsum")) (define sum-file (path-add-suffix pkg-name #".srcsum"))
(define pkg-src-dir (build-path src-dir pkg-name))
(printf "summing ~a\n" pkg-src-dir) (printf "summing ~a\n" pkg-src-dir)
(define src-sha1 (sha1 (stream-directory pkg-src-dir))) (define src-sha1 (sha1 (stream-directory pkg-src-dir)))
(define dest-sum (build-path (path->complete-path pack-dest-dir) sum-file)) (define dest-sum (build-path (path->complete-path pack-dest-dir) sum-file))
@ -116,7 +120,11 @@
(define catalog-pkg-dir (build-path catalog-dir "pkg")) (define catalog-pkg-dir (build-path catalog-dir "pkg"))
(define checksum (if dest-zip (define checksum (if dest-zip
(call-with-input-file* dest-zip sha1) (call-with-input-file* dest-zip sha1)
"0")) (if source-checksums?
(begin
(printf "summing ~a\n" pkg-src-dir)
(sha1 (stream-directory pkg-src-dir)))
"0")))
(define orig-dest (if dest-zip (define orig-dest (if dest-zip
(build-path pack-dest-dir zip-file) (build-path pack-dest-dir zip-file)
#f)) #f))