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

adding stop-when

Browse Source
This commit is contained in:
Danny Yoo 2011-07-18 14:15:39 -04:00
parent 66327c28ee
commit 6b498d1e7a
5 changed files with 36 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/counting-world-program.rkt
View File

@ -11,7 +11,7 @@ handler
(big-bang 1
(on-tick add1 1)
;;(on-tick (lambda (w) (* w 2)) 1)
;;(stop-when (lambda (w) (> w 10)))
(stop-when (lambda (w) (> w 10)))
)

2
image/private/js-impl.js
View File

@ -270,11 +270,13 @@ EXPORTS['image-url'] =
1,
function(MACHINE) {
var url = checkString(MACHINE, 'image-url', 0);
var oldArgcount = MACHINE.argcount;
PAUSE(
function(restart) {
var rawImage = new Image();
rawImage.onload = function() {
restart(function(MACHINE) {
MACHINE.argcount = oldArgcount;
finalizeClosureCall(
MACHINE,
makeFileImage(url.toString(),

3
js-assembler/runtime-src/runtime.js
View File

@ -456,6 +456,8 @@ if(this['plt'] === undefined) { this['plt'] = {}; }
if(--MACHINE.callsBeforeTrampoline < 0) {
throw arguments.callee;
}
var oldArgcount = MACHINE.argcount;
var elt = MACHINE.env[MACHINE.env.length - 1];
var outputPort =
MACHINE.params.currentOutputPort;
@ -463,6 +465,7 @@ if(this['plt'] === undefined) { this['plt'] = {}; }
outputPort.writeDomNode(MACHINE, toDomNode(elt, 'print'));
outputPort.writeDomNode(MACHINE, toDomNode("\n", 'display'));
}
MACHINE.argcount = oldArgcount;
return finalizeClosureCall(MACHINE, VOID);
},
1,

6
world/js-impl.js
View File

@ -1,7 +1,6 @@
var PAUSE = plt.runtime.PAUSE;
var makeClosure = plt.baselib.functions.makeClosure;
var makeRational = plt.baselib.numbers.makeRational;
var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall;
var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure;
@ -42,7 +41,6 @@ EXPORTS['big-bang'] =
var initialWorldValue = MACHINE.env[MACHINE.env.length - 1];
var handlers = [];
for (var i = 1; i < MACHINE.argcount; i++) {
// FIXME: typecheck for configuration options
handlers.push(checkHandler(MACHINE, 'big-bang', i));
}
bigBang(MACHINE, initialWorldValue, handlers);
@ -74,20 +72,18 @@ EXPORTS['to-draw'] =
function(MACHINE) {
var f = checkProcedure1(MACHINE, "on-tick", 0);
return new OnDraw(f);
// FILL ME IN
});
EXPORTS['stop-when'] =
makePrimitiveProcedure(
'stop-when',
1,
function(MACHINE) {
var f = checkProcedure1(MACHINE, "on-tick", 0);
// FILL ME IN
return new StopWhen(f);
});

24
world/kernel.js
View File

@ -21,6 +21,8 @@ var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall;
var bigBang = function(MACHINE, initW, handlers) {
var oldArgcount = MACHINE.argcount;
var toplevelNode = $('<div/>').css('border', '2').appendTo(document.body);
var configs = [];
@ -59,6 +61,7 @@ var bigBang = function(MACHINE, initW, handlers) {
restart(function(MACHINE) {
MACHINE.argcount = oldArgcount;
finalizeClosureCall(
MACHINE,
finalWorldValue);
@ -222,9 +225,30 @@ DefaultOnDraw.prototype.toRawHandler = function(MACHINE) {
var StopWhen = function(handler) {
WorldConfigOption.call(this, 'stop-when');
this.handler = handler;
};
StopWhen.prototype = plt.baselib.heir(WorldConfigOption.prototype);
StopWhen.prototype.toRawHandler = function(MACHINE) {
var that = this;
var worldFunction = function(world, k) {
plt.baselib.functions.internalCallDuringPause(
MACHINE,
that.handler,
function(v) {
k(v);
},
function(err) {
console.log(err);
},
world);
}
return rawJsworld.stop_when(worldFunction);
};