Ejemplo n.º 1
0
        public void Visit(Dot t, IEnvironment env, object value)
        {
            string member = t.Name;

            if (value is ClassInfo)
            {
                if (member == "new")
                {
                    ClassInfo ci = value as ClassInfo;
                    NestedEnv e  = new NestedEnv(ci.Environment);
                    RavObject ro = new RavObject(e);
                    e.PutNew("this", ro);
                    InitObject(ci, e);
                    result = ro;
                    return;
                }
            }
            else if (value is RavObject)
            {
                try {
                    result = (value as RavObject).Read(member);
                    return;
                }
                catch (RavObject.AccessException) { }
            }
            result = new ErrorValue("bad member access in Dot: " + member, t);
        }
Ejemplo n.º 2
0
 public override Value GetValue(Value baseValue, NestedEnv env)
 {
     Value[] args = new Value[ChildrenCount];
     for (int i = 0; i < ChildrenCount; i++)
     {
         args[i] = this[i].GetValue(null, env);
     }
     return(baseValue.Invoke(args));
 }
Ejemplo n.º 3
0
        public virtual Value GetValue(Value baseValue, NestedEnv env)
        {
            Value result = NilValue.Nil;

            foreach (IASTNode node in Children)
            {
                result = node.GetValue(null, env);
            }
            return(result);
        }
Ejemplo n.º 4
0
        public override Value SetValue(Value baseValue, NestedEnv env, Value value)
        {
            Value bv = null;

            for (int i = 0; i < ChildrenCount - 1; i++)
            {
                bv = this[i].GetValue(bv, env);
            }
            return(this[ChildrenCount - 1].SetValue(bv, env, value));
        }
Ejemplo n.º 5
0
        public override Value GetValue(Value baseValue, NestedEnv env)
        {
            Value result = NilValue.Nil;

            while (Cond.GetValue(null, env).AsBool())
            {
                result = Body.GetValue(null, env);
            }
            return(result);
        }
Ejemplo n.º 6
0
        public override Value GetValue(Value baseValue, NestedEnv env)
        {
            Value bv = null;

            for (int i = 0; i < ChildrenCount; i++)
            {
                bv = this[i].GetValue(bv, env);
            }
            return(bv);
        }
Ejemplo n.º 7
0
        public override Value GetValue(Value baseValue, NestedEnv env)
        {
            IASTNode psn = Params;

            string[] ps = new string[psn.ChildrenCount];
            for (int i = 0; i < ps.Length; i++)
            {
                ps[i] = psn[i].Token.Literal;
            }
            return(new FuncValue(env, ps, Body));
        }
Ejemplo n.º 8
0
        public override Value GetValue(Value baseVaue, NestedEnv env)
        {
            Value left = this[0].GetValue(null, env);

            for (int i = 1; i < ChildrenCount; i += 2)
            {
                Value right = this[i + 1].GetValue(null, env);
                left = left.ComputeWith(this[i].Token.Literal, right);
            }
            return(left);
        }
Ejemplo n.º 9
0
        public override Value GetValue(Value baseValue, NestedEnv env)
        {
            Value  prev = Body.GetValue(baseValue, env);
            double act  = prev.AsNumber();

            switch (Optr.Token.Literal)
            {
            case "++": act = prev.AsNumber() + 1; break;

            case "--": act = prev.AsNumber() - 1; break;
            }
            Body.SetValue(baseValue, env, new NumberValue(act));
            return(prev);
        }
Ejemplo n.º 10
0
        public static NestedEnv CreateBuindinEnv()
        {
            NestedEnv env = new NestedEnv();

            env.SetToSelf("print", FuncPrint, true);
            env.SetToSelf("println", FuncPrintln, true);
            env.SetToSelf("typeof", FuncTypeof, true);
            env.SetToSelf("info", FuncInfo, true);
            env.SetToSelf("prinfo", FuncPrinfo, true);
            env.SetToSelf("true", BoolValue.True, true);
            env.SetToSelf("false", BoolValue.False, true);
            env.SetToSelf("nil", NilValue.Nil, true);
            return(env);
        }
Ejemplo n.º 11
0
        public override Value GetValue(Value baseVaue, NestedEnv env)
        {
            Value bodyValue = Body.GetValue(null, env);

            switch (Prefix)
            {
            case "+": return(new NumberValue(bodyValue.AsNumber()));

            case "-": return(new NumberValue(-bodyValue.AsNumber()));

            case "!": return(new BoolValue(!bodyValue.AsBool()));

            default: return(NilValue.Nil);
            }
        }
