1 files changed, 0 insertions, 139 deletions
diff --git a/ClojureCLR/Clojure/Clojure/CljCompiler/Ast/NewExpr.cs b/ClojureCLR/Clojure/Clojure/CljCompiler/Ast/NewExpr.cs
deleted file mode 100644
index 8154df51..00000000
--- a/ClojureCLR/Clojure/Clojure/CljCompiler/Ast/NewExpr.cs
+++ /dev/null
@@ -1,139 +0,0 @@
-/**
- *   Copyright (c) David Miller. All rights reserved.
- *   The use and distribution terms for this software are covered by the
- *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
- *   which can be found in the file epl-v10.html at the root of this distribution.
- *   By using this software in any fashion, you are agreeing to be bound by
- * 	 the terms of this license.
- *   You must not remove this notice, or any other, from this software.
- **/
-
-using System;
-using System.Collections.Generic;
-using System.Linq;
-using System.Text;
-using System.Reflection;
-using Microsoft.Linq.Expressions;
-using System.IO;
-
-namespace clojure.lang.CljCompiler.Ast
-{
-    class NewExpr : Expr
-    {
-        #region Data
-
-        readonly IPersistentVector _args;
-        readonly ConstructorInfo _ctor;
-        readonly Type _type;
-
-        #endregion
-
-        #region Ctors
-
-        public NewExpr(Type type, IPersistentVector args)
-        {
-            _args = args;
-            _type = type;
-            _ctor = ComputeCtor();
-        }
-
-        private ConstructorInfo ComputeCtor()
-        {
-            int numArgs = _args.count();
-
-            List<ConstructorInfo> cinfos 
-                = new List<ConstructorInfo>(_type.GetConstructors()
-                    .Where(x => x.GetParameters().Length == numArgs && x.IsPublic));
-
-            if (cinfos.Count == 0)
-                throw new InvalidOperationException(string.Format("No constructor in type: {0} with {1} arguments", _type.Name, numArgs));
-
-            int index = 0;
-            if (cinfos.Count > 1)
-            {
-                List<ParameterInfo[]> parms = new List<ParameterInfo[]>(cinfos.Count);
-                List<Type> rets = new List<Type>(cinfos.Count);
-                foreach (ConstructorInfo cinfo in cinfos)
-                {
-                    parms.Add(cinfo.GetParameters());
-                    rets.Add(_type);
-                }
-
-                index = HostExpr.GetMatchingParams(".ctor", parms, _args, rets);
-            }
-            ConstructorInfo ctor = index >= 0 ? cinfos[index] : null;
-            if (ctor == null && RT.booleanCast(RT.WARN_ON_REFLECTION.deref()))
-                ((TextWriter)RT.ERR.deref()).WriteLine("Reflection warning, line: {0} - call to {1} ctor can't be resolved.",
-                    /* line */ 0, _type.FullName);
-            return ctor;
-        }
-
-        #endregion
-
-        #region Type mangling
-
-        public override bool HasClrType
-        {
-            get { return true; }
-        }
-
-        public override Type ClrType
-        {
-            get { return _type; }
-        }
-
-        #endregion
-
-        #region Parsing
-
-        public sealed class Parser : IParser
-        {
-            public Expr Parse(object frm)
-            {
-                ISeq form = (ISeq)frm;
-
-                // form => (new Typename args ... )
-
-                if (form.count() < 2)
-                    throw new Exception("wrong number of arguments, expecting: (new Typename args ...)");
-
-                Type t = Compiler.MaybeType(RT.second(form), false);
-                if (t == null)
-                    throw new ArgumentException("Unable to resolve classname: " + RT.second(form));
-
-                IPersistentVector args = PersistentVector.EMPTY;
-                for (ISeq s = RT.next(RT.next(form)); s != null; s = s.next())
-                    args = args.cons(Compiler.GenerateAST(s.first()));
-
-                return new NewExpr(t, args);
-            }
-        }
-
-        #endregion
-
-        #region Code generation
-
-        public override Expression GenDlr(GenContext context)
-        {
-            if ( _ctor != null )
-            {
-                // The ctor is uniquely determined.
-
-                Expression[] args = Compiler.GenTypedArgArray(context, _ctor.GetParameters(), _args);
-                return Expression.New(_ctor, args);
-
-                // JAVA: emitClearLocals
-            }
-            else
-            {
-                Expression typeExpr = Expression.Call(Compiler.Method_RT_classForName, Expression.Constant(_type.FullName));
-                Expression args = Compiler.GenArgArray(context, _args);
-                // Java: emitClearLocals
-
-                return Expression.Call(Compiler.Method_Reflector_InvokeConstructor,typeExpr,args);
-            }        
-        }
-
-        #endregion
-    }
-}