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

raco pkg catalog-archive: keep module & dependency info

Browse Source 
Also fixes another relative-path problem.
This commit is contained in:
Matthew Flatt 2014-05-29 13:19:47 +01:00
parent cc4d00efa6
commit f9d6edd8ec
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/collects/pkg/lib.rkt
View File

@ -3282,11 +3282,19 @@
(define new-checksum (define new-checksum
(file->string (path-replace-suffix pkg-file #".zip.CHECKSUM"))) (file->string (path-replace-suffix pkg-file #".zip.CHECKSUM")))
(parameterize ([db:current-pkg-catalog-file temp-catalog-file]) (parameterize ([db:current-pkg-catalog-file temp-catalog-file])
(define modules (db:get-pkg-modules name (db:pkg-catalog pkg) current-checksum))
(define dependencies (db:get-pkg-dependencies name (db:pkg-catalog pkg) current-checksum))
(db:set-pkg! name (db:pkg-catalog pkg) (db:set-pkg! name (db:pkg-catalog pkg)
(db:pkg-author pkg) (db:pkg-author pkg)
(path->string pkg-file) (path->string (path->complete-path pkg-file))
new-checksum new-checksum
(db:pkg-desc pkg)))) (db:pkg-desc pkg))
(db:set-pkg-modules! name (db:pkg-catalog pkg)
new-checksum
modules)
(db:set-pkg-dependencies! name (db:pkg-catalog pkg)
new-checksum
dependencies)))
(define dest-catalog (build-path dest-dir "catalog")) (define dest-catalog (build-path dest-dir "catalog"))
(unless quiet? (unless quiet?
(printf/flush "Creating catalog ~a\n" dest-catalog)) (printf/flush "Creating catalog ~a\n" dest-catalog))