Move most of the compiler
collection to compiler-lib
.
This commit is contained in:
parent
d54c1e4e49
commit
3ad009070e
|
@ -5,5 +5,6 @@
|
||||||
"compatibility-lib"
|
"compatibility-lib"
|
||||||
"pconvert-lib"
|
"pconvert-lib"
|
||||||
"sandbox-lib"
|
"sandbox-lib"
|
||||||
|
"compiler-lib"
|
||||||
"gui-lib"
|
"gui-lib"
|
||||||
"racket-doc"))
|
"racket-doc"))
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
(module compiler racket/base
|
(module compiler racket/base
|
||||||
(require racket/unit)
|
(require racket/unit)
|
||||||
|
|
||||||
(require "sig.rkt")
|
(require compiler/sig)
|
||||||
|
|
||||||
(require dynext/compile-sig)
|
(require dynext/compile-sig)
|
||||||
(require dynext/link-sig)
|
(require dynext/link-sig)
|
||||||
|
@ -13,7 +13,7 @@
|
||||||
|
|
||||||
(require "option.rkt")
|
(require "option.rkt")
|
||||||
|
|
||||||
(require "compiler-unit.rkt")
|
(require compiler/compiler-unit)
|
||||||
|
|
||||||
(define-values/invoke-unit/infer compiler@)
|
(define-values/invoke-unit/infer compiler@)
|
||||||
|
|
|
@ -21,7 +21,7 @@
|
||||||
|
|
||||||
(error-print-width 512)
|
(error-print-width 512)
|
||||||
|
|
||||||
(require (prefix-in compiler:option: "option.rkt")
|
(require (prefix-in compiler:option: compiler/option)
|
||||||
"compiler.rkt")
|
"compiler.rkt")
|
||||||
|
|
||||||
;; Read argv array for arguments and input file name
|
;; Read argv array for arguments and input file name
|
|
@ -1,8 +1,8 @@
|
||||||
(module option racket/base
|
(module option racket/base
|
||||||
(require racket/unit)
|
(require racket/unit)
|
||||||
|
|
||||||
(require "sig.rkt"
|
(require compiler/sig
|
||||||
"option-unit.rkt")
|
compiler/option-unit)
|
||||||
|
|
||||||
(define-values/invoke-unit/infer compiler:option@)
|
(define-values/invoke-unit/infer compiler:option@)
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
(require dynext/compile
|
(require dynext/compile
|
||||||
setup/dirs
|
setup/dirs
|
||||||
(prefix-in xform: "private/xform.rkt"))
|
(prefix-in xform: compiler/private/xform))
|
||||||
|
|
||||||
(provide xform)
|
(provide xform)
|
||||||
|
|
3
pkgs/compiler-lib/info.rkt
Normal file
3
pkgs/compiler-lib/info.rkt
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
#lang setup/infotab
|
||||||
|
|
||||||
|
(define deps '("base"))
|
|
@ -3,6 +3,7 @@
|
||||||
(define collection 'multi)
|
(define collection 'multi)
|
||||||
|
|
||||||
(define deps '("data-lib"
|
(define deps '("data-lib"
|
||||||
|
"compiler-lib"
|
||||||
"base"
|
"base"
|
||||||
"compatibility-lib"
|
"compatibility-lib"
|
||||||
"draw-lib"
|
"draw-lib"
|
||||||
|
|
|
@ -4,5 +4,6 @@
|
||||||
|
|
||||||
(define scribblings '(("make.scrbl" (multi-page) (tool-library))))
|
(define scribblings '(("make.scrbl" (multi-page) (tool-library))))
|
||||||
(define deps '("base"
|
(define deps '("base"
|
||||||
|
"compiler-lib"
|
||||||
"compatibility-lib"))
|
"compatibility-lib"))
|
||||||
(define build-deps '("scribble-lib"))
|
(define build-deps '("scribble-lib"))
|
||||||
|
|
|
@ -6,6 +6,7 @@
|
||||||
"compatibility-lib"
|
"compatibility-lib"
|
||||||
"net-lib"
|
"net-lib"
|
||||||
"sandbox-lib"
|
"sandbox-lib"
|
||||||
|
"compiler-lib"
|
||||||
"scribble-lib"
|
"scribble-lib"
|
||||||
"racket-index"))
|
"racket-index"))
|
||||||
(define build-deps '("at-exp-lib"
|
(define build-deps '("at-exp-lib"
|
||||||
|
|
|
@ -11,6 +11,7 @@
|
||||||
"rackunit-lib"
|
"rackunit-lib"
|
||||||
"slideshow-lib"
|
"slideshow-lib"
|
||||||
"base"
|
"base"
|
||||||
|
"compiler-lib"
|
||||||
"compatibility-lib"
|
"compatibility-lib"
|
||||||
"data-lib"
|
"data-lib"
|
||||||
"draw-lib"
|
"draw-lib"
|
||||||
|
|
|
@ -5,6 +5,7 @@
|
||||||
(define build-deps '("base"
|
(define build-deps '("base"
|
||||||
"compatibility-lib"
|
"compatibility-lib"
|
||||||
"rackunit-lib"
|
"rackunit-lib"
|
||||||
|
"compiler-lib"
|
||||||
"redex"
|
"redex"
|
||||||
"sandbox-lib"
|
"sandbox-lib"
|
||||||
"unstable"))
|
"unstable"))
|
||||||
|
|
|
@ -25,7 +25,7 @@
|
||||||
(file-position (current-output-port) (cdar m))
|
(file-position (current-output-port) (cdar m))
|
||||||
(write-bytes path-bytes)
|
(write-bytes path-bytes)
|
||||||
(write-byte 0))
|
(write-byte 0))
|
||||||
'update))))
|
#:exists 'update))))
|
||||||
|
|
||||||
(define (get-current-dll-dir dest)
|
(define (get-current-dll-dir dest)
|
||||||
(with-input-from-file dest
|
(with-input-from-file dest
|
||||||
|
|
Loading…
Reference in New Issue
Block a user