public T EvalExpecting <T>(SExpr sexpr) { object val = Eval(sexpr, null); if (val.GetType() != typeof(T)) { throw new Exception("Excepting a value of type {0} but got type {1}".F(typeof(T), val.GetType())); } return((T)val); }
public T EvalExpecting <T>(SExpr sexpr, ExternEvaluate customEval) { object val = customEval(this, sexpr, customEval); if (val.GetType() != typeof(T)) { throw new Exception("Excepting a value of type {0} but got type {1}".F(typeof(T), val.GetType())); } return((T)val); }
public QuoteExpr(Token start, Token end, SExpr sexpr) : base(SExprKind.Quote, start, end) { SExpr = sexpr; }
public QuoteExpr(Token start, Token end, SExpr sexpr) : base(SExprKind.Quote, start, end) { SExpr = sexpr; }
public object Eval(SExpr sexpr) { return(Eval(sexpr, defaultEval)); }
public object Eval(SExpr sexpr, ExternEvaluate customEval) { if (customEval == null) { customEval = defaultEval; } sexpr.ThrowIfError(); if (sexpr.Kind == SExprKind.ScopedIdentifier) { // Try to resolve the identifier: var identExpr = (ScopedIdentifierExpr)sexpr; NamedStorage variable = TryResolve(identExpr); if (variable == null) { throw new Exception("Cannot find variable named '{0}' in scope".F(identExpr.Name)); } return(variable.Value); } else if (sexpr.Kind == SExprKind.Invocation) { return(Invoke((InvocationExpr)sexpr)); } else if (sexpr.Kind == SExprKind.List) { var le = (ListExpr)sexpr; var items = new object[le.Count]; for (int i = 0; i < items.Length; ++i) { items[i] = customEval(this, le[i], customEval); } return(items); } else if (sexpr.Kind == SExprKind.Quote) { return(sexpr); } else if (sexpr.Kind == SExprKind.Integer) { return(((IntegerExpr)sexpr).Value); } else if (sexpr.Kind == SExprKind.Boolean) { return(((BooleanExpr)sexpr).Value); } else if (sexpr.Kind == SExprKind.Null) { return(null); } else if (sexpr.Kind == SExprKind.String) { return(sexpr.StartToken.Text); } else if (sexpr.Kind == SExprKind.Decimal) { return(((DecimalExpr)sexpr).Value); } else if (sexpr.Kind == SExprKind.Double) { return(((DoubleExpr)sexpr).Value); } else if (sexpr.Kind == SExprKind.Float) { return(((FloatExpr)sexpr).Value); } throw new Exception("Unknown expression kind: '{0}'".F(sexpr.Kind)); }
object defaultEval(Evaluator a, SExpr sexpr, ExternEvaluate customEval) { return(Eval(sexpr, customEval)); }