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

trying to make world event sources out of javascript function call

Browse Source
This commit is contained in:
Danny Yoo 2012-03-04 20:40:15 -05:00
parent 19a8bc6840
commit c598b1933b
2 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
js/world/js-impl.js
View File

@ -2,8 +2,13 @@
(function() { (function() {
"use strict"; "use strict";
var resourceStructType = var WebWorld =
MACHINE.modules['whalesong/web-world.rkt'].getNamespace().get(''); MACHINE.modules['whalesong/web-world.rkt'].privateExports;
var EventSource = WebWorld.EventSource;
var EventHandler = WebWorld.EventHandler;
var makeClosure = plt.runtime.makeClosure;
var finalizeClosureCall = plt.runtime.finalizeClosureCall;
/** /**
@ -36,4 +41,16 @@
sender: sender }; sender: sender };
}; };
var makeJsWorldEvent = makeClosure(
'make-js-world-event',
0,
function(M) {
finalizeClosureCall(M, "first value", "second value");
});
EXPORTS['make-js-world-event'] = makeJsWorldEvent;
}()); }());

11
js/world/test.rkt
View File

@ -8,9 +8,14 @@
send-event) send-event)
on-event
send-event
(define (handle-event w v) (define (handle-event w v)
(add1 w)) (add1 w))
(big-bang 0 ;(big-bang 0
(on-event handle-event) ; (on-event handle-event)
(stop-when (lambda (w) (> w 5)))) ; (stop-when (lambda (w) (> w 5))))