suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moved compiler-related stuff to compiler subdirectory

Browse Source
This commit is contained in:
Danny Yoo 2011-05-26 19:46:23 -04:00
parent f56253f229
commit 667318e895
34 changed files with 81 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
analyzer-structs.rkt → compiler/analyzer-structs.rkt
View File

0
analyzer.rkt → compiler/analyzer.rkt
View File

6
bootstrapped-primitives.rkt → compiler/bootstrapped-primitives.rkt
View File

@ -6,12 +6,12 @@
"compiler-structs.rkt")
(require/typed "parameters.rkt"
(require/typed "../parameters.rkt"
(current-defined-name (Parameterof (U Symbol LamPositionalName))))
(require/typed "parser/parse-bytecode.rkt"
(require/typed "../parser/parse-bytecode.rkt"
(parse-bytecode (Path -> Expression)))
(require/typed "parser/baby-parser.rkt"
(require/typed "../parser/baby-parser.rkt"
[parse (Any -> Expression)])

0
compiler-structs.rkt → compiler/compiler-structs.rkt
View File

4
compiler.rkt → compiler/compiler.rkt
View File

@ -6,10 +6,10 @@
"compiler-structs.rkt"
"kernel-primitives.rkt"
"optimize-il.rkt"
"parameters.rkt"
"sets.rkt"
"analyzer-structs.rkt"
"analyzer.rkt"
"../parameters.rkt"
"../sets.rkt"
racket/match
racket/bool
racket/list)

0
expression-structs.rkt → compiler/expression-structs.rkt
View File

0
il-structs.rkt → compiler/il-structs.rkt
View File

0
kernel-primitives.rkt → compiler/kernel-primitives.rkt
View File

2
lexical-env.rkt → compiler/lexical-env.rkt
View File

@ -2,7 +2,7 @@
(require racket/list
"lexical-structs.rkt"
"sets.rkt")
"../sets.rkt")
(provide find-variable
extend-lexical-environment
extend-lexical-environment/names

0
lexical-structs.rkt → compiler/lexical-structs.rkt
View File

0
optimize-il.rkt → compiler/optimize-il.rkt
View File

0
racket-expander.rkt → experiments/racket-expander.rkt
View File

4
get-dependencies.rkt
View File

@ -1,6 +1,6 @@
#lang typed/racket/base
(require "expression-structs.rkt"
"lexical-structs.rkt"
(require "compiler/expression-structs.rkt"
"compiler/lexical-structs.rkt"
"sets.rkt"
racket/match)

4
js-assembler/assemble-expression.rkt
View File

@ -3,8 +3,8 @@
(require "assemble-structs.rkt"
"assemble-helpers.rkt"
"assemble-open-coded.rkt"
"../il-structs.rkt"
"../lexical-structs.rkt"
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
racket/string
racket/list)

6
js-assembler/assemble-helpers.rkt
View File

@ -1,8 +1,8 @@
#lang typed/racket/base
(require "../il-structs.rkt"
"../expression-structs.rkt"
"../lexical-structs.rkt"
(require "../compiler/il-structs.rkt"
"../compiler/expression-structs.rkt"
"../compiler/lexical-structs.rkt"
racket/list)
(provide assemble-oparg

6
js-assembler/assemble-open-coded.rkt
View File

@ -1,9 +1,9 @@
#lang typed/racket/base
(require "assemble-helpers.rkt"
"../il-structs.rkt"
"../lexical-structs.rkt"
"../kernel-primitives.rkt"
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../compiler/kernel-primitives.rkt"
racket/string
racket/list)

4
js-assembler/assemble-perform-statement.rkt
View File

@ -1,7 +1,7 @@
#lang typed/racket/base
(require "assemble-helpers.rkt"
"../il-structs.rkt"
"../lexical-structs.rkt"
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../parameters.rkt"
racket/string)

2
js-assembler/assemble-structs.rkt
View File

@ -3,7 +3,7 @@
(provide (all-defined-out))
(require "../il-structs.rkt")
(require "../compiler/il-structs.rkt")

6
js-assembler/assemble.rkt
View File

@ -5,10 +5,10 @@
"assemble-expression.rkt"
"assemble-perform-statement.rkt"
"collect-jump-targets.rkt"
"../il-structs.rkt"
"../lexical-structs.rkt"
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../compiler/expression-structs.rkt"
"../helpers.rkt"
"../expression-structs.rkt"
racket/string
racket/list)

6
js-assembler/collect-jump-targets.rkt
View File

@ -1,7 +1,7 @@
#lang typed/racket/base
(require "../expression-structs.rkt"
"../il-structs.rkt"
"../lexical-structs.rkt"
(require "../compiler/expression-structs.rkt"
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../helpers.rkt"
racket/list)

13
make-structs.rkt
View File

@ -1,12 +1,13 @@
#lang typed/racket/base
(require "compiler.rkt"
"il-structs.rkt"
(require "compiler/compiler.rkt"
"compiler/il-structs.rkt"
"compiler/lexical-structs.rkt"
"compiler/bootstrapped-primitives.rkt"
"compiler/compiler-structs.rkt"
"compiler/expression-structs.rkt"
"get-dependencies.rkt"
"lexical-structs.rkt"
"bootstrapped-primitives.rkt"
"compiler-structs.rkt"
"expression-structs.rkt"
"parameters.rkt"
"sets.rkt"
racket/list

12
make.rkt
View File

@ -1,12 +1,12 @@
#lang typed/racket/base
(require "compiler.rkt"
"il-structs.rkt"
(require "compiler/compiler.rkt"
"compiler/il-structs.rkt"
"compiler/lexical-structs.rkt"
"compiler/bootstrapped-primitives.rkt"
"compiler/compiler-structs.rkt"
"compiler/expression-structs.rkt"
"get-dependencies.rkt"
"lexical-structs.rkt"
"bootstrapped-primitives.rkt"
"compiler-structs.rkt"
"expression-structs.rkt"
"parameters.rkt"
"sets.rkt"
"make-structs.rkt"

4
parameters.rkt
View File

@ -1,7 +1,7 @@
#lang typed/racket/base
(require "expression-structs.rkt"
"lexical-structs.rkt"
(require "compiler/expression-structs.rkt"
"compiler/lexical-structs.rkt"
"sets.rkt"
racket/path)

6
parser/baby-parser.rkt
View File

@ -1,8 +1,8 @@
#lang racket/base
(require "../expression-structs.rkt"
"../lexical-env.rkt"
"../lexical-structs.rkt"
(require "../compiler/expression-structs.rkt"
"../compiler/lexical-env.rkt"
"../compiler/lexical-structs.rkt"
"../helpers.rkt"
"../parameters.rkt"
"lam-entry-gensym.rkt"

4
parser/parse-bytecode-5.1.1.rkt
View File

@ -4,8 +4,8 @@
(require "typed-module-path.rkt"
"lam-entry-gensym.rkt"
"path-rewriter.rkt"
"../expression-structs.rkt"
"../lexical-structs.rkt"
"../compiler/expression-structs.rkt"
"../compiler/lexical-structs.rkt"
"../parameters.rkt"
"../get-module-bytecode.rkt"
syntax/modresolve

2
simulator/simulator-primitives.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require "simulator-structs.rkt"
"../il-structs.rkt"
"simulator-helpers.rkt"
"../compiler/il-structs.rkt"
racket/math
racket/list
(for-syntax racket/base))

6
simulator/simulator-structs.rkt
View File

@ -2,9 +2,9 @@
(provide (all-defined-out))
(require "../il-structs.rkt"
"../expression-structs.rkt"
"../lexical-structs.rkt")
(require "../compiler/il-structs.rkt"
"../compiler/expression-structs.rkt"
"../compiler/lexical-structs.rkt")

11
simulator/simulator.rkt
View File

@ -6,12 +6,11 @@
;; I also need to do things like count pushes and pops. Basically, low-level benchmarking.
(require "simulator-structs.rkt"
"../expression-structs.rkt"
"../il-structs.rkt"
"../lexical-structs.rkt"
"../bootstrapped-primitives.rkt"
"../kernel-primitives.rkt"
"../expression-structs.rkt"
"../compiler/expression-structs.rkt"
"../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../compiler/bootstrapped-primitives.rkt"
"../compiler/kernel-primitives.rkt"
racket/list
racket/match
(for-syntax racket/base))

5
tests/test-assemble.rkt
View File

@ -3,9 +3,8 @@
(require "browser-evaluate.rkt"
"../js-assembler/assemble.rkt"
"../js-assembler/get-runtime.rkt"
"../lexical-structs.rkt"
"../il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../compiler/il-structs.rkt"
racket/port
racket/promise
racket/runtime-path)

35
tests/test-get-dependencies.rkt
View File

@ -2,19 +2,18 @@
(require "../get-dependencies.rkt"
"../get-module-bytecode.rkt"
"../parser/parse-bytecode.rkt"
"../lexical-structs.rkt"
"../compiler/lexical-structs.rkt"
racket/path
racket/runtime-path
rackunit)
(printf "test-get-dependencies.rkt\n")
(define-runtime-path compiler-path "..")
;(printf "This is the path: ~s\n"
; (path->string (normalize-path compiler-path)))
;(flush-output)
(define-runtime-path get-dependencies-path
(build-path ".." "get-dependencies.rkt"))
(define-runtime-path get-module-bytecode-path
(build-path ".." "get-module-bytecode.rkt"))
@ -22,11 +21,11 @@
(normalize-path
(let ([p (find-system-path 'collects-dir)])
(cond
[(relative-path? p)
(find-executable-path (find-system-path 'exec-file)
(find-system-path 'collects-dir))]
[else
p]))))
[(relative-path? p)
(find-executable-path (find-system-path 'exec-file)
(find-system-path 'collects-dir))]
[else
p]))))
@ -37,7 +36,7 @@
(define e
(parse-bytecode (build-path compiler-path "get-dependencies.rkt")))
(parse-bytecode get-dependencies-path))
(void (get-dependencies e))
@ -52,19 +51,19 @@
;; This should have three dependencies: racket/base, racket/match, and get-module-bytecode.
(let ([ip (open-input-string
(format (string-append "(module foo racket/base (require racket/math "
"(file \"~a/get-module-bytecode.rkt\")) (exp 1))")
(path->string (normalize-path compiler-path))))])
"(file ~s)) (exp 1))")
(path->string (normalize-path get-module-bytecode-path))))])
(check-equal? (sort (get-dependencies (parse-bytecode
(open-input-bytes
(get-module-bytecode ip))))
(get-module-bytecode ip))))
module-name<)
(sort
(list (make-ModuleLocator 'collects/racket/base.rkt
(normalize-path (build-path collects-dir "racket" "base.rkt")))
(normalize-path (build-path collects-dir "racket" "base.rkt")))
(make-ModuleLocator 'collects/racket/math.rkt
(normalize-path (build-path collects-dir "racket" "math.rkt")))
(normalize-path (build-path collects-dir "racket" "math.rkt")))
(make-ModuleLocator 'whalesong/get-module-bytecode.rkt
(normalize-path (build-path compiler-path "get-module-bytecode.rkt"))))
(normalize-path get-module-bytecode-path)))
module-name<)))

4
tests/test-helpers.rkt
View File

@ -2,8 +2,8 @@
(require (prefix-in racket: racket/base)
racket/runtime-path
"../compiler-structs.rkt"
"../compiler.rkt"
"../compiler/compiler-structs.rkt"
"../compiler/compiler.rkt"
"../parser/parse-bytecode.rkt"
"../get-module-bytecode.rkt"
"../language-namespace.rkt")

4
tests/test-parse-bytecode.rkt
View File

@ -6,8 +6,8 @@
racket/path
"../parameters.rkt"
"../parser/parse-bytecode.rkt"
"../lexical-structs.rkt"
"../expression-structs.rkt"
"../compiler/lexical-structs.rkt"
"../compiler/expression-structs.rkt"
racket/runtime-path
(for-syntax racket/base))

4
tests/test-parse.rkt
View File

@ -2,8 +2,8 @@
(require "../parser/baby-parser.rkt"
"../parser/lam-entry-gensym.rkt"
"../lexical-structs.rkt"
"../expression-structs.rkt"
"../compiler/lexical-structs.rkt"
"../compiler/expression-structs.rkt"
(for-syntax racket/base))
(printf "test-parse.rkt\n");

4
tests/test-simulator.rkt
View File

@ -1,7 +1,7 @@
#lang racket
(require "../il-structs.rkt"
"../lexical-structs.rkt"
(require "../compiler/il-structs.rkt"
"../compiler/lexical-structs.rkt"
"../simulator/simulator-structs.rkt"
"../simulator/simulator-primitives.rkt"
"../simulator/simulator.rkt")