79 lines
1.2 KiB
D
79 lines
1.2 KiB
D
import std.stdio;
|
|
import std.utf;
|
|
import std.conv;
|
|
import std.file;
|
|
import otya.smilebasic.parser;
|
|
import otya.smilebasic.error;
|
|
int main(string[] argv)
|
|
{
|
|
version(none)
|
|
{
|
|
auto parser = new Parser("ADD(ADD(1,2,3,4,5,6),2,3,4,5,6)");
|
|
writeln(parser.calc());
|
|
}
|
|
|
|
|
|
auto parser = new Parser(
|
|
//"@A\nA=1+2+3+4\nPRINT 1+1,2+3;10-5,A:A=A*2 PRINT A
|
|
"IF 1 THEN PRINT 2
|
|
IF 0 THEN PRINT 4 ELSE PRINT 5
|
|
IF 0 THEN
|
|
PRINT 111
|
|
ELSE
|
|
PRINT 222
|
|
ENDIF
|
|
|
|
FOR I=-2 TO -9 STEP -2
|
|
PRINT I
|
|
NEXT
|
|
?I
|
|
?\"Hello, World!!\"
|
|
?\"A\"*4
|
|
FOR I=0 TO 100
|
|
IF I MOD 3==0 AND I MOD 5==0 THEN
|
|
?\"FIZZBUZZ\"
|
|
ELSE
|
|
IF I MOD 3==0 THEN
|
|
?\"FIZZ\"
|
|
ELSE
|
|
IF I MOD 5==0 THEN
|
|
?\"BUZZ\"
|
|
ELSE
|
|
?I
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
NEXT
|
|
?1 AND 1 OR 1 AND 0
|
|
?(1 OR 2 XOR 3)
|
|
?(1 OR 2 XOR 3 OR 4)
|
|
?@HELLOWORLD
|
|
FOR I=0 TO 10
|
|
IF I==4 THEN BREAK
|
|
IF I==1 THEN CONTINUE
|
|
?I
|
|
NEXT
|
|
VAR V[10]
|
|
V[0]=12
|
|
?V[0]
|
|
?\"ABC\"[1][0]
|
|
GOSUB @A
|
|
END
|
|
@A
|
|
?\"SUBROUTINE TEST\"
|
|
RETURN
|
|
");
|
|
version(none) auto parser = new Parser(readText("FIZZBUZZ.TXT").to!wstring);
|
|
auto vm = parser.compile();
|
|
try
|
|
{
|
|
vm.run();
|
|
}
|
|
catch(SmileBasicError sbe)
|
|
{
|
|
writeln(sbe);
|
|
}
|
|
readln();
|
|
return 0;
|
|
}
|