Example #1
0
 Stmt ParseStmt(bool in_dec = false)
 {
     Sequence result = new Sequence();
     Stmt stmt = new Nop();
     bool breaked = false;
     if (Index == Tokens.Count)
     {     // Already got EOF?
         throw new RPExeption(20, App.Current.TryFindResource("x_nexpend").ToString(), Line, Column);
     }
     while (Index < Tokens.Count && !breaked)
     {
         switch (Config.In(Tokens[Index]).Name)
         {
             case "Forward":
                 Index++;
                 var stmtForward = new Forward();
                 stmtForward.Expression = ParseExpr();
                 stmt = stmtForward;
                 break;
             case "Backward":
                 Index++;
                 var stmtBackward = new Backward();
                 stmtBackward.Expression = ParseExpr();
                 stmt = stmtBackward;
                 break;
             case "Right":
                 Index++;
                 var stmtRight = new Right();
                 stmtRight.Expression = ParseExpr();
                 stmt = stmtRight;
                 break;
             case "Left":
                 Index++;
                 var stmtLeft = new Left();
                 stmtLeft.Expression = ParseExpr();
                 stmt = stmtLeft;
                 break;
             case "PenUp":
                 Index++;
                 stmt = new PenUp();
                 break;
             case "PenDown":
                 Index++;
                 stmt = new PenDown();
                 break;
             case "Home":
                 Index++;
                 stmt = new Home();
                 break;
             case "Clear":
                 Index++;
                 stmt = new Clear();
                 break;
             case "DeclareFunction":
                 if (in_dec)
                 {        // Are we already declarating a function?
                     throw new RPExeption(21, App.Current.TryFindResource("x_cdfif").ToString(), Line, Column);
                 }
                 var stmtDeclareFunction = new DeclareFunction();
                 // Read function name
                 Index++;
                 if (Index < Tokens.Count && Tokens[Index].isStr)
                 {
                     stmtDeclareFunction.Identity = (string)Tokens[Index];
                 }
                 else
                 {
                     throw new RPExeption(22, App.Current.TryFindResource("x_expfn").ToString(), Line, Column);
                 }
                 // Read parameters if any
                 Index++;
                 while (Index + 1 < Tokens.Count && Tokens[Index].Equals(Scanner.ValueOf) && Tokens[Index + 1].isStr)
                 {
                     stmtDeclareFunction.Parameters.Add((string)Tokens[Index + 1]);
                     Index += 2;
                 }
                 if (Index == Tokens.Count)
                 {
                     throw new RPExeption(23, App.Current.TryFindResource("x_expfb").ToString(), Line, Column);
                 }
                 // Add function to the functions list
                 FuncDef.Add(stmtDeclareFunction.Identity, stmtDeclareFunction);
                 // Parse body
                 stmtDeclareFunction.Body = ParseStmt(true);
                 // End of function
                 if (Index == Tokens.Count || Tokens[Index].isStr && Config.Primitives.ContainsKey((string)Tokens[Index]) && Config.Primitives[(string)Tokens[Index]] == "End")
                 {
                     throw new RPExeption(24, App.Current.TryFindResource("x_expendttd").ToString(), Line, Column);
                 }
                 Index++;
                 stmt = stmtDeclareFunction;
                 break;
             case "Output":
                 Index++;
                 var stmtOutput = new Output();
                 stmtOutput.Expression = ParseExpr();
                 stmt = stmtOutput;
                 break;
             case "Stop":
                 Index++;
                 stmt = new Stop();
                 break;
             case "IfElse":
                 var stmtIfElse = new IfElse();
                 // Parse the condition
                 Index++;
                 stmtIfElse.Condition = ParseExpr();
                 // Parse the true branch
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                 {
                     throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                 }
                 Index++;
                 stmtIfElse.True = ParseStmt(in_dec);
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                 {
                     throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                 }
                 // Parse the false branch if any
                 Index++;
                 if (Index < Tokens.Count && Tokens[Index].Equals(Scanner.BodyStart))
                 {
                     Index++;
                     stmtIfElse.False = ParseStmt(in_dec);
                     if (Index == Tokens.Count || !Tokens[Index].Contains.Equals(Scanner.BodyEnd))
                     {
                         throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                     }
                     Index++;
                 }
                 else
                 {
                     stmtIfElse.False = new Nop();
                 }
                 stmt = stmtIfElse;
                 break;
             case "Loop":
                 var stmtLoop = new Loop();
                 // Parse expression
                 Index++;
                 stmtLoop.Repeat = ParseExpr();
                 // Parse the body
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                 {
                     throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                 }
                 Index++;
                 stmtLoop.Body = ParseStmt(in_dec);
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                 {
                     throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                 }
                 Index++;
                 stmt = stmtLoop;
                 break;
             case "While":
                 var stmtWhile = new While();
                 Index++;
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                 {
                     throw new RPExeption(30, App.Current.TryFindResource("x_expzbtce").ToString(), Line, Column);
                 }
                 Index++;
                 stmtWhile.Condition = ParseExpr();
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                 {
                     throw new RPExeption(31, App.Current.TryFindResource("x_expzatce").ToString(), Line, Column);
                 }
                 Index++;
                 // Parse the body
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                 {
                     throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                 }
                 Index++;
                 stmtWhile.Body = ParseStmt(in_dec);
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                 {
                     throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                 }
                 Index++;
                 stmt = stmtWhile;
                 break;
             case "Forever":
                 var stmtForever = new Forever();
                 Index++;
                 // Parse the body
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                 {
                     throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                 }
                 Index++;
                 stmtForever.Body = ParseStmt(in_dec);
                 if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                 {
                     throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                 }
                 Index++;
                 stmt = stmtForever;
                 break;
             case "Print":
                 Index++;
                 var stmtPrint = new Print();
                 stmtPrint.Text = ParseExpr();
                 stmt = stmtPrint;
                 break;
             case "DeclareVariable":
                 var stmtDeclareVariable = new DeclareVariable();
                 Index += 2;
                 if (Index < Tokens.Count && Tokens[Index - 1].Equals(Scanner.AsIs))
                 {
                     stmtDeclareVariable.Identity = (string)Tokens[Index];
                 }
                 else
                 {
                     throw new RPExeption(27, App.Current.TryFindResource("x_expvarname").ToString(), Line, Column);
                 }
                 // Do the math
                 Index++;
                 stmtDeclareVariable.Expression = ParseExpr();
                 stmt = stmtDeclareVariable;
                 break;
             default:
                 if (Tokens[Index].isStr)
                 {
                     if (Tokens[Index].Equals("language"))
                     {
                         Index++;
                         Config.Load();
                         Index++;
                         continue;
                     }
                     else if (Tokens[Index].Equals(Scanner.BodyEnd))
                     {
                         breaked = true;
                         continue;
                     }
                     else if (Tokens[Index].Equals(Config.Primitives["End"]))
                     {
                         if (!in_dec)
                             throw new RPExeption(23, App.Current.TryFindResource("x_expfb").ToString(), Line, Column);
                         else breaked = true;
                         continue;
                     }
                     else if (!FuncDef.ContainsKey((string)Tokens[Index]))
                     {
                         throw new RPExeption(28, App.Current.TryFindResource("x_unknid").ToString() + (string)Tokens[Index] + "'", Line, Column);
                     }
                     else
                     {
                         var stmtCallFunction = new CallFunction();
                         stmtCallFunction.Identity = (string)Tokens[Index];
                         var P = FuncDef[(string)Tokens[Index]].Parameters.Count;
                         int i = 0;
                         Index++;
                         while (Index < Tokens.Count && i < P)
                         {
                             stmtCallFunction.Parameters.Add(ParseExpr());
                             i++;
                         }
                         if (Index == Tokens.Count && i < P)
                         {
                             throw new RPExeption(29, App.Current.TryFindResource("x_fparnm").ToString(), Line, Column);
                         }
                         stmt = stmtCallFunction;
                     }
                 }
                 else
                 {
                     throw new RPExeption(99, App.Current.TryFindResource("x_unkncomm").ToString(), Line, Column);
                 }
                 break;
         }
         result.Statements.Add(stmt);
     }
     return result;
 }
