30 lines
1.1 KiB
Racket
30 lines
1.1 KiB
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(provide pre-installer)
|
||
|
|
|
||
|
|
(require racket/file)
|
||
|
|
(require dynext/file)
|
||
|
|
(require dynext/compile)
|
||
|
|
(require dynext/link)
|
||
|
|
|
||
|
|
(define (pre-installer collections-top-path collection-path)
|
||
|
|
(define private-path (build-path collection-path "private"))
|
||
|
|
(parameterize ((current-directory private-path))
|
||
|
|
(define shared-object-target-path (build-path private-path
|
||
|
|
"compiled"
|
||
|
|
"native"
|
||
|
|
(system-library-subpath)))
|
||
|
|
(define shared-object-target (build-path shared-object-target-path
|
||
|
|
(append-extension-suffix "tty-raw-extension")))
|
||
|
|
(when (not (file-exists? shared-object-target))
|
||
|
|
(define c-source (build-path private-path "tty-raw-extension.c"))
|
||
|
|
(define object (build-path shared-object-target-path "tty-raw-extension.o"))
|
||
|
|
(make-directory* shared-object-target-path)
|
||
|
|
(compile-extension #f ;; not quiet
|
||
|
|
c-source
|
||
|
|
object
|
||
|
|
'())
|
||
|
|
(link-extension #f ;; not quiet
|
||
|
|
(list object)
|
||
|
|
shared-object-target))))
|