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

add a "mred-text" executable

Browse Source 
svn: r11164
This commit is contained in:
Eli Barzilay 2008-08-09 06:16:14 +00:00
parent c78b20790d
commit 48c9ec302a
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/mred/script-installer.ss
View File

@ -1,20 +1,22 @@
;; This installer module just adds a bin/mred script #lang scheme/base
;; under OS X
(module script-installer mzscheme
(provide post-installer)
(require launcher)
(define post-installer (require launcher)
(lambda (path) (provide post-installer)
(when (eq? 'macosx (system-type))
(let ([install (define (post-installer path)
(lambda (variant) (define variants (available-mred-variants))
(parameterize ([current-launcher-variant variant]) ;; add a mred-text executable that uses the -z flag (preferring a script)
(make-mred-launcher null (for ([vs '((script-3m 3m) (script-cgc cgc))])
(mred-program-launcher-path "MrEd") (let ([v (findf (lambda (v) (memq v variants)) vs)])
'((exe-name . "MrEd") (when v
(relative? . #t)))))]) (parameterize ([current-launcher-variant v])
(for-each (lambda (v) (make-mred-launcher '("-z")
(when (memq v '(script-3m script-cgc)) (mred-program-launcher-path "mred-text")
(install v))) '([relative? . #t] [subsystem . console]))))))
(available-mred-variants))))))) ;; add a bin/mred script under OS X
(when (eq? 'macosx (system-type))
(for ([v variants] #:when (memq v '(script-3m script-cgc)))
(parameterize ([current-launcher-variant v])
(make-mred-launcher null
(mred-program-launcher-path "MrEd")
'([exe-name . "MrEd"] [relative? . #t]))))))