in the middle of fixing require for js-implemented modules

examples/image-program.rkt

@@ -1,5 +1,5 @@
 #lang planet dyoo/whalesong
-(require (planet dyoo/whalesong/world))
+(require (planet dyoo/whalesong/image))
 
 (display "hello again")
 (newline)

js-assembler/package.rkt

@@ -10,6 +10,7 @@
          "../parser/path-rewriter.rkt"
          "../parser/parse-bytecode.rkt"
          racket/match
+         racket/list
          (prefix-in query: "../lang/js/query.rkt")
          (planet dyoo/closure-compile:1:1)
          (prefix-in runtime: "get-runtime.rkt")
@@ -106,32 +107,65 @@
       (log-debug "~a requires ~a"
                  (ModuleSource-path src)
                  module-requires)
-      (make-UninterpretedSource
+      (let ([module-body-text
             (format "
-MACHINE.modules[~s] =
-    new plt.runtime.ModuleRecord(~s,
-        function(MACHINE) {
              if(--MACHINE.callsBeforeTrampoline<0) { throw arguments.callee; }
              var modrec = MACHINE.modules[~s];
              var exports = {};
              modrec.isInvoked = true;
              (function(MACHINE, RUNTIME, EXPORTS){~a})(MACHINE, plt.runtime, exports);
-           // FIXME: we need to inject the namespace with the values defined in exports.
              ~a
-           return MACHINE.control.pop().label(MACHINE);
+             return MACHINE.control.pop().label(MACHINE);"
+                    (symbol->string name)
+                    text
+                    (get-provided-name-code bytecode))])
+
+      (make-UninterpretedSource
+       (format "
+MACHINE.modules[~s] =
+    new plt.runtime.ModuleRecord(~s,
+        function(MACHINE) {
+            ~a
         });
 "
                (symbol->string name)
                (symbol->string name)
-                  (symbol->string name)
+               (assemble-modinvokes module-requires module-body-text))
-                  text
+
-                  (get-provided-name-code bytecode))))]
+       (map make-ModuleSource module-requires))))]
+
+
    [(SexpSource? src)
     (error 'get-javascript-implementation)]
    [(UninterpretedSource? src)
     (error 'get-javascript-implementation)]))
 
 
+(define (assemble-modinvokes paths after)
+  (cond
+   [(empty? paths)
+    after]
+   [else
+    (assemble-modinvoke (first paths)
+                        (assemble-modinvokes (rest paths) after))]))
+
+
+(define (assemble-modinvoke path after)
+  (format "if (! MACHINE.modules[~s].isInvoked) {
+               MACHINE.modules[~s].invoke(MACHINE,
+                                          function() {
+                                              ~a
+                                          },
+                                          MACHINE.params.currentErrorHandler);
+           } else {
+               ~a
+           }
+          "
+          path
+          path
+          after
+          after))
+
 
 
 

js-assembler/runtime-src/runtime.js

@@ -223,6 +223,7 @@ if(this['plt'] === undefined) { this['plt'] = {}; }
 	}
     };
     
+
     // External invokation of a module.
     ModuleRecord.prototype.invoke = function(MACHINE, succ, fail) {
         MACHINE = MACHINE || plt.runtime.currentMachine;

make/make-structs.rkt

@@ -25,7 +25,8 @@
   #:transparent)
 (define-struct: SexpSource ([sexp : Any])
   #:transparent)
-(define-struct: UninterpretedSource ([datum : String])
+(define-struct: UninterpretedSource ([datum : String]
+                                     [neighbors : (Listof Source)])
   #:transparent)
 
 

make/make.rkt

@@ -131,6 +131,10 @@
          (: collect-new-dependencies
             (Source (U False Expression) -> (Listof Source)))
          (define (collect-new-dependencies this-source ast)
+           (cond
+            [(UninterpretedSource? this-source)
+             (UninterpretedSource-neighbors this-source)]
+            [else
              (cond
               [(eq? ast #f)
                empty]
@@ -151,7 +155,7 @@
                                                 acc])))
                               '()
                               dependent-module-names)])
-               paths)]))
+                 paths)])]))
          
          (let: loop : Void ([sources : (Listof Source) sources])
            (cond

tests/test-all.rkt

@@ -11,7 +11,7 @@
          "test-conform-browser.rkt"
          "test-earley-browser.rkt"
          "test-get-dependencies.rkt"
-         "more-tests/run-more-tests.rkt")
+         "run-more-tests.rkt")
 
 
 ;; This test takes a bit too much time.