19 lines
588 B
Scheme
19 lines
588 B
Scheme
(define-package "ffi-tools" (0 1 0)
|
|
((install-lib-version (1 0)))
|
|
|
|
(let ((scheme-dir (get-directory 'scheme #f))
|
|
(lib-dir (get-directory 'lib #f)))
|
|
(write-to-load-script
|
|
`((config)
|
|
(run '(define-structure ffi-tools-path
|
|
(export ffi-tools-lib-path)
|
|
(open scheme)
|
|
(begin
|
|
(define (ffi-tools-lib-path) ,lib-dir))))
|
|
(load ,(string-append scheme-dir "/packages-run.scm"))
|
|
(load ,(string-append scheme-dir "/packages-gen.scm"))
|
|
(user))))
|
|
|
|
(install-directory-contents "scheme" 'scheme)
|
|
(install-directory-contents "c" 'lib)
|
|
) |