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

make installers: propagate SOURCE_MODE to clients

Browse Source 
original commit: 16114823dca662486936b0d1f7eb527061af9048
This commit is contained in:
Matthew Flatt 2014-06-14 07:24:14 +01:00
parent 112b51dac3
commit 8fb02985c3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,6 +24,7 @@
;; ---------------------------------------- ;; ----------------------------------------
(define default-release? #f) (define default-release? #f)
(define default-source? #f)
(define default-clean? #f) (define default-clean? #f)
(define dry-run #f) (define dry-run #f)
@ -37,6 +38,8 @@
#:once-each #:once-each
[("--release") "Create release-mode installers" [("--release") "Create release-mode installers"
(set! default-release? #t)] (set! default-release? #t)]
[("--source") "Create source installers"
(set! default-source? #t)]
[("--clean") "Erase client directories before building" [("--clean") "Erase client directories before building"
(set! default-clean? #t)] (set! default-clean? #t)]
[("--dry-run") mode [("--dry-run") mode
@ -235,7 +238,7 @@
(define dist-catalogs (choose-catalogs c '(""))) (define dist-catalogs (choose-catalogs c '("")))
(define sign-identity (get-opt c '#:sign-identity "")) (define sign-identity (get-opt c '#:sign-identity ""))
(define release? (get-opt c '#:release? default-release?)) (define release? (get-opt c '#:release? default-release?))
(define source? (get-opt c '#:source? #f)) (define source? (get-opt c '#:source? default-source?))
(define source-pkgs? (get-opt c '#:source-pkgs? source?)) (define source-pkgs? (get-opt c '#:source-pkgs? source?))
(define source-runtime? (get-opt c '#:source-runtime? source?)) (define source-runtime? (get-opt c '#:source-runtime? source?))
(define mac-pkg? (get-opt c '#:mac-pkg? #f)) (define mac-pkg? (get-opt c '#:mac-pkg? #f))
@ -336,6 +339,7 @@
rdme rdme
(rdme (add-defaults c (rdme (add-defaults c
'#:release? default-release? '#:release? default-release?
'#:source? default-source?
'#:pkgs (string-split default-pkgs) '#:pkgs (string-split default-pkgs)
'#:install-name (if (get-opt c '#:release? default-release?) '#:install-name (if (get-opt c '#:release? default-release?)
"" ""