Example #2
0
        Stmt ParseStmt(bool in_dec = false)
        {
            Sequence result  = new Sequence();
            Stmt     stmt    = new Nop();
            bool     breaked = false;

            if (Index == Tokens.Count)
            {     // Already got EOF?
                throw new RPExeption(20, App.Current.TryFindResource("x_nexpend").ToString(), Line, Column);
            }
            while (Index < Tokens.Count && !breaked)
            {
                switch (Config.In(Tokens[Index]).Name)
                {
                case "Forward":
                    Index++;
                    var stmtForward = new Forward();
                    stmtForward.Expression = ParseExpr();
                    stmt = stmtForward;
                    break;

                case "Backward":
                    Index++;
                    var stmtBackward = new Backward();
                    stmtBackward.Expression = ParseExpr();
                    stmt = stmtBackward;
                    break;

                case "Right":
                    Index++;
                    var stmtRight = new Right();
                    stmtRight.Expression = ParseExpr();
                    stmt = stmtRight;
                    break;

                case "Left":
                    Index++;
                    var stmtLeft = new Left();
                    stmtLeft.Expression = ParseExpr();
                    stmt = stmtLeft;
                    break;

                case "PenUp":
                    Index++;
                    stmt = new PenUp();
                    break;

                case "PenDown":
                    Index++;
                    stmt = new PenDown();
                    break;

                case "Home":
                    Index++;
                    stmt = new Home();
                    break;

                case "Clear":
                    Index++;
                    stmt = new Clear();
                    break;

                case "DeclareFunction":
                    if (in_dec)
                    {            // Are we already declarating a function?
                        throw new RPExeption(21, App.Current.TryFindResource("x_cdfif").ToString(), Line, Column);
                    }
                    var stmtDeclareFunction = new DeclareFunction();
                    // Read function name
                    Index++;
                    if (Index < Tokens.Count && Tokens[Index].isStr)
                    {
                        stmtDeclareFunction.Identity = (string)Tokens[Index];
                    }
                    else
                    {
                        throw new RPExeption(22, App.Current.TryFindResource("x_expfn").ToString(), Line, Column);
                    }
                    // Read parameters if any
                    Index++;
                    while (Index + 1 < Tokens.Count && Tokens[Index].Equals(Scanner.ValueOf) && Tokens[Index + 1].isStr)
                    {
                        stmtDeclareFunction.Parameters.Add((string)Tokens[Index + 1]);
                        Index += 2;
                    }
                    if (Index == Tokens.Count)
                    {
                        throw new RPExeption(23, App.Current.TryFindResource("x_expfb").ToString(), Line, Column);
                    }
                    // Add function to the functions list
                    FuncDef.Add(stmtDeclareFunction.Identity, stmtDeclareFunction);
                    // Parse body
                    stmtDeclareFunction.Body = ParseStmt(true);
                    // End of function
                    if (Index == Tokens.Count || Tokens[Index].isStr && Config.Primitives.ContainsKey((string)Tokens[Index]) && Config.Primitives[(string)Tokens[Index]] == "End")
                    {
                        throw new RPExeption(24, App.Current.TryFindResource("x_expendttd").ToString(), Line, Column);
                    }
                    Index++;
                    stmt = stmtDeclareFunction;
                    break;

                case "Output":
                    Index++;
                    var stmtOutput = new Output();
                    stmtOutput.Expression = ParseExpr();
                    stmt = stmtOutput;
                    break;

                case "Stop":
                    Index++;
                    stmt = new Stop();
                    break;

                case "IfElse":
                    var stmtIfElse = new IfElse();
                    // Parse the condition
                    Index++;
                    stmtIfElse.Condition = ParseExpr();
                    // Parse the true branch
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                    {
                        throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                    }
                    Index++;
                    stmtIfElse.True = ParseStmt(in_dec);
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                    {
                        throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                    }
                    // Parse the false branch if any
                    Index++;
                    if (Index < Tokens.Count && Tokens[Index].Equals(Scanner.BodyStart))
                    {
                        Index++;
                        stmtIfElse.False = ParseStmt(in_dec);
                        if (Index == Tokens.Count || !Tokens[Index].Contains.Equals(Scanner.BodyEnd))
                        {
                            throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                        }
                        Index++;
                    }
                    else
                    {
                        stmtIfElse.False = new Nop();
                    }
                    stmt = stmtIfElse;
                    break;

                case "Loop":
                    var stmtLoop = new Loop();
                    // Parse expression
                    Index++;
                    stmtLoop.Repeat = ParseExpr();
                    // Parse the body
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                    {
                        throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                    }
                    Index++;
                    stmtLoop.Body = ParseStmt(in_dec);
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                    {
                        throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                    }
                    Index++;
                    stmt = stmtLoop;
                    break;

                case "While":
                    var stmtWhile = new While();
                    Index++;
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                    {
                        throw new RPExeption(30, App.Current.TryFindResource("x_expzbtce").ToString(), Line, Column);
                    }
                    Index++;
                    stmtWhile.Condition = ParseExpr();
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                    {
                        throw new RPExeption(31, App.Current.TryFindResource("x_expzatce").ToString(), Line, Column);
                    }
                    Index++;
                    // Parse the body
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                    {
                        throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                    }
                    Index++;
                    stmtWhile.Body = ParseStmt(in_dec);
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                    {
                        throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                    }
                    Index++;
                    stmt = stmtWhile;
                    break;

                case "Forever":
                    var stmtForever = new Forever();
                    Index++;
                    // Parse the body
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyStart))
                    {
                        throw new RPExeption(25, App.Current.TryFindResource("x_expzbb").ToString(), Line, Column);
                    }
                    Index++;
                    stmtForever.Body = ParseStmt(in_dec);
                    if (Index == Tokens.Count || !Tokens[Index].Equals(Scanner.BodyEnd))
                    {
                        throw new RPExeption(26, App.Current.TryFindResource("x_expzab").ToString(), Line, Column);
                    }
                    Index++;
                    stmt = stmtForever;
                    break;

                case "Print":
                    Index++;
                    var stmtPrint = new Print();
                    stmtPrint.Text = ParseExpr();
                    stmt           = stmtPrint;
                    break;

                case "DeclareVariable":
                    var stmtDeclareVariable = new DeclareVariable();
                    Index += 2;
                    if (Index < Tokens.Count && Tokens[Index - 1].Equals(Scanner.AsIs))
                    {
                        stmtDeclareVariable.Identity = (string)Tokens[Index];
                    }
                    else
                    {
                        throw new RPExeption(27, App.Current.TryFindResource("x_expvarname").ToString(), Line, Column);
                    }
                    // Do the math
                    Index++;
                    stmtDeclareVariable.Expression = ParseExpr();
                    stmt = stmtDeclareVariable;
                    break;

                default:
                    if (Tokens[Index].isStr)
                    {
                        if (Tokens[Index].Equals("language"))
                        {
                            Index++;
                            Config.Load();
                            Index++;
                            continue;
                        }
                        else if (Tokens[Index].Equals(Scanner.BodyEnd))
                        {
                            breaked = true;
                            continue;
                        }
                        else if (Tokens[Index].Equals(Config.Primitives["End"]))
                        {
                            if (!in_dec)
                            {
                                throw new RPExeption(23, App.Current.TryFindResource("x_expfb").ToString(), Line, Column);
                            }
                            else
                            {
                                breaked = true;
                            }
                            continue;
                        }
                        else if (!FuncDef.ContainsKey((string)Tokens[Index]))
                        {
                            throw new RPExeption(28, App.Current.TryFindResource("x_unknid").ToString() + (string)Tokens[Index] + "'", Line, Column);
                        }
                        else
                        {
                            var stmtCallFunction = new CallFunction();
                            stmtCallFunction.Identity = (string)Tokens[Index];
                            var P = FuncDef[(string)Tokens[Index]].Parameters.Count;
                            int i = 0;
                            Index++;
                            while (Index < Tokens.Count && i < P)
                            {
                                stmtCallFunction.Parameters.Add(ParseExpr());
                                i++;
                            }
                            if (Index == Tokens.Count && i < P)
                            {
                                throw new RPExeption(29, App.Current.TryFindResource("x_fparnm").ToString(), Line, Column);
                            }
                            stmt = stmtCallFunction;
                        }
                    }
                    else
                    {
                        throw new RPExeption(99, App.Current.TryFindResource("x_unkncomm").ToString(), Line, Column);
                    }
                    break;
                }
                result.Statements.Add(stmt);
            }
            return(result);
        }