+implicitly_typed_lambda_parameter_list
+ : IDENTIFIER {
+ LocatedToken lt = (LocatedToken) $1;
+ ArrayList a = new ArrayList (4);
+
+ a.Add (new Parameter ((Expression)null, lt.Value, Parameter.Modifier.NONE, null, lt.Location));
+ $$ = a;
+ }
+ | implicitly_typed_lambda_parameter_list COMMA IDENTIFIER {
+ LocatedToken lt = (LocatedToken) $3;
+ ArrayList a = (ArrayList) $1;
+ a.Add (new Parameter ((Expression)null, lt.Value, Parameter.Modifier.NONE, null, lt.Location));
+ $$ = a;
+ }
+ ;
+
+explicitly_typed_lambda_parameter_list
+ : explicitly_typed_lambda_parameter
+ {
+ ArrayList pars = new ArrayList (4);
+ pars.Add ($1);
+
+ $$ = pars;
+ }
+ | explicitly_typed_lambda_parameter_list COMMA explicitly_typed_lambda_parameter
+ {
+ ArrayList pars = (ArrayList) $1;
+ pars.Add ($3);
+
+ $$ = pars;
+ }
+ ;
+
+explicitly_typed_lambda_parameter
+ : parameter_modifier type IDENTIFIER
+ {
+ LocatedToken lt = (LocatedToken) $3;
+
+ $$ = new Parameter ((Expression) $2, lt.Value, (Parameter.Modifier) $1, null, lt.Location);
+ }
+ | type IDENTIFIER
+ {
+ LocatedToken lt = (LocatedToken) $2;
+
+ $$ = new Parameter ((Expression) $1, lt.Value, Parameter.Modifier.NONE, null, lt.Location);
+ }
+ ;
+
+lambda_parameter_list
+ : implicitly_typed_lambda_parameter_list { $$ = $1; }
+ | explicitly_typed_lambda_parameter_list { $$ = $1; }
+ ;
+
+opt_lambda_parameter_list
+ : /* empty */ { $$ = null; }
+ | lambda_parameter_list {
+ ArrayList pars_list = (ArrayList) $1;
+
+ Parameter [] pars = new Parameter [pars_list.Count];
+ pars_list.CopyTo (pars);
+ $$ = new Parameters (pars);
+ }
+ ;
+
+lambda_expression_body
+ : {
+ start_block (lexer.Location);
+ }
+ expression
+ {
+ Block b = end_block (lexer.Location);
+ b.AddStatement (new ContextualReturn ((Expression) $2));
+ $$ = b;
+ }
+ | block {
+ $$ = $1;
+ }
+ ;
+
+lambda_expression
+ : IDENTIFIER ARROW
+ {
+ Parameter [] pars = new Parameter [1];
+ LocatedToken lt = (LocatedToken) $1;
+ pars [0] = new Parameter ((Expression)null, lt.Value, Parameter.Modifier.NONE, null, lt.Location);
+
+ Parameters parameters = new Parameters (pars);
+
+ start_anonymous (true, parameters, (Location) $2);
+ }
+ lambda_expression_body
+ {
+ $$ = end_anonymous ((ToplevelBlock) $4, (Location) $2);
+ }
+ | OPEN_PARENS_LAMBDA opt_lambda_parameter_list CLOSE_PARENS ARROW
+ {
+ start_anonymous (true, (Parameters) $2, (Location) $4);
+ }
+ lambda_expression_body
+ {
+ $$ = end_anonymous ((ToplevelBlock) $6, (Location) $4);
+ }
+ ;
+