102 lines
3.0 KiB
Racket
102 lines
3.0 KiB
Racket
#lang racket/base
|
|
|
|
;; Function to get the runtime library.
|
|
;;
|
|
;; The resulting Javascript will produce a file that loads:
|
|
;;
|
|
;;
|
|
;; jquery at the the toplevel
|
|
;; HashTable at the toplevel
|
|
;; jsnums at the toplevel
|
|
;;
|
|
;; followed by:
|
|
;;
|
|
;; plt.link
|
|
;; plt.helpers
|
|
;; plt.types
|
|
;; plt.primitives
|
|
;; plt.runtime
|
|
|
|
|
|
|
|
(require racket/contract
|
|
racket/runtime-path
|
|
racket/port)
|
|
|
|
|
|
|
|
(provide/contract [get-runtime (-> string?)])
|
|
|
|
;; jquery is special: we need to make sure it's resilient against
|
|
;; multiple invokation and inclusion.
|
|
(define-runtime-path jquery-protect-header.js "runtime-src/jquery-protect-header.js")
|
|
(define-runtime-path jquery.js "runtime-src/jquery.js")
|
|
(define-runtime-path jquery-protect-footer.js "runtime-src/jquery-protect-footer.js")
|
|
|
|
|
|
(define-runtime-path baselib.js "runtime-src/baselib.js")
|
|
(define-runtime-path baselib_unionfind.js "runtime-src/baselib_unionfind.js")
|
|
(define-runtime-path baselib_hash.js "runtime-src/baselib_hash.js")
|
|
(define-runtime-path baselib_symbol.js "runtime-src/baselib_symbol.js")
|
|
(define-runtime-path baselib_structs.js "runtime-src/baselib_structs.js")
|
|
(define-runtime-path baselib_arity.js "runtime-src/baselib_arity.js")
|
|
(define-runtime-path baselib_inspectors.js "runtime-src/baselib_inspectors.js")
|
|
(define-runtime-path baselib_exceptions.js "runtime-src/baselib_exceptions.js")
|
|
|
|
|
|
(define-runtime-path jshashtable.js "runtime-src/jshashtable-2.1_src.js")
|
|
(define-runtime-path jsnums.js "runtime-src/js-numbers.js")
|
|
(define-runtime-path link.js "runtime-src/link.js")
|
|
|
|
;; from js-vm
|
|
(define-runtime-path helpers.js "runtime-src/helpers.js")
|
|
;; from js-vm
|
|
(define-runtime-path types.js "runtime-src/types.js")
|
|
;; These primitives were coded for the js-vm project, and we'll gradually
|
|
;; absorb them in.
|
|
;(define-runtime-path js-vm-primitives.js "runtime-src/js-vm-primitives.js")
|
|
|
|
(define-runtime-path runtime.js "runtime-src/runtime.js")
|
|
|
|
|
|
;; The order matters here. link needs to come near the top, because
|
|
;; the other modules below have some circular dependencies that are resolved
|
|
;; by link.
|
|
(define files (list jquery-protect-header.js
|
|
jquery.js
|
|
jquery-protect-footer.js
|
|
|
|
jshashtable.js
|
|
jsnums.js
|
|
|
|
baselib.js
|
|
baselib_unionfind.js
|
|
baselib_hash.js
|
|
baselib_symbol.js
|
|
baselib_structs.js
|
|
baselib_arity.js
|
|
baselib_inspectors.js
|
|
baselib_exceptions.js
|
|
|
|
|
|
|
|
link.js
|
|
helpers.js
|
|
types.js
|
|
; js-vm-primitives.js
|
|
runtime.js))
|
|
|
|
|
|
|
|
(define (path->string p)
|
|
(call-with-input-file p
|
|
(lambda (ip)
|
|
(port->string ip))))
|
|
|
|
|
|
(define text (apply string-append
|
|
(map path->string files)))
|
|
|
|
|
|
(define (get-runtime)
|
|
text) |