Ejemplo n.º 12
0
        public override Value GetValue(Value baseVaue, NestedEnv env)
        {
            string str = NameStr;

            switch (str)
            {
            case "nil": return(NilValue.Nil);

            case "true": return(BoolValue.True);

            case "false": return(BoolValue.False);

            default: return(env[NameStr]);
            }
        }
Ejemplo n.º 13
0
        public static void TestParser()
        {
            string       s      = "(996 + 1.2 - 6 * (prev - 1) / prev - 3 * 5 * 13.6 / ext / k)";
            StringReader reader = new StringReader(s);
            TokenStream  ts     = new TokenStream(reader);

            ts.AddTokenizers(
                new IdTokenizer(),
                new DecimalTokenizer(),
                new DigitTokenizer(),
                new StringTokenizer(),
                new NameTokenizer()
                );

            Parser parser = CreateProgramParser();

            NestedEnv       env = Buildin.CreateBuindinEnv();
            List <IASTNode> res = new List <IASTNode>();

            Console.Write(">>> ");
            while ((s = Console.ReadLine()) != ".exit")
            {
                ts.Reset(new StringReader(s));
                if (!parser.Parse(ts, res) || res.Count == 0)
                {
                    Console.ForegroundColor = ConsoleColor.Red;
                    Console.WriteLine("Parse failed");
                    Console.ResetColor();
                }
                else
                {
                    IASTNode node = res[0].Reduce();
                    Console.ForegroundColor = ConsoleColor.Green;
                    Console.WriteLine("Parse succeeded");
                    Console.ForegroundColor = ConsoleColor.Yellow;
                    Console.WriteLine(node.ToString());
                    Console.ResetColor();
                    string result = node.GetValue(null, env).ToString();
                    Console.WriteLine();
                    Console.ForegroundColor = ConsoleColor.Blue;
                    Console.WriteLine("==> " + result);
                    Console.ResetColor();
                    //PrintAST(node);
                }
                res.Clear();
                Console.Write(">>> ");
            }
        }
Ejemplo n.º 14
0
        public override Value GetValue(Value baseValue, NestedEnv env)
        {
            Value result = Cond().GetValue(null, env);

            if (result.AsBool())
            {
                return(TruePart().GetValue(null, env));
            }
            else if (ChildrenCount > 2)
            {
                return(this[2].GetValue(null, env));
            }
            else
            {
                return(NilValue.Nil);
            }
        }
Ejemplo n.º 15
0
 public override Value GetValue(Value baseValue, NestedEnv env)
 {
     return(baseValue[Key.GetValue(null, env)]);
 }
Ejemplo n.º 16
0
 public override Value SetValue(Value baseValue, NestedEnv env, Value value)
 {
     baseValue[Key.GetValue(null, env)] = value;
     return(value);
 }
Ejemplo n.º 17
0
 public override Value SetValue(Value baseValue, NestedEnv env, Value value)
 {
     baseValue[Key.Token.Value] = value;
     return(value);
 }
Ejemplo n.º 18
0
 public override Value GetValue(Value baseValue, NestedEnv env)
 {
     return(Content.GetValue(null, env));
 }
Ejemplo n.º 19
0
 public override Value SetValue(Value baseVaue, NestedEnv env, Value value)
 {
     return(env[NameStr] = value);
 }
Ejemplo n.º 20
0
 public override Value GetValue(Value baseValue, NestedEnv env)
 {
     return(baseValue[Key.Token.Value]);
 }
Ejemplo n.º 21
0
 public virtual Value SetValue(Value baseValue, NestedEnv env, Value value)
 {
     return(NilValue.Nil);
 }
Ejemplo n.º 22
0
 public override Value GetValue(Value baseVaue, NestedEnv env)
 {
     return(new StringValue(Token.Literal));
 }
Ejemplo n.º 23
0
 public override Value GetValue(Value baseValue, NestedEnv env)
 {
     return(Left.SetValue(baseValue, env, Right.GetValue(null, env)));
 }
Ejemplo n.º 24
0
 public override Value GetValue(Value baseVaue, NestedEnv env)
 {
     return Token.Value;
 }
Ejemplo n.º 25
0
 public virtual Value SetValue(Value baseVaue, NestedEnv env, Value value) => NilValue.Nil;
Ejemplo n.º 26
0
 public virtual Value GetValue(Value baseVaue, NestedEnv env) => Token.Value;
Ejemplo n.º 27
0
 public override Value SetValue(Value baseVaue, NestedEnv env, Value value)
 {
     return NilValue.Nil;
 }