#lang scheme
(require make/setup-extension)
  
(provide pre-installer gc-type system-path)
  
(define (system-path)
  (path->string (build-path "compiled" "native" (system-library-subpath))))

(define (gc-type)
  (system-type 'gc))

(define (pre-installer top home)
  (define (make-file file)
    (pre-install top home file 
                 home                   ; default-lib-dir
                 null                   ; include subdis
                 null                   ; find-unix-libs
                 null                   ; find-windows-libs
                 null                   ; unix-libs
                 '("ws2_32")            ; windows libs
                 null                   ; extra deps
                 (lambda (p) (p))
                 #t))                   ; 3m
  (for-each make-file '("_constants.c" "_socket.c")))