2 // lambda.cs: support for lambda expressions
4 // Authors: Miguel de Icaza (miguel@gnu.org)
6 // Licensed under the terms of the GNU GPL
8 // (C) 2007 Novell, Inc
12 using System.Collections;
13 using System.Reflection;
14 using System.Reflection.Emit;
16 namespace Mono.CSharp {
17 public class LambdaExpression : AnonymousMethodExpression {
18 bool explicit_parameters;
21 // The parameter list can either be:
22 // null: no parameters
23 // arraylist of Parameter (explicitly typed parameters)
24 // arraylist of strings (implicitly typed parameters)
26 public LambdaExpression (AnonymousMethodExpression parent,
27 GenericMethod generic, TypeContainer host,
28 Parameters parameters, Block container,
30 : base (parent, generic, host, parameters, container, loc)
32 explicit_parameters = (parameters != null && parameters.Count > 0 && parameters [0].TypeName != null);
33 if (parameters == null)
34 Parameters = new Parameters (new Parameter [0]);
37 public bool HasImplicitParameters {
39 return !explicit_parameters;
43 public bool HasExplicitParameters {
45 return explicit_parameters;
49 public override Expression DoResolve (EmitContext ec)
51 eclass = ExprClass.Value;
52 type = TypeManager.anonymous_method_type;
54 if (explicit_parameters){
55 if (!Parameters.Resolve (ec))
59 // We will resolve parameters later, we do not
60 // have information at this point.
65 public override void Emit (EmitContext ec)
70 public override bool ImplicitStandardConversionExists (Type delegate_type)
72 EmitContext ec = EmitContext.TempEc;
77 Report.DisableErrors ();
78 result = DoCompatibleTest (ec, delegate_type, true) != null;
80 Console.WriteLine ("INFO: Lambda.Compatible Passed for {0}", delegate_type);
82 Console.WriteLine ("INFO: Lambda.Compatible Failed for {0}", delegate_type);
84 Report.EnableErrors ();
94 // Returns true if this anonymous method can be implicitly
95 // converted to the delegate type `delegate_type'
97 public override Expression Compatible (EmitContext ec, Type delegate_type)
99 return DoCompatibleTest (ec, delegate_type, false);
102 Expression DoCompatibleTest (EmitContext ec, Type delegate_type, bool clone)
104 if (anonymous != null)
105 return anonymous.AnonymousDelegate;
107 if (CompatibleChecks (ec, delegate_type) == null)
110 MethodGroupExpr invoke_mg = Delegate.GetInvokeMethod (
111 ec.ContainerType, delegate_type, loc);
112 MethodInfo invoke_mb = (MethodInfo) invoke_mg.Methods [0];
113 ParameterData invoke_pd = TypeManager.GetParameterData (invoke_mb);
116 // The lambda expression is compatible with the delegate type,
121 // D and L have the same number of arguments.
122 if (Parameters.Count != invoke_pd.Count)
125 if (explicit_parameters){
127 // If L has an explicitly typed parameter list, each parameter
128 // in D has the same type and modifiers as the corresponding
131 if (!VerifyExplicitParameterCompatibility (delegate_type, invoke_pd))
135 // If L has an implicitly typed parameter list, D has no ref or
138 // Note: We currently do nothing, because the preview does not
139 // follow the above rule.
142 // each parameter of L is given the type of the corresponding parameter in D
145 for (int i = 0; i < invoke_pd.Count; i++)
146 Parameters [i].TypeName = new TypeExpression (
147 invoke_pd.ParameterType (i),
148 Parameters [i].Location);
152 // The return type of the delegate must be compatible with
153 // the anonymous type. Instead of doing a pass to examine the block
154 // we satisfy the rule by setting the return type on the EmitContext
155 // to be the delegate type return type.
158 ToplevelBlock b = clone ? (ToplevelBlock) Block.PerformClone () : Block;
160 anonymous = new AnonymousMethod (
161 Parent != null ? Parent.AnonymousMethod : null, RootScope, Host,
162 GenericMethod, Parameters, Container, b, invoke_mb.ReturnType,
165 if (!anonymous.Resolve (ec))
168 return anonymous.AnonymousDelegate;
173 // This is a return statement that is prepended lambda expression bodies that happen
174 // to be expressions. Depending on the return type of the delegate this will behave
175 // as either { expr (); return (); } or { return expr (); }
177 public class ContextualReturn : Statement {
178 public Expression Expr;
180 public ContextualReturn (Expression e)
188 public override bool Resolve (EmitContext ec)
190 AnonymousContainer am = ec.CurrentAnonymousMethod;
191 if ((am != null) && am.IsIterator && ec.InIterator) {
192 Report.Error (1622, loc, "Cannot return a value from iterators. Use the yield return " +
193 "statement to return a value, or yield break to end the iteration");
197 Expr = Expr.Resolve (ec);
201 if (ec.ReturnType == null){
202 if (!(Expr is ExpressionStatement)){
203 Expression.Error_InvalidExpressionStatement (Expr.Location);
207 if (Expr.Type != ec.ReturnType) {
208 Expr = Convert.ImplicitConversionRequired (
209 ec, Expr, ec.ReturnType, loc);
215 int errors = Report.Errors;
216 unwind_protect = ec.CurrentBranching.AddReturnOrigin (ec.CurrentBranching.CurrentUsageVector, loc);
218 ec.NeedReturnLabel ();
219 ec.CurrentBranching.CurrentUsageVector.Return ();
220 return errors == Report.Errors;
223 protected override void DoEmit (EmitContext ec)
228 ec.ig.Emit (OpCodes.Stloc, ec.TemporaryReturn ());
229 ec.ig.Emit (OpCodes.Leave, ec.ReturnLabel);
231 ec.ig.Emit (OpCodes.Ret);
234 protected override void CloneTo (CloneContext clonectx, Statement t)
236 ContextualReturn cr = (ContextualReturn) t;
238 cr.Expr = Expr.Clone (clonectx);