28 lines
1002 B
Scheme
28 lines
1002 B
Scheme
;; Builds different kinds of executables for different platforms.
|
|
#lang scheme/base
|
|
|
|
(provide post-installer)
|
|
(require launcher/launcher)
|
|
|
|
(define (post-installer path)
|
|
(for ([mr? (case (system-type)
|
|
[(macosx) '(#t #f)]
|
|
[(windows) '(#t)]
|
|
[else '(#f)])])
|
|
(define-values (variants mk-launcher mk-path extras)
|
|
(if mr?
|
|
(values available-mred-variants
|
|
make-mred-launcher
|
|
mred-program-launcher-path
|
|
(build-aux-from-path
|
|
(build-path (collection-path "help") "help")))
|
|
(values available-mzscheme-variants
|
|
make-mzscheme-launcher
|
|
mzscheme-program-launcher-path
|
|
'())))
|
|
(for ([variant (variants)])
|
|
(parameterize ([current-launcher-variant variant])
|
|
(mk-launcher '("-l-" "help/help")
|
|
(mk-path "plt-help")
|
|
`([exe-name . "plt-help"] [relative? . #t] ,@extras))))))
|