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

fix bad uses of installer argument

Browse Source 
svn: r2939
This commit is contained in:
Matthew Flatt 2006-05-14 13:05:50 +00:00
parent aaa9a18c77
commit 36f0720c5a
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mysterx/installer.ss
View File

@ -1,9 +1,10 @@
(module installer mzscheme
(require (lib "process.ss"))
(require (lib "process.ss")
(lib "dirs.ss" "setup"))
(provide post-installer)
(define (post-installer plt-home)
(define (make-dll-path . more)
(apply build-path plt-home "lib" more))
(apply build-path (find-dll-dir) more))
(define (warn fmt . args) (apply fprintf (current-error-port) fmt args))
(let* ([dlls '("myspage.dll" "myssink.dll")]
[dll-paths (map make-dll-path dlls)]

7
collects/mzcom/installer.ss
View File

@ -1,11 +1,12 @@
(module installer mzscheme
(require (lib "process.ss"))
(require (lib "process.ss")
(lib "dirs.ss" "setup"))
(provide post-installer)
(define (post-installer plt-home)
(let ([exe "MzCOM.exe"])
(cond [(not (eq? (system-type) 'windows))
(printf "Warning: can't install MzCOM on non-Windows machine\n")]
[(not (file-exists? (build-path plt-home exe)))
[(not (file-exists? (build-path (find-console-bin-dir) exe)))
(printf "Warning: MzCOM binary not installed\n")]
[else (parameterize ([current-directory plt-home])
[else (parameterize ([current-directory (find-console-bin-dir)])
(system* exe "/RegServer"))]))))

3
collects/sgl/makefile.ss
View File

@ -1,5 +1,6 @@
(module makefile mzscheme
(require (lib "make.ss" "make")
(lib "dirs.ss" "setup")
"make-gl-info.ss")
(provide pre-installer)
@ -12,6 +13,6 @@
(make-print-checking #f))
(make/proc
`((,(build-path dir "gl-info.zo")
("make-gl-info.ss" ,(build-path home "include" "schvers.h"))
("make-gl-info.ss" ,(build-path (find-include-dir) "schvers.h"))
,(lambda () (make-gl-info dir home)))))))
)