jsbasic/script.js
2014-01-25 22:25:01 -08:00

154 lines
4.5 KiB
JavaScript

(function () {
var $ = function (s) { return document.querySelector(s); };
var $$ = function (s) { return document.querySelectorAll(s); };
var ss = $$('script'), cs = ss[ss.length - 1], baseURL = /^.*\/|/.exec(cs.src)[0];
document.write('<link rel="stylesheet" href="' + baseURL + 'display.css">');
function load(url) { document.write('<script src="' + baseURL + url + '"></script>'); }
load('polyfill/polyfill.js');
load('polyfill/keyboard.js');
load('tty.js');
load('lores.js');
load('hires.js');
load('bell.js');
load('dos.js');
load('basic.js');
function createInstance(src) {
function ce(element, attributes, children) {
var e = document.createElement(element);
if (attributes) {
Object.keys(attributes).forEach(function(key) {
e[key] = attributes[key];
});
}
if (children) {
children.forEach(function(child) {
e.appendChild(child);
});
}
return e;
}
// DOM
var lores_elem = ce('div', {className: 'jsb-lores'});
var hgr1_elem = ce('canvas', {className: 'jsb-hires', width: 560, height: 384});
var hgr2_elem = ce('canvas', {className: 'jsb-hires', width: 560, height: 384});
var tty_elem = ce('div', {className: 'jsb-tty'});
var wrapper_elem = ce('div', {className: 'jsb-wrapper'}, [lores_elem, hgr1_elem, hgr2_elem, tty_elem]);
var frame = ce('div', {className: 'jsb-frame', tabIndex: 0}, [wrapper_elem]);
// JS OM
var bell = new Bell(baseURL);
var tty = new TTY(tty_elem, frame, bell.play.bind(bell));
var dos = new DOS(tty);
var lores = new LoRes(lores_elem, 40, 48);
var hires = new HiRes(hgr1_elem, 280, 192);
var hires2 = new HiRes(hgr2_elem, 280, 192);
var display = {
state: { graphics: false, full: true, page1: true, lores: true },
setState: function (state, value /* ... */) {
var args = [].slice.call(arguments);
while (args.length) {
state = args.shift();
value = args.shift();
this.state[state] = value;
}
if (this.state.graphics) {
lores.show(this.state.lores);
hires.show(!this.state.lores && this.state.page1);
hires2.show(!this.state.lores && !this.state.page1);
tty.splitScreen(tty.getScreenSize().height - (this.state.full ? 0 : 4));
} else {
lores.show(false);
hires.show(false);
hires2.show(false);
tty.splitScreen(0);
}
}
};
var pdl = [0, 0, 0, 0];
// Mouse-as-Joystick
wrapper_elem.addEventListener('mousemove', function (e) {
var rect = wrapper_elem.getBoundingClientRect(),
x = e.clientX - rect.left, y = e.clientY - rect.top;
function clamp(n, min, max) { return n < min ? min : n > max ? max : n; }
pdl[0] = clamp(x / (rect.width - 1), 0, 1);
pdl[1] = clamp(y / (rect.height - 1), 0, 1);
});
var program;
dos.reset();
tty.reset();
tty.autoScroll = true;
try {
program = basic.compile(src);
} catch (e) {
if (e instanceof basic.ParseError) {
tty.writeString(e.message + '\r');
tty.writeString('Source line: ' + e.line + ', column: ' + e.column);
} else {
tty.writeString(e.message);
}
return frame;
}
var stopped = false;
program.init({
tty: tty,
hires: hires,
hires2: hires2,
lores: lores,
display: display,
paddle: function (n) { return pdl[n]; }
});
setTimeout(driver, 0);
var NUM_SYNCHRONOUS_STEPS = 37;
function driver() {
var state = basic.STATE_RUNNING;
var statements = NUM_SYNCHRONOUS_STEPS;
while (!stopped && state === basic.STATE_RUNNING && statements > 0) {
try {
state = program.step(driver);
} catch (e) {
tty.writeString(e.message);
stopped = true;
return;
}
statements -= 1;
}
if (state === basic.STATE_STOPPED || stopped) {
stopped = true;
} else if (state === basic.STATE_BLOCKED) {
// Fall out
} else { // state === basic.STATE_RUNNING
setTimeout(driver, 0); // Keep going
}
}
return frame;
}
window.addEventListener('load', function() {
[].forEach.call($$('script'), function(script) {
if (script.type === 'text/applesoft-basic') {
var source = script.innerText || script.textContent;
var elem = createInstance(source);
script.parentElement.insertBefore(elem, script.nextSibling);
}
});
});
}());