splitting modules appears to be doing something.

js-assembler/package.rkt

@@ -253,21 +253,38 @@ M.modules[~s] =
       [else
        src]))
   
+
+  (define (maybe-with-fresh-file thunk)
+    (cond
+     [(current-one-module-per-file?)
+      (define old-port op)
+      (define temp-string (open-output-string))
+      (set! op temp-string)
+      (thunk)
+      (set! op old-port)
+      (call-with-output-file (next-file-path)
+        (lambda (op)
+          (display (compress (get-output-string temp-string)) op))
+        #:exists 'replace)]
+     [else
+      (thunk)]))
+
   
   (define (on-visit-src src ast stmts)
     ;; Record the use of resources on source module visitation...
     (set! resources (set-union resources (list->set (source-resources src))))
 
-    
+    (maybe-with-fresh-file
-    (fprintf op "\n// ** Visiting ~a\n" (source-name src))
+     (lambda ()
-    (define start-time (current-inexact-milliseconds))
+       (fprintf op "\n// ** Visiting ~a\n" (source-name src))
-    (cond
+       (define start-time (current-inexact-milliseconds))
-     [(UninterpretedSource? src)
+       (cond
-      (fprintf op "(function(M) { ~a }(plt.runtime.currentMachine));" (UninterpretedSource-datum src))]
+        [(UninterpretedSource? src)
-     [else      
+         (fprintf op "(function(M) { ~a }(plt.runtime.currentMachine));" (UninterpretedSource-datum src))]
-      (fprintf op "(")
+        [else      
-      (assemble/write-invoke stmts op)
+         (fprintf op "(")
-      (fprintf op ")(plt.runtime.currentMachine,
+         (assemble/write-invoke stmts op)
+         (fprintf op ")(plt.runtime.currentMachine,
                      function() {
                           if (window.console && window.console.log) {
                               window.console.log('loaded ' + ~s);
@@ -279,11 +296,11 @@ M.modules[~s] =
                           }
                      },
                      {});"
-               (format "~a" (source-name src))
+                  (format "~a" (source-name src))
-               (format "~a" (source-name src)))
+                  (format "~a" (source-name src)))
-      (define stop-time (current-inexact-milliseconds))
+         (define stop-time (current-inexact-milliseconds))
-      (fprintf (current-timing-port) "  assembly: ~s milliseconds\n" (- stop-time start-time))
+         (fprintf (current-timing-port) "  assembly: ~s milliseconds\n" (- stop-time start-time))
-      (void)]))
+         (void)]))))
   
   
   (define (after-visit-src src)

parameters.rkt

@@ -16,9 +16,11 @@
          current-root-path
          current-warn-unimplemented-kernel-primitive
          current-seen-unimplemented-kernel-primitives
+
          current-kernel-module-locator?
          current-compress-javascript?
-
+         current-one-module-per-file?
+         
          current-report-port
          current-timing-port
          )

whalesong-helpers.rkt

@@ -98,12 +98,13 @@
                                                        (format "_~a.js" n)))))
         (set! written-js-paths (cons result written-js-paths))
         (set! n (add1 n))
+        (fprintf (current-report-port)
+                 (format "Writing program ~s\n" result))
         result)))
       
 
   (define start-time (current-inexact-milliseconds))
-  (let ([output-js-filename (make-output-js-filename)]
+  (let ([output-html-filename
-        [output-html-filename
          (build-path
           (regexp-replace #rx"[.](rkt|ss)$"
                           (path->string (file-name-from-path f))
@@ -136,9 +137,7 @@
                            (copy-file (resource-path r) 
                                       (build-path (current-output-dir)
                                                   (resource-key r)))]))])
-        (fprintf (current-report-port)
+        (call-with-output-file* (make-output-js-filename)
-                 (format "Writing program ~s\n" output-js-filename))
-        (call-with-output-file* output-js-filename
                                 (lambda (op)
                                   (display (get-runtime) op)
                                   (display (get-inert-code (make-ModuleSource (build-path f))
@@ -150,7 +149,9 @@
                  (format "Writing html ~s\n" (build-path (current-output-dir) output-html-filename)))
         (call-with-output-file* (build-path (current-output-dir) output-html-filename)
                                 (lambda (op)
-                                  (display (get-html-template (map file-name-from-path written-js-paths))
+                                  (display (get-html-template
+                                            (map file-name-from-path
+                                                 (reverse written-js-paths)))
                                            op))
                                 #:exists 'replace)
         (define stop-time (current-inexact-milliseconds))

whalesong.rkt

@@ -69,6 +69,9 @@
             [("--compress-javascript")
              ("Compress JavaScript with Google Closure (requires Java)")
              (current-compress-javascript? #t)]
+            [("--split-modules")
+             ("Write one file per module")
+             (current-one-module-per-file? #t)]
             [("--dest-dir")
              dest-dir
              ("Set destination directory (default: current-directory)")