suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

moving runtime.js to the js-assembler subdirectory

Browse Source
This commit is contained in:
Danny Yoo 2011-05-14 00:06:26 -04:00
parent 891e3c73b0
commit 387048f381
6 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
js-assembler/get-runtime.rkt Normal file
View File

@ -0,0 +1,19 @@
#lang racket/base
;; Function to get the runtime library.
(require racket/contract
racket/runtime-path
racket/port)
(provide/contract [get-runtime (-> string?)])
(define-runtime-path runtime.js "runtime.js")
(define text (call-with-input-file runtime.js
(lambda (ip)
(port->string ip))))
(define (get-runtime)
text)

0
runtime.js → js-assembler/runtime.js
View File

6
test-assemble.rkt
View File

@ -1,6 +1,7 @@
#lang racket #lang racket
(require "js-assembler/assemble.rkt" (require "js-assembler/assemble.rkt"
"js-assembler/get-runtime.rkt"
"browser-evaluate.rkt" "browser-evaluate.rkt"
"lexical-structs.rkt" "lexical-structs.rkt"
"il-structs.rkt" "il-structs.rkt"
@ -8,9 +9,8 @@
racket/promise racket/promise
racket/runtime-path) racket/runtime-path)
(define-runtime-path runtime.js "runtime.js") (define runtime (get-runtime))
(define runtime (call-with-input-file runtime.js
(lambda (ip) (port->string ip))))
; Test out the compiler, using the simulator. ; Test out the compiler, using the simulator.
(define-syntax (test stx) (define-syntax (test stx)

10
test-browser-evaluate.rkt
View File

@ -1,12 +1,10 @@
#lang racket #lang racket
(require "browser-evaluate.rkt" (require "js-assembler/get-runtime.rkt"
"browser-evaluate.rkt"
"package.rkt" "package.rkt"
racket/runtime-path) racket/runtime-path)
(define-runtime-path runtime.js
"runtime.js"
#;"runtime.compressed.js")
(define evaluate (make-evaluate (define evaluate (make-evaluate
(lambda (program op) (lambda (program op)
@ -14,9 +12,7 @@
(fprintf op "(function () {") (fprintf op "(function () {")
;; The runtime code ;; The runtime code
(call-with-input-file* runtime.js (displayln (get-runtime) op)
(lambda (ip)
(copy-port ip op)))
(newline op) (newline op)

7
test-conform-browser.rkt
View File

@ -1,20 +1,17 @@
#lang racket #lang racket
(require "browser-evaluate.rkt" (require "browser-evaluate.rkt"
"package.rkt" "package.rkt"
"js-assembler/get-runtime.rkt"
racket/port racket/port
racket/runtime-path) racket/runtime-path)
(define-runtime-path runtime.js "runtime.js")
(define evaluate (make-evaluate (define evaluate (make-evaluate
(lambda (program op) (lambda (program op)
(fprintf op "(function () {") (fprintf op "(function () {")
;; The runtime code (displayln (get-runtime) op)
(call-with-input-file* runtime.js
(lambda (ip)
(copy-port ip op)))
(newline op) (newline op)

7
test-earley-browser.rkt
View File

@ -1,20 +1,17 @@
#lang racket #lang racket
(require "browser-evaluate.rkt" (require "browser-evaluate.rkt"
"package.rkt" "package.rkt"
"js-assembler/get-runtime.rkt"
racket/port racket/port
racket/runtime-path) racket/runtime-path)
(define-runtime-path runtime.js "runtime.js")
(define evaluate (make-evaluate (define evaluate (make-evaluate
(lambda (program op) (lambda (program op)
(fprintf op "(function () {") (fprintf op "(function () {")
;; The runtime code (displayln (get-runtime) op)
(call-with-input-file* runtime.js
(lambda (ip)
(copy-port ip op)))
(newline op) (newline op)