65 lines
1.1 KiB
Racket
65 lines
1.1 KiB
Racket
|
|
(module base mzscheme
|
|
(require mzlib/unit)
|
|
|
|
(require "../sig.ss")
|
|
(require "sig.ss")
|
|
|
|
(require syntax/zodiac-sig
|
|
syntax/zodiac-unit)
|
|
|
|
(require dynext/file-sig
|
|
dynext/link-sig
|
|
dynext/compile-sig)
|
|
|
|
(require "zlayer.ss"
|
|
"library.ss"
|
|
"cstructs.ss"
|
|
"prephase.ss"
|
|
"anorm.ss"
|
|
"const.ss"
|
|
"known.ss"
|
|
"analyze.ss"
|
|
"lift.ss"
|
|
"closure.ss"
|
|
"vehicle.ss"
|
|
"rep.ss"
|
|
"vmscheme.ss"
|
|
"vmphase.ss"
|
|
"vmopt.ss"
|
|
"vm2c.ss"
|
|
"toplevel.ss"
|
|
"driver.ss")
|
|
|
|
;; The core Scheme->C compiler linkage, including everything
|
|
;; that's common to MrSpidey and non-MrSpidey compilation.
|
|
|
|
(provide base@)
|
|
|
|
(define-compound-unit/infer base@
|
|
(import (COMPILE : dynext:compile^)
|
|
(LINK : dynext:link^)
|
|
(DFILE : dynext:file^)
|
|
(OPTIONS : compiler:option^))
|
|
(export compiler:inner^)
|
|
(link
|
|
zodiac@
|
|
zlayer@
|
|
library@
|
|
cstructs@
|
|
prephase@
|
|
anorm@
|
|
const@
|
|
known@
|
|
analyze@
|
|
lift@
|
|
closure@
|
|
vehicle@
|
|
rep@
|
|
vmscheme@
|
|
vmphase@
|
|
vmopt@
|
|
vm2c@
|
|
toplevel@
|
|
driver@)))
|