curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-06-11 23:34:04 +09:00
Code Issues Packages Projects Releases Wiki Activity

scrapping earlier impl of func SEQ

Browse Source
This commit is contained in:
minjaesong
2020-11-28 23:05:05 +09:00
parent baa47ae473
commit d9d256fcca
2 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
assets/99.bas
View File

@@ -1,9 +1,7 @@
1 FOR I = 99 TO 1 1 FOR I = 99 TO 1
2 (MODE = 1) 2 (MODE = 1):(GOSUB 12)
3 (GOSUB 12)
4 PRINT(I+" bottle"+BOTTLES$+" of beer on the wall, "+i+" bottle"+BOTTLES$+" of beer.") 4 PRINT(I+" bottle"+BOTTLES$+" of beer on the wall, "+i+" bottle"+BOTTLES$+" of beer.")
5 (MODE = 2) 5 (MODE = 2):(GOSUB 12)
6 (GOSUB 12)
7 PRINT("Take one down and pass it around, "+(i-1)+" bottle"+BOTTLES$+" of beer on the wall.") 7 PRINT("Take one down and pass it around, "+(i-1)+" bottle"+BOTTLES$+" of beer on the wall.")
8 NEXT 8 NEXT
9 PRINT "No more bottles of beer on the wall, no more bottles of beer." 9 PRINT "No more bottles of beer on the wall, no more bottles of beer."

5
assets/basic.js
View File

@@ -422,7 +422,7 @@ if no arg text were given (e.g. "10 NEXT"), args will have zero length
}); });
}, },
":" : function(lnum, args) { // functional sequence ":" : function(lnum, args) { // functional sequence
// just do nothing // TODO alternative method of impl: make syntax tree to have two or more consequent command "roots" and execute from there
}, },
"+" : function(lnum, args) { // addition, string concat "+" : function(lnum, args) { // addition, string concat
return twoArg(lnum, args, function(lh, rh) { return lh + rh; }); return twoArg(lnum, args, function(lh, rh) { return lh + rh; });
@@ -532,13 +532,14 @@ if no arg text were given (e.g. "10 NEXT"), args will have zero length
return oneArgNum(lnum, args, function(lh) { return oneArgNum(lnum, args, function(lh) {
if (lh < 0) throw lang.syntaxfehler(lnum, lh); if (lh < 0) throw lang.syntaxfehler(lnum, lh);
bStatus.gosubStack.push(lnum + 1); bStatus.gosubStack.push(lnum + 1);
println(lnum+" GOSUB into "+lh);
return lh; return lh;
}); });
}, },
"RETURN" : function(lnum, args) { "RETURN" : function(lnum, args) {
var r = bStatus.gosubStack.pop(); var r = bStatus.gosubStack.pop();
if (r === undefined) throw lang.nowhereToReturn(lnum); if (r === undefined) throw lang.nowhereToReturn(lnum);
serial.println(lnum+" RETURN to "+r); println(lnum+" RETURN to "+r);
return r; return r;
}, },
"CLEAR" : function(lnum, args) { "CLEAR" : function(lnum, args) {