#lang scheme/base

(require dynext/compile
         (prefix-in xform: "private/xform.ss"))

(provide xform)

(define (xform quiet? src dest header-dirs #:keep-lines? [keep-lines? #f])
  (let ([exe (current-extension-compiler)]
        [flags (expand-for-compile-variant
                (current-extension-preprocess-flags))]
        [headers (apply append
                        (map (current-make-compile-include-strings)
                             header-dirs))])
    (xform:xform quiet?
                 (cons exe
                       (append flags headers))
                 src
                 dest
                 keep-lines?
                 #f #t #t
                 #f #f
                 #f #f
                 #f)))