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

Fixing PR13657

Browse Source
This commit is contained in:
Jay McCarthy 2013-04-06 14:43:16 -06:00
parent 06767ab8c3
commit 259621f7cb
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/pkg/lib.rkt
View File

@ -1190,6 +1190,8 @@
(pkg-error "directory does not exist\n path: ~a" dir)) (pkg-error "directory does not exist\n path: ~a" dir))
(match create:format (match create:format
['MANIFEST ['MANIFEST
(printf "creating manifest for ~a\n"
dir)
(with-output-to-file (with-output-to-file
(build-path dir "MANIFEST") (build-path dir "MANIFEST")
#:exists 'replace #:exists 'replace
@ -1198,8 +1200,10 @@
(find-files file-exists?)))]) (find-files file-exists?)))])
(display f) (display f)
(newline))))] (newline))))]
[else [else
(define pkg (format "~a.~a" dir create:format)) (define pkg (format "~a.~a" dir create:format))
(printf "packing ~a into ~a\n"
dir pkg)
(define pkg-name (define pkg-name
(regexp-replace (regexp-replace
(regexp (format "~a$" (regexp-quote (format ".~a" create:format)))) (regexp (format "~a$" (regexp-quote (format ".~a" create:format))))
@ -1239,8 +1243,11 @@
[x [x
(pkg-error "invalid package format\n format: ~a" x)]) (pkg-error "invalid package format\n format: ~a" x)])
(define chk (format "~a.CHECKSUM" pkg)) (define chk (format "~a.CHECKSUM" pkg))
(with-output-to-file chk #:exists 'replace (printf "writing package checksum to ~a\n"
(λ () (display (call-with-input-file pkg sha1))))]))) chk)
(with-output-to-file chk
#:exists 'replace
(λ () (display (call-with-input-file pkg sha1))))])))
(define dep-behavior/c (define dep-behavior/c
(or/c false/c (or/c false/c

4
collects/pkg/main.rkt
View File

@ -222,6 +222,6 @@
("Select the format of the package to be created;" ("Select the format of the package to be created;"
"valid <fmt>s are: zip (the default), tgz, plt")] "valid <fmt>s are: zip (the default), tgz, plt")]
[#:bool manifest () "Creates a manifest file for a directory, rather than an archive"] [#:bool manifest () "Creates a manifest file for a directory, rather than an archive"]
#:args (maybe-dir) #:args (package-directory)
(parameterize ([current-pkg-error (pkg-error 'create)]) (parameterize ([current-pkg-error (pkg-error 'create)])
(create-cmd (if manifest 'MANIFEST (or format 'zip)) maybe-dir))]) (create-cmd (if manifest 'MANIFEST (or format 'zip)) package-directory))])