continuing to try to make simple world programs run.
This commit is contained in:
Danny Yoo
parent
3134de4d87
commit
a0b1c7e196
|
|
@ -3,7 +3,15 @@
|
|||
(require (planet dyoo/whalesong/world))
|
||||
|
||||
|
||||
(circle 20 'solid 'blue)
|
||||
(big-bang 0 (on-tick add1 1))
|
||||
(define handler (on-tick add1 1))
|
||||
handler
|
||||
|
||||
"big bang should follow:"
|
||||
|
||||
(big-bang 0
|
||||
(on-tick add1 1)
|
||||
;;(stop-when (lambda (w) (> w 10)))
|
||||
)
|
||||
|
||||
|
||||
"all done"
|
||||
|
|
@ -5,9 +5,28 @@ var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall;
|
|||
var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure;
|
||||
|
||||
|
||||
var checkNonNegativeReal = plt.baselib.check.checkNonNegativeReal;
|
||||
|
||||
var checkProcedure = plt.baselib.check.checkProcedure;
|
||||
var checkNonNegativeReal = plt.baselib.check.checkNonNegativeReal;
|
||||
|
||||
// More specific function checkers, based on arity.
|
||||
var checkProcedure1 = plt.baselib.check.makeCheckArgumentType(
|
||||
function(x) { return (plt.baselib.functions.isProcedure(x) &&
|
||||
plt.baselib.arity.isArityMatching(x.arity, 1)); },
|
||||
'procedure that consumes a world argument');
|
||||
|
||||
|
||||
var checkProcedureWithKey = plt.baselib.check.makeCheckArgumentType(
|
||||
function(x) { return (plt.baselib.functions.isProcedure(x) &&
|
||||
plt.baselib.arity.isArityMatching(x.arity, 2)); },
|
||||
'procedure that consumes a world argument and a key');
|
||||
|
||||
|
||||
var checkHandler = plt.baselib.check.makeCheckArgumentType(
|
||||
isWorldConfigOption,
|
||||
"world configuration handler");
|
||||
|
||||
|
||||
|
||||
|
||||
// The default tick delay is 28 times a second.
|
||||
|
|
@ -24,7 +43,7 @@ EXPORTS['big-bang'] =
|
|||
var handlers = [];
|
||||
for (var i = 1; i < MACHINE.argcount; i++) {
|
||||
// FIXME: typecheck for configuration options
|
||||
handlers.push(MACHINE.env[MACHINE.env.length - 1 - i]);
|
||||
handlers.push(checkHandler(MACHINE, 'big-bang', i));
|
||||
}
|
||||
bigBang(MACHINE, initialWorldValue, handlers);
|
||||
});
|
||||
|
|
@ -37,10 +56,10 @@ EXPORTS['on-tick'] =
|
|||
plt.baselib.lists.makeList(1, 2),
|
||||
function(MACHINE) {
|
||||
if (MACHINE.argcount === 1) {
|
||||
var f = checkProcedure(MACHINE, "on-tick", 0);
|
||||
var f = checkProcedure1(MACHINE, "on-tick", 0);
|
||||
return new OnTick(f, DEFAULT_TICK_DELAY);
|
||||
} else if (MACHINE.argcount === 2) {
|
||||
var f = checkProcedure(MACHINE, "on-tick", 0);
|
||||
var f = checkProcedure1(MACHINE, "on-tick", 0);
|
||||
var delay = checkNonNegativeReal(MACHINE, "on-tick", 1);
|
||||
return new OnTick(f, delay);
|
||||
}
|
||||
|
|
@ -48,11 +67,31 @@ EXPORTS['on-tick'] =
|
|||
|
||||
|
||||
|
||||
EXPORTS['to-draw'] =
|
||||
makePrimitiveProcedure(
|
||||
'to-draw',
|
||||
1,
|
||||
function(MACHINE) {
|
||||
var f = checkProcedure1(MACHINE, "on-tick", 0);
|
||||
// FILL ME IN
|
||||
});
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
EXPORTS['stop-when'] =
|
||||
makePrimitiveProcedure(
|
||||
'to-draw',
|
||||
1,
|
||||
function(MACHINE) {
|
||||
var f = checkProcedure1(MACHINE, "on-tick", 0);
|
||||
// FILL ME IN
|
||||
});
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
872
world/kernel.js
872
world/kernel.js
|
|
@ -20,21 +20,30 @@ var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall;
|
|||
//////////////////////////////////////////////////////////////////////
|
||||
|
||||
var bigBang = function(MACHINE, initW, handlers) {
|
||||
PAUSE(function(restart) {
|
||||
|
||||
var toplevelNode = $('<div/>').css('border', '2').appendTo(document.body);
|
||||
|
||||
var configs = [];
|
||||
for (var i = 0 ; i < handlers.length; i++) {
|
||||
if (isWorldConfigOption(handlers[i])) {
|
||||
configs.push(handlers[i].toRawHandler(MACHINE));
|
||||
}
|
||||
else {
|
||||
configs.push(handlers[i]);
|
||||
}
|
||||
}
|
||||
|
||||
PAUSE(function(restart) {
|
||||
|
||||
// var onBreak = function() {
|
||||
// bigBangController.breaker();
|
||||
// }
|
||||
// state.addBreakRequestedListener(onBreak);
|
||||
|
||||
var toplevelNode = $('<div/>').css('border', '2').appendTo(document.body);
|
||||
|
||||
|
||||
var bigBangController = rawJsworld.bigBang(
|
||||
toplevelNode.get(0),
|
||||
initW,
|
||||
handlers,
|
||||
configs,
|
||||
{},
|
||||
function(finalWorldValue) {
|
||||
// state.removeBreakRequestedListener(onBreak);
|
||||
|
|
@ -48,13 +57,13 @@ var bigBang = function(MACHINE, initW, handlers) {
|
|||
|
||||
});
|
||||
|
||||
|
||||
|
||||
|
||||
});
|
||||
};
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
//////////////////////////////////////////////////////////////////////
|
||||
|
||||
// Every world configuration function (on-tick, stop-when, ...)
|
||||
|
|
@ -82,7 +91,7 @@ WorldConfigOption.prototype.toDisplayedString = function(cache) {
|
|||
return "(" + this.name + " ...)";
|
||||
};
|
||||
|
||||
var isWorldConfigOption = function(x) { return x instanceof WorldConfigOption; };
|
||||
var isWorldConfigOption = plt.baselib.makeClassPredicate(WorldConfigOption);
|
||||
|
||||
//////////////////////////////////////////////////////////////////////
|
||||
|
||||
|
|
@ -133,15 +142,844 @@ var convertAttribList = function(attribList) {
|
|||
var OnTick = function(handler, aDelay) {
|
||||
WorldConfigOption.call(this, 'on-tick');
|
||||
this.handler = handler;
|
||||
this.aDelay = aDelay;
|
||||
this.delay = jsnums.toFixnum(jsnums.multiply(1000, aDelay));
|
||||
};
|
||||
|
||||
OnTick.prototype = plt.baselib.heir(WorldConfigOption.prototype);
|
||||
|
||||
OnTick.prototype.configure = function(config) {
|
||||
return config.updateAll(
|
||||
{ onTick: this.handler,
|
||||
tickDelay: jsnums.toFixnum(jsnums.multiply(1000, this.aDelay))
|
||||
}
|
||||
);
|
||||
|
||||
OnTick.prototype.toRawHandler = function(MACHINE) {
|
||||
var worldFunction = function(world, k) {
|
||||
plt.baselib.functions.internalCallDuringPause(
|
||||
MACHINE,
|
||||
this.handler,
|
||||
function(v) {
|
||||
k(v);
|
||||
},
|
||||
|
||||
function(err) {
|
||||
console.log(err);
|
||||
});
|
||||
};
|
||||
return rawJsworld.on_tick(worldFunction, this.delay);
|
||||
};
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// // This needs to be cleaned up!
|
||||
|
||||
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
|
||||
// // The real low-level jsworld module:
|
||||
// var _js = jsworld.Jsworld;
|
||||
|
||||
|
||||
// var caller;
|
||||
// var setCaller = function(c) {
|
||||
// caller = function(op, args, k) {
|
||||
// c(op, args, k, handleError);
|
||||
// };
|
||||
// };
|
||||
// var unsetCaller = function() {
|
||||
// caller = function(op, args, k) {
|
||||
// throw new Error('caller not defined!');
|
||||
// };
|
||||
// };
|
||||
// unsetCaller();
|
||||
|
||||
// // The restarted and things to set it
|
||||
// // Note that we never want to restart the same computation
|
||||
// // more than once, so we throw an error if someone tries to do that
|
||||
// var restarter;
|
||||
// var setRestarter = function(r) {
|
||||
// var hasRestarted = false;
|
||||
// restarter = function(v) {
|
||||
// if (hasRestarted) {
|
||||
// throw new Error('Cannot restart twice!');
|
||||
// }
|
||||
// hasRestarted = true;
|
||||
// r(v);
|
||||
// };
|
||||
// };
|
||||
// var unsetRestarter = function() {
|
||||
// restarter = function() {
|
||||
// throw new Error('restarter not defined!');
|
||||
// };
|
||||
// };
|
||||
// unsetRestarter();
|
||||
|
||||
|
||||
// var errorReporter = function(e) {
|
||||
// // default: do nothing.
|
||||
// };
|
||||
|
||||
|
||||
|
||||
// var terminator;
|
||||
// var setTerminator = function(t) {
|
||||
// terminator = t;
|
||||
// };
|
||||
// var unsetTerminator = function() {
|
||||
// terminator = function() {
|
||||
// throw new Error('terminator not defined!');
|
||||
// };
|
||||
// };
|
||||
// unsetTerminator();
|
||||
|
||||
|
||||
|
||||
// // mutateStringsInDeepArray: array -> array
|
||||
// // walks and in-place mutates Scheme strings to primitive strings.
|
||||
// var mutateStringsInDeepArray = function(thing) {
|
||||
// var i, length;
|
||||
// if (typeof(thing) === 'object' &&
|
||||
// thing.constructor === Array) {
|
||||
// length = thing.length;
|
||||
// for (i = 0; i < length; i++) {
|
||||
// thing[i] = mutateStringsInDeepArray(thing[i]);
|
||||
// }
|
||||
// } else if (types.isString(thing)) {
|
||||
// return thing.toString();
|
||||
// }
|
||||
// return thing;
|
||||
// };
|
||||
|
||||
|
||||
|
||||
|
||||
// var userConfigs = [];
|
||||
|
||||
// var startUserConfigs = function(k) {
|
||||
// helpers.forEachK(userConfigs,
|
||||
// function(aConfig, k2) {
|
||||
// caller(aConfig.startup, aConfig.startupArgs,
|
||||
// function(res) {
|
||||
// aConfig.isRunning = true;
|
||||
// aConfig.shutdownArg = res;
|
||||
// k2()
|
||||
// });
|
||||
// },
|
||||
// handleError,
|
||||
// k);
|
||||
// }
|
||||
|
||||
// var shutdownUserConfigs = function(k) {
|
||||
// // console.log('shutting down user configs');
|
||||
// var theConfigs = userConfigs;
|
||||
// userConfigs = []
|
||||
// helpers.forEachK(theConfigs,
|
||||
// function(aConfig, k2) {
|
||||
// // console.log(' shutting down a config');
|
||||
// if (aConfig.isRunning) {
|
||||
// aConfig.isRunning = false;
|
||||
// caller(aConfig.shutdown, [aConfig.shutdownArg], k2);
|
||||
// } else {
|
||||
// k2();
|
||||
// }
|
||||
// },
|
||||
// handleError,
|
||||
// k);
|
||||
// }
|
||||
|
||||
// var expandHandler = function(handler) {
|
||||
// return types.jsValue('function', function() {
|
||||
// var wrappedStimulusArgs = [];
|
||||
// for (var i = 0; i < arguments.length; i++) {
|
||||
// wrappedStimulusArgs.push( helpers.wrapJsValue(arguments[i]) );
|
||||
// }
|
||||
|
||||
// Jsworld.updateWorld(
|
||||
// function(w, k) {
|
||||
// var args = [w].concat(wrappedStimulusArgs);
|
||||
// caller(handler, args, k);
|
||||
// },
|
||||
// function() {});
|
||||
// });
|
||||
// };
|
||||
|
||||
|
||||
// // var unwrapWorldEffects = function(w) {
|
||||
// // if ( _js.has_effects(w) ) {
|
||||
// // var unwrappedEffects =
|
||||
// // helpers.map(function(e) {
|
||||
// // if ( types.isEffect(e) ) {
|
||||
// // return types.makeJsworldEffect(function(k) {
|
||||
// // caller(types.effectThunk(e), [], k);
|
||||
// // });
|
||||
// // }
|
||||
// // else {
|
||||
// // return e;
|
||||
// // }
|
||||
// // },
|
||||
// // w.getEffects());
|
||||
// // var returnVal = _js.with_multiple_effects(w.getWorld(), unwrappedEffects);
|
||||
// // return returnVal;
|
||||
// // }
|
||||
// // else {
|
||||
// // return w;
|
||||
// // }
|
||||
// // };
|
||||
|
||||
|
||||
// var deepUnwrapJsValues = function(x, k) {
|
||||
// if ( types.isJsValue(x) ) {
|
||||
// k(x.unbox());
|
||||
// }
|
||||
// else if ( types.isRenderEffect(x) ) {
|
||||
// x.callImplementation(caller, function(y) { deepUnwrapJsValues(y, k); });
|
||||
// }
|
||||
// // var effects = helpers.schemeListToArray( types.renderEffectEffects(x) ).reverse();
|
||||
// // types.setRenderEffectEffects(x, types.EMPTY);
|
||||
// //
|
||||
// // helpers.forEachK(effects,
|
||||
// // function(ef, k2) { caller(ef, [], k2); },
|
||||
// // handleError,
|
||||
// // function() { deepUnwrapJsValues(types.renderEffectDomNode(x), k); });
|
||||
// // }
|
||||
// else if ( types.isPair(x) ) {
|
||||
// deepUnwrapJsValues(x.first(), function(first) {
|
||||
// deepUnwrapJsValues(x.rest(), function(rest) {
|
||||
// k( types.cons(first, rest) );
|
||||
// });
|
||||
// });
|
||||
// }
|
||||
// else {
|
||||
// k(x);
|
||||
// }
|
||||
// };
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// // isHandler: X -> boolean
|
||||
// // Right now, a handler is a function that consumes and produces
|
||||
// // configs. We should tighten up the type check eventually.
|
||||
// var isHandler = function(x) {
|
||||
// return typeof(x) == 'function';
|
||||
// }
|
||||
|
||||
|
||||
|
||||
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
// //From this point forward, we define wrappers to integrate jsworld
|
||||
// //with Moby.
|
||||
|
||||
|
||||
// // getBigBangWindow: -> window
|
||||
// var getBigBangWindow = function() {
|
||||
// if (window.document.getElementById("jsworld-div") !== undefined) {
|
||||
// return window;
|
||||
// } else {
|
||||
// var newDiv = window.document.createElement("div");
|
||||
// newDiv.id = 'jsworld-div';
|
||||
// window.document.appendChild(newDiv);
|
||||
// return window;
|
||||
// }
|
||||
// }
|
||||
|
||||
|
||||
// // types are
|
||||
// // sexp: (cons node (listof sexp))
|
||||
// // css-style: (node (listof (list string string)))
|
||||
|
||||
// // Exports:
|
||||
|
||||
|
||||
|
||||
|
||||
// var isPair = types.isPair;
|
||||
// var isEmpty = function(x) { return x === types.EMPTY; };
|
||||
// var isList = function(x) { return (isPair(x) || isEmpty(x)); };
|
||||
|
||||
|
||||
|
||||
// // The default printWorldHook will write the written content of the node.
|
||||
// // We probably want to invoke the pretty printer here instead!
|
||||
// Jsworld.printWorldHook = function(world, node) {
|
||||
// var newNode;
|
||||
// if(node.lastChild == null) {
|
||||
// newNode = types.toDomNode(world);
|
||||
// node.appendChild(newNode);
|
||||
// helpers.maybeCallAfterAttach(newNode);
|
||||
// } else {
|
||||
// newNode = types.toDomNode(world);
|
||||
// node.replaceChild(newNode, node.lastChild);
|
||||
// helpers.maybeCallAfterAttach(newNode);
|
||||
// }
|
||||
// };
|
||||
|
||||
|
||||
|
||||
// // Figure out the target of an event.
|
||||
// // http://www.quirksmode.org/js/events_properties.html#target
|
||||
// var findEventTarget = function(e) {
|
||||
// var targ;
|
||||
// if (e.target)
|
||||
// targ = e.target;
|
||||
// else if (e.srcElement)
|
||||
// targ = e.srcElement;
|
||||
// if (targ.nodeType == 3) // defeat Safari bug
|
||||
// targ = targ.parentNode;
|
||||
// return targ;
|
||||
// }
|
||||
|
||||
// // isNode: any -> boolean
|
||||
// // Returns true if the thing has a nodeType.
|
||||
// var isNode = function(thing) {
|
||||
// return thing && typeof(thing.nodeType) != 'undefined';
|
||||
// }
|
||||
|
||||
|
||||
|
||||
// // checkWellFormedDomTree: X X (or number undefined) -> void
|
||||
// // Check to see if the tree is well formed. If it isn't,
|
||||
// // we need to raise a meaningful error so the user can repair
|
||||
// // the structure.
|
||||
// //
|
||||
// // Invariants:
|
||||
// // The dom tree must be a pair.
|
||||
// // The first element must be a node.
|
||||
// // Each of the rest of the elements must be dom trees.
|
||||
// // If the first element is a text node, it must NOT have children.
|
||||
// var checkWellFormedDomTree = function(x, top, index) {
|
||||
// var fail = function(formatStr, formatArgs) {
|
||||
// throw types.schemeError(
|
||||
// types.incompleteExn(types.exnFailContract,
|
||||
// helpers.format(formatStr, formatArgs),
|
||||
// []));
|
||||
// }
|
||||
|
||||
// if (_js.isPage(x)) {
|
||||
// return;
|
||||
// }
|
||||
|
||||
// if (types.isPair(x)) {
|
||||
// var firstElt = x.first();
|
||||
// var restElts = x.rest();
|
||||
|
||||
// if (! isNode(firstElt)) {
|
||||
// fail("on-draw: expected a dom-element, but received ~s instead, the first element within ~s", [firstElt, top]);
|
||||
// }
|
||||
|
||||
// if (firstElt.nodeType == Node.TEXT_NODE && !restElts.isEmpty() ) {
|
||||
// fail("on-draw: the text node ~s must not have children. It has ~s", [firstElt, restElts]);
|
||||
// }
|
||||
|
||||
// var i = 2;
|
||||
// while( !restElts.isEmpty() ) {
|
||||
// checkWellFormedDomTree(restElts.first(), x, i);
|
||||
// restElts = restElts.rest();
|
||||
// i++;
|
||||
// }
|
||||
// } else {
|
||||
// var formatStr = "on-draw: expected a dom-s-expression, but received ~s instead";
|
||||
// var formatArgs = [x];
|
||||
// if (index != undefined) {
|
||||
// formatStr += ", the ~a element within ~s";
|
||||
// formatArgs.push( helpers.ordinalize(index) );
|
||||
// formatArgs.push(top);
|
||||
// }
|
||||
// formatStr += ".";
|
||||
|
||||
// fail(formatStr, formatArgs);
|
||||
// }
|
||||
// };
|
||||
|
||||
|
||||
// // Compatibility for attaching events to nodes.
|
||||
// var attachEvent = function(node, eventName, fn) {
|
||||
// if (node.addEventListener) {
|
||||
// // Mozilla
|
||||
// node.addEventListener(eventName, fn, false);
|
||||
// } else {
|
||||
// // IE
|
||||
// node.attachEvent('on' + eventName, fn, false);
|
||||
// }
|
||||
// return function() {
|
||||
// detachEvent(node, eventName, fn);
|
||||
// }
|
||||
// };
|
||||
|
||||
// var detachEvent = function(node, eventName, fn) {
|
||||
// if (node.addEventListener) {
|
||||
// // Mozilla
|
||||
// node.removeEventListener(eventName, fn, false);
|
||||
// } else {
|
||||
// // IE
|
||||
// node.detachEvent('on' + eventName, fn, false);
|
||||
// }
|
||||
// }
|
||||
|
||||
|
||||
// var preventDefault = function(event) {
|
||||
// if (event.preventDefault) {
|
||||
// event.preventDefault();
|
||||
// } else {
|
||||
// event.returnValue = false;
|
||||
// }
|
||||
// }
|
||||
|
||||
// var stopPropagation = function(event) {
|
||||
// if (event.stopPropagation) {
|
||||
// event.stopPropagation();
|
||||
// } else {
|
||||
// event.cancelBubble = true;
|
||||
// }
|
||||
// }
|
||||
|
||||
|
||||
// // bigBang: world dom (listof (list string string)) (arrayof handler) -> world
|
||||
// Jsworld.bigBang = function(initWorld, toplevelNode, handlers, theCaller, theRestarter, onFail) {
|
||||
// // shutdownListeners: arrayof (-> void)
|
||||
// // We maintain a list of thunks that need to be called as soon as we come out of
|
||||
// // bigBang, to do cleanup.
|
||||
// var shutdownListeners = [];
|
||||
|
||||
// var onTermination = function(w) {
|
||||
// for (var i = 0; i < shutdownListeners.length; i++) {
|
||||
// try {
|
||||
// shutdownListeners[i]();
|
||||
// } catch (e) { }
|
||||
// }
|
||||
// shutdownUserConfigs(function() {
|
||||
// unsetCaller();
|
||||
// theRestarter(w);
|
||||
// });
|
||||
// }
|
||||
|
||||
|
||||
// //console.log('in high level big-bang');
|
||||
// errorReporter = onFail;
|
||||
|
||||
// setCaller(theCaller);
|
||||
// setRestarter(theRestarter);
|
||||
// setTerminator(function(w) {
|
||||
// detachEvent(toplevelNode, 'click', absorber);
|
||||
// shutdownUserConfigs(function() {
|
||||
// unsetCaller();
|
||||
// unsetTerminator();
|
||||
// restarter(w);
|
||||
// });
|
||||
// });
|
||||
|
||||
// var attribs = types.EMPTY;
|
||||
|
||||
// // Ensure that the toplevelNode can be focused by mouse or keyboard
|
||||
// toplevelNode.tabIndex = 0;
|
||||
|
||||
// // Absorb all click events so they don't bubble up.
|
||||
// var absorber = function(e) {
|
||||
// preventDefault(e);
|
||||
// stopPropagation(e);
|
||||
// return false;
|
||||
// }
|
||||
|
||||
// attachEvent(toplevelNode, 'click', absorber);
|
||||
// shutdownListeners.push(function() { detachEvent(toplevelNode, 'click', absorber)});
|
||||
|
||||
|
||||
|
||||
// var config = new world.Kernel.config.WorldConfig();
|
||||
// for(var i = 0; i < handlers.length; i++) {
|
||||
// if (isList(handlers[i])) {
|
||||
// attribs = handlers[i];
|
||||
// }
|
||||
// else if (isHandler(handlers[i])) {
|
||||
// config = handlers[i](config);
|
||||
// }
|
||||
// else if ( types.isWorldConfig(handlers[i]) ) {
|
||||
// handlers[i].startupArgs = helpers.map(expandHandler, handlers[i].startupArgs);
|
||||
// userConfigs.push(handlers[i]);
|
||||
// }
|
||||
// }
|
||||
// config = config.updateAll({'changeWorld': Jsworld.updateWorld,
|
||||
// 'shutdownWorld': Jsworld.shutdownWorld});
|
||||
// var stimuli = new world.Kernel.stimuli.StimuliHandler(config, caller, restarter);
|
||||
|
||||
// var wrappedHandlers = [];
|
||||
// var wrappedRedraw;
|
||||
// var wrappedRedrawCss;
|
||||
|
||||
|
||||
// if (config.lookup('onDraw')) {
|
||||
// wrappedRedraw = function(w, k) {
|
||||
// try {
|
||||
// caller(config.lookup('onDraw'), [w],
|
||||
// function(newDomTree) {
|
||||
// deepUnwrapJsValues(newDomTree, function(unwrappedTree) {
|
||||
// checkWellFormedDomTree(unwrappedTree, unwrappedTree, undefined);
|
||||
// var result = [toplevelNode,
|
||||
// helpers.deepListToArray(unwrappedTree)];
|
||||
// k(result);
|
||||
// });
|
||||
// });
|
||||
// } catch (e) {
|
||||
// handleError(e);
|
||||
// // throw e;
|
||||
// }
|
||||
// }
|
||||
|
||||
// if (config.lookup('onDrawCss')) {
|
||||
// wrappedRedrawCss = function(w, k) {
|
||||
// try {
|
||||
// caller(config.lookup('onDrawCss'), [w],
|
||||
// function(res) {
|
||||
// var result = helpers.deepListToArray(res);
|
||||
// result = mutateStringsInDeepArray(result);
|
||||
// // plt.Kernel.setLastLoc(undefined);
|
||||
// k(result);
|
||||
// });
|
||||
// } catch (e) {
|
||||
// handleError(e);
|
||||
// // throw e;
|
||||
// }
|
||||
// }
|
||||
// }
|
||||
// else {
|
||||
// wrappedRedrawCss = function(w, k) { k([]); };
|
||||
// }
|
||||
// wrappedHandlers.push(_js.on_draw(wrappedRedraw, wrappedRedrawCss));
|
||||
// } else if (config.lookup('onRedraw')) {
|
||||
// var reusableCanvas = undefined;
|
||||
// var reusableCanvasNode = undefined;
|
||||
|
||||
// wrappedRedraw = function(w, k) {
|
||||
// try {
|
||||
// //console.log('in onRedraw handler');
|
||||
// caller(config.lookup('onRedraw'), [w],
|
||||
// function(aScene) {
|
||||
// // Performance hack: if we're using onRedraw, we know
|
||||
// // we've got a scene, so we optimize away the repeated
|
||||
// // construction of a canvas object.
|
||||
// if ( world.Kernel.isImage(aScene) ) {
|
||||
// var width = aScene.getWidth();
|
||||
// var height = aScene.getHeight();
|
||||
|
||||
// if (! reusableCanvas) {
|
||||
// reusableCanvas = world.Kernel.makeCanvas(width, height);
|
||||
// // Note: the canvas object may itself manage objects,
|
||||
// // as in the case of an excanvas. In that case, we must make
|
||||
// // sure jsworld doesn't try to disrupt its contents!
|
||||
// reusableCanvas.jsworldOpaque = true;
|
||||
// reusableCanvasNode = _js.node_to_tree(reusableCanvas);
|
||||
// }
|
||||
|
||||
// reusableCanvas.width = width;
|
||||
// reusableCanvas.height = height;
|
||||
// var ctx = reusableCanvas.getContext("2d");
|
||||
// aScene.render(ctx, 0, 0);
|
||||
|
||||
// k([toplevelNode, reusableCanvasNode]);
|
||||
// } else {
|
||||
// k([toplevelNode, _js.node_to_tree(types.toDomNode(aScene))]);
|
||||
// }
|
||||
// });
|
||||
// } catch (e) {
|
||||
// handleError(e);
|
||||
// // throw e;
|
||||
// }
|
||||
// }
|
||||
|
||||
// wrappedRedrawCss = function(w, k) {
|
||||
// //console.log('in RedrawCss handler');
|
||||
// k([[reusableCanvas,
|
||||
// ["width", reusableCanvas.width + "px"],
|
||||
// ["height", reusableCanvas.height + "px"]]]);
|
||||
// }
|
||||
// wrappedHandlers.push(_js.on_draw(wrappedRedraw, wrappedRedrawCss));
|
||||
// } else {
|
||||
// wrappedHandlers.push(_js.on_world_change
|
||||
// (function(w, k) {
|
||||
// Jsworld.printWorldHook(w, toplevelNode);
|
||||
// k();
|
||||
// }));
|
||||
// }
|
||||
|
||||
// if (config.lookup('tickDelay')) {
|
||||
// var wrappedTick = function(w, k) {
|
||||
// caller(config.lookup('onTick'),
|
||||
// [w],
|
||||
// k);
|
||||
// }
|
||||
// var wrappedDelay = jsnums.toFixnum( config.lookup('tickDelay') );
|
||||
// wrappedHandlers.push(_js.on_tick(wrappedDelay, wrappedTick));
|
||||
// }
|
||||
|
||||
// if (config.lookup('stopWhen')) {
|
||||
// wrappedHandlers.push(_js.stop_when(
|
||||
// function(w, k) {
|
||||
// caller(config.lookup('stopWhen'), [w],
|
||||
// function(res) { k(res); });
|
||||
// }));
|
||||
// }
|
||||
|
||||
|
||||
// if (config.lookup('onKey')) {
|
||||
// var wrappedKey = function(w, e, k) {
|
||||
// caller(config.lookup('onKey'), [w, helpers.getKeyCodeName(e)], k);
|
||||
// }
|
||||
// wrappedHandlers.push(_js.on_key(wrappedKey));
|
||||
// toplevelNode.focus();
|
||||
// }
|
||||
|
||||
|
||||
// if (config.lookup('initialEffect')) {
|
||||
// var updaters =
|
||||
// world.Kernel.applyEffect(config.lookup('initialEffect'));
|
||||
// for (var i = 0 ; i < updaters.length; i++) {
|
||||
// if (config.lookup('stopWhen') &&
|
||||
// config.lookup('stopWhen')([initWorld])) {
|
||||
// break;
|
||||
// } else {
|
||||
// initWorld = updaters[i](initWorld);
|
||||
// }
|
||||
// }
|
||||
// }
|
||||
|
||||
|
||||
// _js.big_bang(toplevelNode,
|
||||
// initWorld,
|
||||
// wrappedHandlers,
|
||||
// helpers.assocListToHash(attribs),
|
||||
// terminator);
|
||||
|
||||
// startUserConfigs(function() {});
|
||||
|
||||
// return {
|
||||
// breaker: function() {
|
||||
// handleError(types.schemeError(
|
||||
// types.incompleteExn(types.exnBreak, 'user break', [])));
|
||||
// }
|
||||
// };
|
||||
|
||||
// }
|
||||
|
||||
|
||||
|
||||
// var handleError = function(e) {
|
||||
// // helpers.reportError(e);
|
||||
// // When something bad happens, shut down
|
||||
// // the world computation.
|
||||
// // helpers.reportError("Shutting down jsworld computations");
|
||||
// // world.Kernel.stimuli.onShutdown();
|
||||
// world.Kernel.stimuli.massShutdown();
|
||||
// shutdownUserConfigs(function() {
|
||||
// errorReporter(e);
|
||||
// // console.log('Got an error, the error was:');
|
||||
// // console.log(e);
|
||||
// if (typeof(console) !== 'undefined' && console.log) {
|
||||
// if (e.stack) {
|
||||
// console.log(e.stack);
|
||||
// }
|
||||
// else {
|
||||
// console.log(e);
|
||||
// }
|
||||
// }
|
||||
// if ( types.isSchemeError(e) ) {
|
||||
// terminator(e);
|
||||
// }
|
||||
// else if ( types.isInternalError(e) ) {
|
||||
// terminator(e);
|
||||
// }
|
||||
// else if (typeof(e) == 'string') {
|
||||
// terminator( types.schemeError(types.incompleteExn(types.exnFail, e, [])) );
|
||||
// }
|
||||
// else if (e instanceof Error) {
|
||||
// terminator( types.schemeError(types.incompleteExn(types.exnFail, e.message, [])) );
|
||||
// }
|
||||
// else {
|
||||
// terminator( types.schemeError(e) );
|
||||
// }
|
||||
// });
|
||||
// }
|
||||
|
||||
|
||||
|
||||
// // updateWorld: CPS( CPS(world -> world) -> void )
|
||||
// Jsworld.updateWorld = function(updater, k) {
|
||||
// var wrappedUpdater = function(w, k2) {
|
||||
// try {
|
||||
// updater(w, k2);
|
||||
// } catch (e) {
|
||||
// if (typeof(console) !== 'undefined' && console.log && e.stack) {
|
||||
// console.log(e.stack);
|
||||
// }
|
||||
// handleError(e);
|
||||
// // k2(w);
|
||||
// }
|
||||
// }
|
||||
|
||||
// _js.change_world(wrappedUpdater, k);
|
||||
// }
|
||||
|
||||
|
||||
|
||||
// // shutdownWorld: -> void
|
||||
// // Shut down all world computations.
|
||||
// Jsworld.shutdownWorld = function() {
|
||||
// _js.shutdown();
|
||||
// };
|
||||
|
||||
|
||||
// // var getAttribs = function(args) {
|
||||
// // if (args.length == 0) {
|
||||
// // return []
|
||||
// // }
|
||||
// // if (args.length == 1) {
|
||||
// // return helpers.assocListToHash(args[0]);
|
||||
// // } else {
|
||||
// // throw new Error("getAttribs recevied unexpected value for args: "
|
||||
// // + args);
|
||||
// // }
|
||||
// // }
|
||||
|
||||
|
||||
// Jsworld.p = _js.p;
|
||||
|
||||
// Jsworld.div = _js.div;
|
||||
|
||||
// Jsworld.buttonBang = function(updateWorldF, effectF, attribs) {
|
||||
// var wrappedF = function(w, evt, k) {
|
||||
// try {
|
||||
// // FIXME: Get effects back online!
|
||||
// // caller(effectF, [world],
|
||||
// // function(effect) {
|
||||
// caller(updateWorldF, [w],
|
||||
// function(newWorld) {
|
||||
// // world.Kernel.applyEffect(effect);
|
||||
// k(newWorld);
|
||||
// });
|
||||
// // });
|
||||
// } catch (e) {
|
||||
// if (typeof(console) !== 'undefined' && console.log && e.stack) {
|
||||
// console.log(e.stack);
|
||||
// }
|
||||
// handleError(e);
|
||||
// // k(w);
|
||||
// }
|
||||
// }
|
||||
// return _js.button(wrappedF, attribs);
|
||||
// };
|
||||
|
||||
|
||||
// Jsworld.input = function(type, updateF, attribs) {
|
||||
// var wrappedUpdater = function(w, evt, k) {
|
||||
// caller(updateF, [w, evt], k);
|
||||
// }
|
||||
// return _js.input(type, wrappedUpdater, attribs);
|
||||
// };
|
||||
|
||||
|
||||
// Jsworld.get_dash_input_dash_value = function(node) {
|
||||
// // plt.Kernel.check(node,
|
||||
// // function(x) { return (plt.Kernel.isString(node) ||
|
||||
// // node.nodeType ==
|
||||
// // Node.ELEMENT_NODE) },
|
||||
// // "get-input-value",
|
||||
// // "dom-node",
|
||||
// // 1);
|
||||
// if (types.isString(node)) {
|
||||
// return (document.getElementById(node).value || "");
|
||||
// } else {
|
||||
// return (node.value || "");
|
||||
// }
|
||||
|
||||
// };
|
||||
|
||||
|
||||
|
||||
// // Images.
|
||||
// Jsworld.img = _js.img;
|
||||
|
||||
// // text: string -> node
|
||||
// Jsworld.text = _js.text;
|
||||
|
||||
// Jsworld.select = function(options, updateF, attribs) {
|
||||
// var wrappedUpdater = function(w, e, k) {
|
||||
// // console.log(e);
|
||||
// caller(updateF, [w, e.target.value], k);
|
||||
// }
|
||||
// return _js.select(attribs, options, wrappedUpdater);
|
||||
// };
|
||||
|
||||
|
||||
|
||||
|
||||
// //////////////////////////////////////////////////////////////////////
|
||||
// Jsworld.emptyPage = _js.emptyPage;
|
||||
|
||||
// Jsworld.placeOnPage = function(elt, left, top, page) {
|
||||
// deepUnwrapJsValues(elt, function(newElt) {
|
||||
// elt = types.toDomNode(newElt);});
|
||||
// return _js.placeOnPage(elt, left, top, page);
|
||||
// };
|
||||
|
|
|
|||
|
|
@ -12,4 +12,6 @@
|
|||
"js-impl.js"
|
||||
)
|
||||
#:provided-values (big-bang
|
||||
on-tick))
|
||||
on-tick
|
||||
to-draw
|
||||
stop-when))
|
||||
|
|
@ -859,7 +859,7 @@ var rawJsworld = {};
|
|||
|
||||
|
||||
// on_tick: number CPS(world -> world) -> handler
|
||||
function on_tick(delay, tick) {
|
||||
var on_tick = function(delay, tick) {
|
||||
return function() {
|
||||
var scheduleTick, ticker;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,14 +1,27 @@
|
|||
#lang s-exp "../lang/base.rkt"
|
||||
|
||||
(provide big-bang
|
||||
on-tick)
|
||||
on-tick
|
||||
to-draw
|
||||
stop-when)
|
||||
|
||||
|
||||
;; Fixme: replace with 2htdp/world stuff
|
||||
|
||||
|
||||
(define (big-bang initial-world . args)
|
||||
(error 'big-bang "not done yet"))
|
||||
|
||||
|
||||
(define on-tick
|
||||
(case-lambda [(handler)
|
||||
(error 'on-tick "not done yet")]
|
||||
[(handler interval)
|
||||
(error 'on-tick "not done yet")]))
|
||||
(error 'on-tick "not done yet")]))
|
||||
|
||||
(define (to-draw handler)
|
||||
(error 'on-tick "not done yet"))
|
||||
|
||||
|
||||
(define (stop-when handler)
|
||||
(error 'on-tick "not done yet"))
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user