jsbasic/index.js
Joshua Bell 17b0baf7e5 Add softswitch reads for display modes
Fixes #32

The RdAltChar (mousetext) is not accurate. Under Virtual II it seems
to always return true if the 80 column firmware is active, regardless
of which character set is active.
2020-05-29 21:55:32 -07:00

294 lines
8.1 KiB
JavaScript

window.addEventListener('DOMContentLoaded', function() {
var $ = function(s) { return document.querySelector(s); };
$('#lb_files').selectedIndex = 0;
var frame = $('#frame');
var keyboard = frame;
if (/iPod|iPad|iPhone/.test(navigator.platform)) {
keyboard = document.createElement('input');
keyboard.type = 'text';
keyboard.style.width = keyboard.style.height = '1px';
keyboard.style.border = 'none';
keyboard.style.position = 'absolute';
keyboard.style.left = keyboard.style.top = '-100px';
frame.removeAttribute('tabIndex');
frame.addEventListener('click', function() { keyboard.focus(); });
frame.parentNode.insertBefore(keyboard, frame);
}
var tty = new TTY($('#screen'), keyboard);
(function() {
// Install output hook for bell
var b = new Bell(/^.*\/|/.exec(window.location)[0]);
var orig = tty.writeChar;
tty.writeChar = function index_writeChar(c) {
if (c.charCodeAt(0) === 7)
b.play();
else
orig(c);
};
}());
var dos = new DOS(tty);
var lores = new LoRes($('#lores'), 40, 48);
var hires = new HiRes($('#hires'), 280, 192);
var hires2 = new HiRes($('#hires2'), 280, 192);
var display = {
state: { graphics: false, full: true, page1: true, lores: true },
setState: function(state, value /* ... */) {
var args = Array.prototype.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);
}
},
getState: function() {
return Object.assign({}, this.state);
}
};
var pdl = [0, 0, 0, 0];
// Lexical highlighting, if available
var editor;
if (typeof CodeMirror === 'function') {
editor = new CodeMirror($('#editorframe'), {
mode: 'basic',
tabMode: 'default',
content: $('#source').value,
height: '100%'
});
} else {
editor = (function() {
var textArea = document.createElement('textarea');
$('#editorframe').appendChild(textArea);
textArea.style.width = '598px';
textArea.style.height = '384px';
return {
getValue: function() {
return textArea.value;
},
setValue: function(value) {
textArea.value = value;
},
setCursor: function(line, column) {
// TODO: Implement me!
}
};
}());
}
$('#btn_share').onclick = function(e) {
// Load up the hidden text area with the current source
$('#source').value = getSource();
};
function getSource() {
return editor.getValue();
}
function setSource(source) {
editor.setValue(source);
}
var program;
$('#btn_run').addEventListener('click', function(e) {
e.preventDefault();
dos.reset();
tty.reset();
tty.autoScroll = true;
try {
program = basic.compile(getSource());
} catch (e) {
if (e instanceof basic.ParseError) {
editor.setCursor({ line: e.line - 1, ch: e.column - 1 });
console.log(e.message +
' (source line:' + e.line + ', column:' + e.column + ')');
}
alert(e);
return;
}
stopped = false;
updateUI();
$('#btn_stop').focus();
program.init({
tty: tty,
hires: hires,
hires2: hires2,
lores: lores,
display: display,
paddle: function(n) { return pdl[n]; }
});
setTimeout(driver, 0);
});
$('#btn_stop').addEventListener('click', function(e) {
e.preventDefault();
tty.reset(); // cancel any blocking input
stopped = true;
updateUI();
});
$('#lb_files').addEventListener('change', function() {
var sel = $('#lb_files');
loadFile('samples/' + sel.value + ".txt", setSource);
});
var current_file_name;
$('#btn_save').addEventListener('click', function(e) {
e.preventDefault();
var a = document.createElement('a');
a.download = current_file_name || 'basic_program.txt';
a.href = 'data:text/plain;base64,' + window.btoa(getSource());
document.body.appendChild(a);
a.click();
a.parentElement.removeChild(a);
});
$('#btn_load').addEventListener('click', function(e) {
e.preventDefault();
var input = document.createElement('input');
input.type = 'file';
input.addEventListener('change', function(e) {
var file = e.target.files[0];
current_file_name = file.name;
var reader = new FileReader();
reader.addEventListener('load', function() {
setSource(reader.result);
});
reader.readAsText(file);
});
document.body.appendChild(input);
input.click();
input.parentElement.removeChild(input);
});
// Add a "printer" on demand
var printer = null;
var paper = $('#paper');
$('#show_paper').addEventListener('click', function(e) {
e.preventDefault();
document.body.classList.add('printout');
printer = new Printer(tty, paper);
});
$('#hide_paper').addEventListener('click', function(e) {
e.preventDefault();
document.body.classList.remove('printout');
printer.close();
printer = null;
});
// Mouse-as-Joystick
var wrapper = $('#screen-wrapper');
wrapper.addEventListener('mousemove', function(e) {
var rect = wrapper.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 stopped = true;
function updateUI() {
var btnFocus = (document.activeElement === $("#btn_run") ||
document.activeElement === $("#btn_stop"));
$("#btn_stop").disabled = stopped ? "disabled" : "";
$("#btn_run").disabled = stopped ? "" : "disabled";
$("#lb_files").disabled = stopped ? "" : "disabled";
if (btnFocus || stopped) {
$(stopped ? "#btn_run" : "#btn_stop").focus();
} else {
tty.focus();
}
}
// TODO: Expose a RESPONSIVE |---+--------| FAST slider in the UI
// Number of steps to execute before yielding execution
// (Use a prime to minimize risk of phasing with loops)
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) {
console.log(e);
alert(e.message ? e.message : e);
stopped = true;
updateUI();
return;
}
statements -= 1;
}
if (state === basic.STATE_STOPPED || stopped) {
stopped = true;
updateUI();
} else if (state === basic.STATE_BLOCKED) {
// Fall out
} else { // state === basic.STATE_RUNNING
setTimeout(driver, 0); // Keep going
}
}
function parseQueryParams() {
var params = {};
var query = document.location.search.substring(1);
query.split(/&/g).forEach(function(pair) {
pair = pair.replace(/\+/g, " ").split(/=/).map(decodeURIComponent);
params[pair[0]] = pair.length === 1 ? pair[0] : pair[1];
});
return params;
}
function loadFile(filename, callback) {
var req = new XMLHttpRequest();
var url = encodeURI(filename); // not encodeURIComponent, so paths can be specified
var async = true;
req.open("GET", url, async);
req.onreadystatechange = function() {
if (req.readyState === XMLHttpRequest.DONE) {
if (req.status === 200 || req.status === 0) {
callback(req.responseText);
}
}
};
req.send(null);
}
// load default
var params = parseQueryParams();
if ('source' in params) {
setSource(params.source);
} else {
loadFile('samples/sample.default.txt', setSource);
}
});