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
"
TEST2 6,7,8 OUT K,L,M
?K,L,M
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,10]
V[0,1]=12
?V[0,1]
?\"ABC\"[1][0]
?1/2
GOSUB @A
?A()
?B(1,2,3)
FOR I=0 TO 10
 ?I;\"!\",\"=\",FACT(I)
NEXT
TEST \"HELLO\",\",\",\"WORLD\"
TEST2 6,7,8 OUT K,L,M
?K,L,M
FACT 10 OUT F
?F
END
@A
?\"SUBROUTINE TEST\"
RETURN
DEF A()
 ?\"FUNCTION A\"
 RETURN 1
END
DEF B(A,B[],C)
 LOCAL=123
 ?\"FUNCTION B\",A,B,C
 ?LOCAL
 RETURN -1
END
DEF FACT(N)
 IF N<=1 THEN RETURN 1
 RETURN N*FACT(N-1)
END
DEF TEST A,B,C
 ?\"TEST\",A,B,C
 RETURN
END
?\"CHECK\"
DEF TEST2 A,B,C OUT D,E,F
 ?\"TEST2\",A,B,C
 F=C
 F=C
 D=A
 E=B
 ?F
 RETURN
END
");
    version(none) auto parser = new Parser(readText("FIZZBUZZ.TXT").to!wstring);
    auto vm = parser.compile();
    try
    {
        vm.run();
    }
    catch(SmileBasicError sbe)
    {
        writeln(sbe);
    }
    catch(Throwable t)
    {
        writeln(t);
    }
    readln();
    return 0;
}