Exemplo n.º 1
0
 public LispFunction(LispList parameters, LispElement body, LispEnvironment funcEnv, LispSymbol funcName)
 {
     this.parameters = parameters;
     this.body       = body;
     this.funcName   = funcName;
     this.funcEnv    = (LispEnvironment)funcEnv.Clone();
 }
Exemplo n.º 2
0
        public dynamic Eval(LispEnvironment env, dynamic e = null)
        {
            dynamic[] args = (dynamic[])e.Elems;

            if (args.Any())
            {
                var par = (from p in args.Skip(1)
                           select p.Eval(env));

                object[] methParams = unmarshal(par);
                Type[]   paramTypes = (from mParam in methParams
                                       select mParam.GetType()).ToArray();


                // MethodInfo meth = objType.GetMethod(par.First().ToString(), BindingFlags.Default, Type.DefaultBinder, paramTypes, null);
                MethodInfo meth       = objType.GetMethod(args[0].ToString(), paramTypes);
                Type       resultType = meth.ReturnType;

                return(marshal(meth.Invoke(obj, methParams), resultType));
            }
            else
            {
                return(this);
            }
        }
Exemplo n.º 3
0
        public dynamic Eval(Stream stream, LispEnvironment global)
        {
            global.Parent = builtInFunctions;
            var     expressions = parser.parse(stream);
            dynamic result      = null;

            foreach (LispElement expression in expressions)
            {
                result = expression.Eval(global);
            }
            global.Parent = null;
            return(result);
        }
Exemplo n.º 4
0
        public dynamic Eval(LispEnvironment env, dynamic e = null)
        {
            var val = e.Enumerator;

            LispEnvironment childEnv = new LispEnvironment(funcEnv);

            // we need support for recursion
            if (funcName != null)
            {
                childEnv.Add(funcName, this);
            }

            foreach (var parameter in parameters.Elems)
            {
                val.MoveNext();
                childEnv.Add(parameter, val.Current.Eval(env));
            }

            return(body.Eval(null, childEnv));
        }
Exemplo n.º 5
0
 public dynamic Eval(LispEnvironment env, dynamic e = null)
 {
     return(this);
 }
Exemplo n.º 6
0
 public dynamic Eval(LispEnvironment env, dynamic e = null)
 {
     return(env.Lookup(this));
 }
Exemplo n.º 7
0
 internal LispEnvironment(LispEnvironment parent)
 {
     Parent = parent;
 }
Exemplo n.º 8
0
 public LispFunction(LispList parameters, LispElement body, LispEnvironment funcEnv)
     : this(parameters, body, funcEnv, null)
 {
 }
Exemplo n.º 9
0
        public dynamic Eval(LispEnvironment env, dynamic e = null)
        {
            dynamic elem = First;

            return(elem.Eval(env).Eval(env, Rest));
        }
Exemplo n.º 10
0
 public LispMacro(LispList parameters, LispElement body, LispEnvironment funcEnv)
 {
     throw new NotImplementedException();
 }
Exemplo n.º 11
0
 public dynamic Eval(LispEnvironment env, dynamic e = null)
 {
     throw new NotImplementedException();
 }
 public dynamic Eval(LispEnvironment env, dynamic args = null)
 {
     return(func(args, env));
 }