public static ICQ_Expression Compiler_Expression_Lambda(IList <Token> tlist, int pos, int posend) { int b1; int fs1 = pos; int fe1 = FindCodeAny(tlist, ref fs1, out b1); CQ_Expression_Lambda value = new CQ_Expression_Lambda(pos, posend, tlist[pos].line, tlist[posend].line); int testbegin = fs1 + 1; if (b1 != 1) { return(null); } //(xxx)=>{...} CQ_Expression_Block block = new CQ_Expression_Block(fs1, fe1, tlist[fs1].line, tlist[fe1].line); do { int fe2 = FindCodeAny(tlist, ref testbegin, out b1); ICQ_Expression subvalue; bool succ = Compiler_Expression(tlist, testbegin, fe2, out subvalue); if (!succ) { break; } if (subvalue != null) { block._expressions.Add(subvalue); testbegin = fe2 + 2; } else { block._expressions.Add(null); testbegin = fe2 + 2; } }while(testbegin <= fe1); value._expressions.Add(block); //(...)=>{} ICQ_Expression subvalueblock; int b2; int fs2 = fe1 + 2; int fecode = FindCodeAny(tlist, ref fs2, out b2); bool succ2 = Compiler_Expression_Block(tlist, fs2, fecode, out subvalueblock); if (succ2) { //value.tokenEnd = fecode; //value.lineEnd = tlist[fecode].line; value._expressions.Add(subvalueblock); return(value); } return(null); }
public static bool Compiler_Expression_Block(IList <Token> tlist, int pos, int posend, out ICQ_Expression value) { int begin = pos; value = null; List <ICQ_Expression> values = new List <ICQ_Expression>(); int end = 0; do { if (tlist[begin].type == TokenType.COMMENT) { begin++; continue; } if (tlist[begin].type == TokenType.PUNCTUATION && tlist[begin].text == ";") { begin++; continue; } int bdep; //脱一次壳 end = FindCodeInBlock(tlist, ref begin, out bdep); if (end > posend) { end = posend; } int expend = end; int expbegin = begin; if (expbegin > expend) { //DebugUtil.LogError(tlist, "括号块识别失败", expbegin, expend); return(true); } if (bdep == 2) //编译块表达式 { expbegin++; expend--; ICQ_Expression subvalue; bool bsucc = Compiler_Expression_Block(tlist, expbegin, expend, out subvalue); if (bsucc) { if (subvalue != null) { values.Add(subvalue); } } else { DebugUtil.LogError(tlist, "表达式编译失败", expbegin, expend); return(false); } } else { ICQ_Expression subvalue; bool bsucc = Compiler_Expression(tlist, expbegin, expend, out subvalue); if (bsucc) { if (subvalue != null) { values.Add(subvalue); } } else { DebugUtil.LogError(tlist, "表达式编译失败", expbegin, expend); return(false); } } begin = end + 1; }while(begin <= posend); if (values.Count == 1) { value = values[0]; } else if (values.Count > 1) { CQ_Expression_Block block = new CQ_Expression_Block(pos, end, tlist[pos].line, tlist[end].line); foreach (var v in values) { block._expressions.Add(v); } value = block; } return(true); }