/usr/share/racket/pkgs/mzcom/installer.rkt is in racket-common 6.7-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | #lang racket/base
(require mzlib/process
setup/dirs)
(provide installer)
(define (installer plt-home)
(let ([exe "MzCOM.exe"])
(cond [(not (eq? (system-type) 'windows))
;;(printf "Warning: can't install MzCOM on non-Windows machine\n")
(void)]
[(not (file-exists? (build-path (find-lib-dir) exe)))
(printf "Warning: MzCOM binary not installed\n")]
[else (parameterize ([current-directory (find-lib-dir)])
(system* exe "/RegServer"))])))
|