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

need to write the code to handler initialization

Browse Source
This commit is contained in:
Danny Yoo 2011-08-22 18:03:29 -04:00
parent e9a951f04d
commit 693bec328d
3 changed files with 104 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
web-world/impl.rkt
View File

@ -10,4 +10,5 @@
#:javascript ("js-impl.js")
#:provided-values (big-bang
initial-view
stop-when))
stop-when
on-tick))

104
web-world/js-impl.js
View File

@ -104,6 +104,22 @@ var isStopWhenHandler = plt.baselib.makeClassPredicate(StopWhenHandler);
var OnTickHandler = function(args, onTick, delay) {
WorldHandler.call(this, args);
// stopWhen: Racket procedure (World -> boolean)
this.onTick = onTick;
this.delay = delay;
};
OnTickHandler.prototype = plt.baselib.heir(WorldHandler.prototype);
OnTickHandler.prototype.toString = function() { return "#<on-tick>"; };
var isOnTickHandler = plt.baselib.makeClassPredicate(OnTickHandler);
var findHandler = function(MACHINE, pred) {
var i;
@ -116,6 +132,19 @@ var findHandler = function(MACHINE, pred) {
};
// var startHandlers = function(MACHINE, handlers, onEvent, success, fail) {
// if (handlers.length === 0) {
// success();
// }
// handlers[0].onStart(MACHINE, onEvent,
// function(data) {
// startHandlers(MACHINE, handlers.slice(1), onEvent, success, fail);
// });
// }
//////////////////////////////////////////////////////////////////////
@ -123,16 +152,19 @@ EXPORTS['big-bang'] = makeClosure(
'big-bang',
plt.baselib.arity.makeArityAtLeast(1),
function(MACHINE) {
var oldArgcount = MACHINE.argcount;
var world = MACHINE.env[MACHINE.env.length - 1];
var initialViewHandler = findHandler(MACHINE, isInitialViewHandler);
var oldArgcount = MACHINE.argcount;
var top = $("<div/>");
MACHINE.params.currentDisplayer(MACHINE, top);
PAUSE(function(restart) {
initialViewHandler.view.initialRender(top);
// Initialize event handlers to send to that channel.
var onRestart = function() {
restart(function(MACHINE) {
MACHINE.argcount = oldArgcount;
@ -155,10 +187,19 @@ EXPORTS['initial-view'] = makeClosure(
restart(function(MACHINE) {
finalizeClosureCall(MACHINE,
new InitialViewHandler(
{ onStart : function(MACHINE, k) {k()},
onPause : function(MACHINE, k) {k()},
onResume : function(MACHINE, k) {k()},
onStop : function(MACHINE, k) {k()}
{
onStart : function(MACHINE, onEvent, k) {
k();
},
onPause : function(MACHINE, data, k) {
k(data);
},
onResume : function(MACHINE, data, k) {
k(data);
},
onStop : function(MACHINE, data, k) {
k();
}
},
v));
});
@ -181,10 +222,19 @@ EXPORTS['stop-when'] = makePrimitiveProcedure(
function(MACHINE) {
var stopWhen = checkProcedure(MACHINE, 'stop-when', 0);
return new StopWhenHandler(
{ onStart : function(MACHINE, k) {k()},
onPause : function(MACHINE, k) {k()},
onResume : function(MACHINE, k) {k()},
onStop : function(MACHINE, k) {k()}
{
onStart : function(MACHINE, onEvent, k) {
k()
},
onPause : function(MACHINE, data, k) {
k(data)
},
onResume : function(MACHINE, data, k) {
k(data)
},
onStop : function(MACHINE, data, k) {
k()
}
},
stopWhen
);
@ -192,6 +242,40 @@ EXPORTS['stop-when'] = makePrimitiveProcedure(
});
EXPORTS['on-tick'] = makePrimitiveProcedure(
'on-tick',
1,
function(MACHINE) {
var onTick = checkProcedure(MACHINE, 'on-tick', 0);
return new OnTickHandler(
{
onStart : function(MACHINE, onEvent, k) {
var id = setInterval(function () { onEvent(); },
this.delay);
k( { id : id,
onEvent : onEvent }) ;
},
onPause : function(MACHINE, data, k) {
clearInterval(data.id);
k(data)
},
onResume : function(MACHINE, data, k) {
data.id = setInterval(function () { data.onEvent() },
this.delay);
k(data)
},
onStop : function(MACHINE, data, k) {
clearInterval(data.id);
k()
}
},
onTick
);
return undefined;
});

10
web-world/racket-impl.rkt
View File

@ -8,5 +8,11 @@
(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."))
(define (stop-when f)
(error 'stop-when "Please run in JavaScript context."))
(define on-tick
(case-lambda [(f)
(error 'on-tick "Please run in JavaScript context.")]
[(f delay)
(error 'on-tick "Please run in JavaScript context.")]))