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

basic:trying to add array pre/append operators

Browse Source
This commit is contained in:
minjaesong
2020-11-24 10:56:35 +09:00
parent 63cb58c740
commit 471575087a
1 changed files with 23 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
assets/tbas/basic.js
View File

@@ -384,7 +384,25 @@ if no arg text were given (e.g. "10 NEXT"), args will have zero length
"BXOR" : function(lnum, args) {
return twoArgNum(lnum, args, function(lh, rh) { return lh ^ rh; });
},
"+" : function(lnum, args) {
":" : function(lnum, args) { // Haskell-style CONS
return twoArg(lnum, args, function(lh, rh) {
if (isNaN(lh))
throw lang.illegalType(lnum, lh); // BASIC array is numbers only
if (!Array.isArray(rh))
throw lang.illegalType(lnum, rh);
return [lh].concat(rh);
});
},
"~" : function(lnum, args) { // array PUSH
return twoArg(lnum, args, function(lh, rh) {
if (isNaN(rh))
throw lang.illegalType(lnum, rh); // BASIC array is numbers only
if (!Array.isArray(lh))
throw lang.illegalType(lnum, lh);
return lh.concat([rh]);
});
},
"+" : function(lnum, args) { // addition, string concat
return twoArg(lnum, args, function(lh, rh) { return lh + rh; });
},
"-" : function(lnum, args) {
@@ -411,8 +429,8 @@ if no arg text were given (e.g. "10 NEXT"), args will have zero length
}
}
else {
for (let k = to; k >= from; k--) {
a.push(k);
for (let k = -from; k <= -to; k++) {
a.push(-k);
}
}
@@ -702,9 +720,10 @@ bF._opPrc = {
"OR":12,
"TO":13,
"STEP":14,
":":15,"~":15, // FIXME it seems every operator is utilised as rightmost-derivative
"=":999
};
bF._opRh = {"^":1,"=":1};
bF._opRh = {"^":1,"=":1,":":1};
bF._keywords = {
};