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

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

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