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

switch raco pkg create' to file/tar' and `file/zip'

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-20 10:05:53 -07:00
parent 376b1f373a
commit df4563588e
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/planet2/lib.rkt
View File

@ -4,7 +4,6 @@
openssl/sha1
racket/contract
racket/match
racket/system
racket/path
racket/file
setup/link
@ -19,6 +18,8 @@
unstable/debug
racket/string
file/untgz
file/tar
file/zip
file/unzip
"util.rkt"
"util-plt.rkt")
@ -756,15 +757,25 @@
""))
(match create:format
["tgz"
(unless (system* (find-executable-path "tar") "-cvzf" pkg "-C" dir ".")
(delete-file pkg)
(error 'planet2 "Package creation failed"))]
["zip"
(define orig-pkg (normalize-path pkg))
(define pkg/complete (path->complete-path pkg))
(when (file-exists? pkg/complete)
(delete-file pkg/complete))
(parameterize ([current-directory dir])
(unless (system* (find-executable-path "zip") "-r" orig-pkg ".")
(delete-file pkg)
(error 'planet2 "Package creation failed")))]
(with-handlers ([exn? (lambda (exn)
(when (file-exists? pkg/complete)
(delete-file pkg/complete))
(raise exn))])
(apply tar-gzip pkg/complete (directory-list))))]
["zip"
(define pkg/complete (path->complete-path pkg))
(when (file-exists? pkg/complete)
(delete-file pkg/complete))
(parameterize ([current-directory dir])
(with-handlers ([exn? (lambda (exn)
(when (file-exists? pkg/complete)
(delete-file pkg/complete))
(raise exn))])
(apply zip pkg/complete (directory-list))))]
["plt"
(pack-plt pkg pkg-name (list dir)
#:as-paths (list "."))]