1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#lang racket/base
(require "setup-cmdline.rkt"
"option.rkt"
"setup-core.rkt"
compiler/cm)
(provide go)
(module test racket/base)
(define-values (short-name x-flags
x-specific-collections x-specific-packages x-specific-planet-packages
x-archives)
(parse-cmdline (current-command-line-arguments)))
(define (get-x-flag s default)
(define a (assq s x-flags))
(if a
(cadr a)
default))
(define (has-x-flag? s)
(get-x-flag s #f))
(define (go orig-compile-file-paths)
;; Convert parse-cmdline results into parameter settings:
(parameterize ([current-target-plt-directory-getter
(if (has-x-flag? 'all-users)
(lambda (preferred main-collects-parent-dir choices)
main-collects-parent-dir)
(current-target-plt-directory-getter))]
[trust-existing-zos (or (has-x-flag? 'trust-existing-zos)
(trust-existing-zos))]
[managed-recompile-only (or (has-x-flag? 'recompile-only)
(managed-recompile-only))]
[specific-collections x-specific-collections]
[specific-packages x-specific-packages]
[archives x-archives]
[specific-planet-dirs x-specific-planet-packages]
[setup-program-name short-name]
[setup-compiled-file-paths orig-compile-file-paths])
(call-with-flag-params
x-flags
setup-core)))
|
