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

Makefile: refine support for building an installer from a site

Browse Source 
original commit: 1260dd6b2ecdb90789c8e347f94249be8acbe564
This commit is contained in:
Matthew Flatt 2014-03-10 16:57:16 -06:00
parent 45d71521fd
commit 9b579f598d
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/distro-build-pkgs/distro-build-client/installer.rkt
View File

@ -30,11 +30,13 @@
[("--mac-pkg") "Create a \".pkg\" installer on Mac OS X"
(set! mac-pkg? #t)]
[("--upload") url "Upload installer"
(set! upload-to url)]
(unless (string=? url "")
(set! upload-to url))]
[("--desc") desc "Description to accompany upload"
(set! upload-desc desc)]
[("--readme") readme "URL for README.txt to include"
(set! download-readme readme)]
(unless (string=? readme "")
(set! download-readme readme))]
#:args
(human-name base-name dir-name dist-suffix sign-identity)
(values human-name
@ -81,7 +83,7 @@
(printf "Upload ~a to ~a\n" installer-file upload-to)
(define i
(put-pure-port
(string->url (format "~aupload/~a"
(string->url (format "~a~a"
upload-to
(path->string (file-name-from-path installer-file))))
(file->bytes installer-file)

3
pkgs/distro-build-pkgs/distro-build-server/drive-clients.rkt
View File

@ -338,7 +338,8 @@
(q "--source --no-setup")
(q ""))
" MAC_PKG_MODE=" (if mac-pkg? "--mac-pkg" (q ""))
" README=" (q (file-name-from-path readme))))
" UPLOAD=http://" server ":" server-port "/upload/"
" README=http://" server ":" server-port "/" (q (file-name-from-path readme))))
(define (unix-build c platform host port user server server-port repo clean? pull? readme)
(define dir (get-path-opt c '#:dir "build/plt" #:localhost (current-directory)))