Moved compiler-related stuff to compiler subdirectory

compiler/bootstrapped-primitives.rkt

@@ -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)])
 
 

compiler/compiler.rkt

@@ -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)

compiler/lexical-env.rkt

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

get-dependencies.rkt

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

js-assembler/assemble-expression.rkt

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

js-assembler/assemble-helpers.rkt

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

js-assembler/assemble-open-coded.rkt

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

js-assembler/assemble-perform-statement.rkt

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

js-assembler/assemble-structs.rkt

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

js-assembler/assemble.rkt

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

js-assembler/collect-jump-targets.rkt

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

make-structs.rkt

@@ -1,12 +1,13 @@
 #lang typed/racket/base
 
-(require "compiler.rkt"
+(require "compiler/compiler.rkt"
-         "il-structs.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

make.rkt

@@ -1,12 +1,12 @@
 #lang typed/racket/base
 
-(require "compiler.rkt"
+(require "compiler/compiler.rkt"
-         "il-structs.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"

parameters.rkt

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

parser/baby-parser.rkt

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

parser/parse-bytecode-5.1.1.rkt

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

simulator/simulator-primitives.rkt

@@ -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))

simulator/simulator-structs.rkt

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

simulator/simulator.rkt

@@ -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"
+         "../compiler/expression-structs.rkt"
-         "../il-structs.rkt"
+         "../compiler/il-structs.rkt"
-         "../lexical-structs.rkt"
+         "../compiler/lexical-structs.rkt"
-         "../bootstrapped-primitives.rkt"
+         "../compiler/bootstrapped-primitives.rkt"
-         "../kernel-primitives.rkt"
+         "../compiler/kernel-primitives.rkt"
-         "../expression-structs.rkt"
          racket/list
          racket/match
          (for-syntax racket/base))

tests/test-assemble.rkt

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

tests/test-get-dependencies.rkt

@@ -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 "..")
 
-
+(define-runtime-path get-dependencies-path
-;(printf "This is the path: ~s\n"
+  (build-path ".." "get-dependencies.rkt"))
-;        (path->string (normalize-path compiler-path)))
+(define-runtime-path get-module-bytecode-path
-;(flush-output)
+  (build-path ".." "get-module-bytecode.rkt"))
 
 
 
@@ -22,11 +21,11 @@
   (normalize-path
    (let ([p (find-system-path 'collects-dir)])
      (cond
-       [(relative-path? p)
+      [(relative-path? p)
-        (find-executable-path (find-system-path 'exec-file)
+       (find-executable-path (find-system-path 'exec-file)
-                              (find-system-path 'collects-dir))]
+                             (find-system-path 'collects-dir))]
-       [else
+      [else
-        p]))))
+       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))")
+                                  "(file ~s)) (exp 1))")
-                   (path->string (normalize-path compiler-path))))])
+                   (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<)))

tests/test-helpers.rkt

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

tests/test-parse-bytecode.rkt

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

tests/test-parse.rkt

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

tests/test-simulator.rkt

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