#lang racket/base

(require "compile.rkt"
         "typed-structs.rkt"
         "assemble.rkt"
         "typed-parse.rkt"
         racket/runtime-path
         racket/port)

(provide package)

;; Packager: produce single .js files to be included.

(define-runtime-path runtime.js "runtime.js")

;; package: s-expression output-port -> void
(define (package source-code op)
  (call-with-input-file* runtime.js
    (lambda (ip)
      (copy-port ip op)))
  (newline op)
  (fprintf op "var invoke = ")
  (assemble/write-invoke (statements (compile-top (parse source-code)
                                                  'val
                                                  'return))
                         op)
  (fprintf op ";\n"))