curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-03-07 19:51:51 +09:00
Code Issues Packages Projects Releases Wiki Activity

partially implemented SGR seq; DECTCEM cursor show/hide

Browse Source
This commit is contained in:
minjaesong
2020-05-30 04:31:44 +09:00
parent 2bc44d905c
commit 790d5807e3
15 changed files with 1408 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

197
assets/tbas/basic.js
View File

@@ -3,19 +3,180 @@ var vmemused = 0;
var cmdbuf = []; // index: line number
var prompt = "Ok";
var linenumRe = /^[0-9]+ +[^0-9]/;
var lang = {
syntaxfehler: "Syntax error"
};
var reLineNum = /^[0-9]+ +[^0-9]/;
var reFloat = /^([\-+]?[0-9]*[.][0-9]+[eE]*[\-+0-9]*[fF]*|[\-+]?[0-9]+[.eEfF][0-9+\-]*[fF]?)$/;
var reDec = /^([\-+]?[0-9_]+)$/;
var reHex = /^(0[Xx][0-9A-Fa-f_]+?)$/;
var reBin = /(0[Bb][01_]+)$/;
var reBool = /true|false/;
var charsetNum = /[0-9]+/;
var charsetNumMeta = /[.BbFfXx_]/;
var charsetOp = /[()\/|&,]+/;
var tbasexit = false;
println("Terran BASIC 1.0 "+vmemsize+" bytes free");
println(prompt);
var basicFunctions = new Object();
basicFunctions._isNumber = function(code) {
};
basicFunctions._isOperator = function(code) {
};
// @returns: line number for the next command, normally (lnum + 1); if GOTO or GOSUB was met, returns its line number
basicFunctions._interpretLine = function(lnum, cmd) {
var tokens = [];
var sb = "";
var mode = "literal"; // literal, escape, number, quote, quote_end, operator, limbo
// TOKENISE
for (var k = 0; k < cmd.length; k++) {
var char = cmd.charAt(k);
var charCode = cmd.charCodeAt(k);
if (mode == "literal") {
if (charCode == 0x22) { // "
tokens.push(sb); sb = "";
mode = "quote";
}
/*else if (charCode == 0x5C) { // reverse solidus
tokens.push(sb); sb = "";
mode = "escape";
}*/
else if (basicFunctions._isOperator(charCode)) {
tokens.push(sb); sb = "" + char;
mode = "operator";
}
else if (char == " ") {
tokens.push(sb); sb = "";
mode = "limbo";
}
else {
sb += char;
}
}
else if (mode == "escape") {
if (charCode == 0x5C) // reverse solidus
sb += String.fromCharCode(0x5C);
else if (char == "n")
sb += String.fromCharCode(0x0A);
else if (char == "t")
sb += String.fromCharCode(0x09);
else if (charCode == 0x22) // "
sb += String.fromCharCode(0x22);
else if (charCode == 0x27)
sb += String.fromCharCode(0x27);
else if (char == "e")
sb += String.fromCharCode(0x1B);
else if (char == "a")
sb += String.fromCharCode(0x07);
else if (char == "b")
sb += String.fromCharCode(0x08);
mode = "quote"; // ESCAPE is only legal when used inside of quote
}
else if (mode == "quote") {
if (charCode = 0x22) {
tokens.push(sb); sb = "";
mode = "quote_end";
}
else {
sb += char;
}
}
else if (mode == "quote_end") {
if (basicFunctions._isNumber(charCode)) {
mode = "number";
}
else if (basicFunctions._isOperator(charCode)) {
mode = "operator";
}
else {
mode = "limbo";
}
}
else if (mode == "number") {
if (basicFunctions._isNumber(charCode)) {
sb += char;
}
else if (char == " ") {
tokens.push(sb); sb = "";
mode = "limbo";
}
else if (basicFunctions._isOperator(charCode)) {
tokens.push(sb); sb = "" + char;
mode = "operator";
}
else if (charCode == 0x22) {
tokens.push(sb); sb = "" + char;
mode = "quote";
}
else {
tokens.push(sb); sb = "" + char;
mode = "literal";
}
}
else if (mode == "operator") {
if (basicFunctions._isOperator(charCode)) {
sb += char;
}
else if (basicFunctions._isNumber(charCode)) {
tokens.push(sb); sb = "" + char;
mode = "number";
}
else if (char == " ") {
tokens.push(sb); sb = "";
mode = "limbo";
}
else {
tokens.push(sb); sb = "" + char;
mode = "lteral";
}
}
else if (mode == "limbo") {
if (char == " ") {
/* do nothing */
}
else if (basicFunctions._isNumber(charCode)) {
sb = "" + char;
mode = "number"
}
else if (basicFunctions._isOperator(charCode)) {
sb = "" + char;
mode = "operator"
}
else if (charCode == 0x22) {
sb = "" + char;
mode = "quote"
}
else {
sb = "" + char;
mode = "literal";
}
}
else {
throw "Unknown parser state: " + mode;
}
}
// END TOKENISE
println(tokens);
return lnum + 1;
};
basicFunctions._basicList = function(v, i, arr) {
if (i < 10) print(" ");
if (i < 100) print(" ");
print(i);
print(" ");
println(v);
};
basicFunctions.list = function(args) {
basicFunctions.list = function(args) { // LIST function
if (args.length == 1) {
cmdbuf.forEach(basicFunctions._basicList);
}
@@ -34,12 +195,35 @@ basicFunctions.list = function(args) {
}
}
};
while (true) {
basicFunctions.system = function(args) { // SYSTEM function
tbasexit = true;
};
basicFunctions.new = function(args) { // NEW function
cmdbuf = [];
};
basicFunctions.run = function(args) { // RUN function
var linenumber = 1;
var oldnum = 1;
do {
if (typeof cmd != "undefined") {
oldnum = linenumber;
linenumber = basicFunctions._interpretLine(linenumber, cmdbuf[linenumber]);
}
else {
linenumber += 1;
}
if (con.hitterminate) {
println("Break in "+oldlnum);
break;
}
} while (linenumber < cmdbuf.length)
};
Object.freeze(basicFunctions);
while (!tbasexit) {
var line = vm.read();
line = line.trim();
if (linenumRe.test(line)) {
if (reLineNum.test(line)) {
var i = line.indexOf(" ");
cmdbuf[line.slice(0, i)] = line.slice(i + 1, line.length);
}
@@ -49,7 +233,8 @@ while (true) {
basicFunctions[cmd[0]](cmd);
}
catch (e) {
println("Syntax error");
println(e);
println(lang.syntaxfehler);
}
println(prompt);
}