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

continuing to mock up skeleton code

Browse Source
This commit is contained in:
Danny Yoo 2011-08-22 14:59:27 -04:00
parent 225ea42d0c
commit 195fbcdf74
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
web-world/impl.rkt Normal file
View File

@ -0,0 +1,8 @@
#lang s-exp "../lang/js/js.rkt"
(declare-implementation
#:racket "racket-impl.rkt"
#:javascript ("js-impl.js")
#:provided-values (big-bang
initial-view
stop-when))

3
web-world/main.rkt
View File

@ -1 +1,4 @@
#lang s-exp "../lang/base.rkt"
(require "impl.rkt")
(provide (all-from-out "impl.rkt"))

12
web-world/racket-impl.rkt Normal file
View File

@ -0,0 +1,12 @@
#lang racket/base
(provide big-bang initial-view stop-when)
(define (big-bang world . handlers)
(error 'big-bang "Please run in JavaScript context."))
(define (initial-view a-view-or-resource)
(error 'initial-view "Please run in JavaScript context."))
(define (stop-when a-view-or-resource)
(error 'stop-when "Please run in JavaScript context."))