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

working on the handlers

Browse Source
This commit is contained in:
Danny Yoo 2011-07-14 18:43:00 -04:00
parent 03165a4191
commit 337f53295b
3 changed files with 35 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
world/js-impl.js
View File

@ -26,7 +26,7 @@ EXPORTS['big-bang'] =
// FIXME: typecheck for configuration options
handlers.push(MACHINE.env[MACHINE.env.length - 1 - i]);
}
bigBang(initialWorldValue, handlers);
bigBang(MACHINE, initialWorldValue, handlers);
});

44
world/kernel.js
View File

@ -21,33 +21,35 @@ var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall;
var bigBang = function(MACHINE, initW, handlers) {
PAUSE(function(restart) {
var finalWorldValue = "not done yet";
// Once we finally get a value back, we can call
// restart at this point and finish the call to
// big-bang.
restart(function(MACHINE) {
finalizeClosureCall(
MACHINE,
finalWorldValue);
});
// var onBreak = function() {
// bigBangController.breaker();
// }
// state.addBreakRequestedListener(onBreak);
// var bigBangController = rawJsworld.bigBang(
// initW,
// state.getToplevelNodeHook()(),
// unwrappedConfigs,
// caller,
// function(v) {
// state.removeBreakRequestedListener(onBreak);
// restarter(v);
// },
// onFail);
var toplevelNode = $('<div/>').css('border', '2').appendTo(document.body);
var bigBangController = rawJsworld.bigBang(
toplevelNode.get(0),
initW,
handlers,
{},
function(finalWorldValue) {
// state.removeBreakRequestedListener(onBreak);
restart(function(MACHINE) {
finalizeClosureCall(
MACHINE,
finalWorldValue);
});
});
});
};

20
world/private/raw-jsworld.js
View File

@ -203,7 +203,7 @@ var rawJsworld = {};
Jsworld.gensym = gensym;
function map(a1, f) {
var map = function(a1, f) {
var b = new Array(a1.length);
for (var i = 0; i < a1.length; i++) {
b[i] = f(a1[i]);
@ -214,7 +214,7 @@ var rawJsworld = {};
function concat_map(a, f) {
var concat_map = function(a, f) {
var b = [];
for (var i = 0; i < a.length; i++) {
b = b.concat(f(a[i]));
@ -223,7 +223,7 @@ var rawJsworld = {};
}
function mapi(a, f) {
var mapi = function(a, f) {
var b = new Array(a.length);
for (var i = 0; i < a.length; i++) {
b[i] = f(a[i], i);
@ -233,7 +233,7 @@ var rawJsworld = {};
Jsworld.mapi = mapi;
function fold(a, x, f) {
var fold = function(a, x, f) {
for (var i = 0; i < a.length; i++) {
x = f(a[i], x);
}
@ -768,7 +768,7 @@ var rawJsworld = {};
}
BigBangRecord.prototype.restart = function() {
big_bang(this.top, this.world, this.handlerCreators, this.attribs);
bigBang(this.top, this.world, this.handlerCreators, this.attribs);
}
BigBangRecord.prototype.pause = function() {
@ -782,9 +782,11 @@ var rawJsworld = {};
};
//////////////////////////////////////////////////////////////////////
// Notes: big_bang maintains a stack of activation records; it should be possible
// to call big_bang re-entrantly.
function big_bang(top, init_world, handlerCreators, attribs, k) {
// Notes: bigBang maintains a stack of activation records; it should be possible
// to call bigBang re-entrantly.
function bigBang(top, init_world, handlerCreators, attribs, k) {
// clear_running_state();
// Construct a fresh set of the handlers.
@ -846,7 +848,7 @@ var rawJsworld = {};
}
Jsworld.big_bang = big_bang;
Jsworld.bigBang = bigBang;