public ICLS_Value MakeValue(object value)
{
CLS_Value_Value<double> v = new CLS_Value_Value<double>();
v.value_value = (double)value;
return v;
}
public ICLS_Expression Compiler_Expression_SubValue(Token value)
{
if (value.type == TokenType.VALUE)
{
if (value.text[value.text.Length - 1] == 'f')
{
CLS_Value_Value<float> number = new CLS_Value_Value<float>();
number.value_value = -float.Parse(value.text.Substring(0, value.text.Length - 1));
return number;
}
else if (value.text.Contains("."))
{
CLS_Value_Value<double> number = new CLS_Value_Value<double>();
number.value_value = -double.Parse(value.text);
return number;
}
else
{
CLS_Value_Value<int> number = new CLS_Value_Value<int>();
number.value_value = -int.Parse(value.text);
return number;
}
}
else
{
logger.Log_Error("无法识别的简单表达式" + value);
return null;
}
}
public ICLS_Value MakeValue(object value)
{
CLS_Value_Value<int> v = new CLS_Value_Value<int>();
v.value_value = (int)value;
return v;
}
public ICLS_Value MakeValue(object value)
{
CLS_Value_Value<string> v = new CLS_Value_Value<string>();
v.value_value = (string)value;
return v;
}
public ICLS_Expression Compiler_Expression_Value(Token value,int pos)
{
if (value.type == TokenType.VALUE)
{
if(value.text[value.text.Length-1]=='f')
{
CLS_Value_Value<float> number = new CLS_Value_Value<float>();
number.value_value = float.Parse(value.text.Substring(0,value.text.Length-1));
return number;
}
else if (value.text.Contains("."))
{
CLS_Value_Value<double> number = new CLS_Value_Value<double>();
number.value_value = double.Parse(value.text);
return number;
}
else
{
CLS_Value_Value<int> number = new CLS_Value_Value<int>();
number.value_value = int.Parse(value.text);
return number;
}
}
else if (value.type == TokenType.STRING)
{
CLS_Value_Value<string> str = new CLS_Value_Value<string>();
str.value_value = value.text.Substring(1,value.text.Length-2);
return str;
}
else if (value.type == TokenType.IDENTIFIER)
{
CLS_Expression_GetValue getvalue = new CLS_Expression_GetValue(pos, pos, value.line, value.line);
getvalue.value_name = value.text;
return getvalue;
}
else if(value.type == TokenType.TYPE)
{
CLS_Expression_GetValue getvalue = new CLS_Expression_GetValue(pos, pos, value.line, value.line);
int l = value.text.LastIndexOf('.');
if(l>=0)
{
getvalue.value_name = value.text.Substring(l+1);
}
else
getvalue.value_name = value.text;
return getvalue;
}
else
{
logger.Log_Error("无法识别的简单表达式" + value);
return null;
}
}
ICLS_Expression OptimizeSingle(ICLS_Expression expr, CLS_Content content)
{
if (expr is CLS_Expression_Math2Value || expr is CLS_Expression_Math2ValueAndOr || expr is CLS_Expression_Math2ValueLogic)
{
if (expr.listParam[0] is ICLS_Value &&
expr.listParam[1] is ICLS_Value)
{
CLS_Content.Value result = expr.ComputeValue(content);
if ((Type)result.type == typeof(bool))
{
CLS_Value_Value<bool> value = new CLS_Value_Value<bool>();
value.value_value = (bool)result.value;
value.tokenBegin = expr.listParam[0].tokenBegin;
value.tokenEnd = expr.listParam[1].tokenEnd;
value.lineBegin = expr.listParam[0].lineBegin;
value.lineEnd = expr.listParam[1].lineEnd;
return value;
}
else
{
ICLS_Type v = content.environment.GetType(result.type);
ICLS_Value value = v.MakeValue(result.value);
value.tokenBegin = expr.listParam[0].tokenBegin;
value.tokenEnd = expr.listParam[1].tokenEnd;
value.lineBegin = expr.listParam[0].lineBegin;
value.lineEnd = expr.listParam[1].lineEnd;
return value;
}
}
}
if (expr is CLS_Expression_Math3Value)
{
CLS_Content.Value result = expr.listParam[0].ComputeValue(content);
if ((Type)result.type == typeof(bool))
{
bool bv = (bool)result.value;
if (bv)
return expr.listParam[1];
else
return expr.listParam[2];
}
}
return expr;
}
//不出Block,必须一次解析完,括号为优先级
public bool Compiler_Expression(IList<Token> tlist, ICLS_Environment content, int pos, int posend, out ICLS_Expression value)
{
if(pos>posend)
{
value = null;
return false;
}
int begin = pos;
value = null;
List<ICLS_Expression> values = new List<ICLS_Expression>();
do
{
if (tlist[begin].type == TokenType.COMMENT)
{
begin++;
continue;
}
if (tlist[begin].type == TokenType.PUNCTUATION && tlist[begin].text == ";")
{
begin++;
continue;
}
int bdep;
//脱一次壳
int end = FindCodeAny(tlist, ref begin, out bdep);
if (end > posend)
{
end = posend;
}
else if (end < posend)
{
bool bMath = false;
for (int i = end + 1; i <= posend; i++)
{
if (tlist[i].type == TokenType.COMMENT) continue;
if (tlist[i].type == TokenType.PUNCTUATION && tlist[i].text == ";") continue;
bMath = true;
break;
}
if (bMath)
{
end = posend;
//如果表达式一次搞不完，那肯定是优先级问题
value = Compiler_Expression_Math(tlist,content, begin, posend);
return true;
}
}
//else
//{
// IList<int> i = SplitExpressionWithOp(tlist, begin, end);
// if (i != null && i.Count > 0)
// {
// value = Compiler_Expression_Math(tlist, begin, posend);
// return true;
// }
//}
int expend = end;
int expbegin = begin;
if (expbegin > expend) return true;
if (expend == expbegin)
{//simple
if (tlist[expbegin].type == TokenType.KEYWORD)
{
if (tlist[expbegin].text == "return")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_Return(tlist,content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
else if (tlist[expbegin].text == "break")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_Break(tlist, expbegin);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
else if (tlist[expbegin].text == "continue")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_Continue(tlist, expbegin);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
else if (tlist[expbegin].text == "true")
{
CLS_Value_Value<bool> subvalue = new CLS_Value_Value<bool>();
subvalue.value_value = true;
values.Add(subvalue);
}
else if (tlist[expbegin].text == "false")
{
CLS_Value_Value<bool> subvalue = new CLS_Value_Value<bool>();
subvalue.value_value = false;
values.Add(subvalue);
}
else if (tlist[expbegin].text == "null")
{
CLS_Value_Null subvalue = new CLS_Value_Null();
values.Add(subvalue);
}
}
else
{
ICLS_Expression subvalue = Compiler_Expression_Value(tlist[expbegin],expbegin);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
}
else if (bdep == 1) //深层表达式
{
expbegin++;
expend--;
ICLS_Expression subvalue;
bool bsucc = Compiler_Expression(tlist,content, expbegin, expend, out subvalue);
if (bsucc)
{
if (subvalue != null)
values.Add(subvalue);
}
else
{
return false;
}
}
else //尝试各种表达式
{
bool bTest = false;
//取反表达式
if (tlist[expbegin].type == TokenType.PUNCTUATION && tlist[expbegin].text == "-")
{
if (tlist[expend].type == TokenType.VALUE)
{//负数
if (expend == expbegin + 1)
{
ICLS_Expression subvalue = Compiler_Expression_SubValue(tlist[expend]);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
else
{
ICLS_Expression subvalue = Compiler_Expression_Math(tlist,content, begin, posend);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
}
else
{//负数表达式
ICLS_Expression subvalue = Compiler_Expression_NegativeValue(tlist,content, expbegin + 1, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
}
bTest = true;
}
if (tlist[expbegin].type == TokenType.PUNCTUATION && tlist[expbegin].text == "!")
{//逻辑反表达式
ICLS_Expression subvalue = Compiler_Expression_NegativeLogic(tlist,content, expbegin + 1, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
if (!bTest && tlist[expbegin].type == TokenType.TYPE)
{
if (tlist[expbegin + 1].type == TokenType.IDENTIFIER)//定义表达式或者定义并赋值表达式
{
if (expend == expbegin + 1)//定义表达式
{
ICLS_Expression subvalue = Compiler_Expression_Define(tlist,content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (expend > expbegin + 2 && tlist[expbegin + 2].type == TokenType.PUNCTUATION && tlist[expbegin + 2].text == "=")
{//定义并赋值表达式
ICLS_Expression subvalue = Compiler_Expression_DefineAndSet(tlist,content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else
{
LogError(tlist,"无法识别的表达式:", expbegin ,expend);
return false;
}
}
else if (tlist[expbegin + 1].text == "[" && tlist[expbegin + 2].text == "]" && tlist[expbegin + 3].type == TokenType.IDENTIFIER)//定义表达式或者定义并赋值表达式
{
if (expend == expbegin + 3)//定义表达式
{
ICLS_Expression subvalue = Compiler_Expression_DefineArray(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (expend > expbegin + 4 && tlist[expbegin + 4].type == TokenType.PUNCTUATION && tlist[expbegin + 4].text == "=")
{//定义并赋值表达式
ICLS_Expression subvalue = Compiler_Expression_DefineAndSetArray(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else
{
LogError(tlist, "无法识别的表达式:", expbegin, expend);
return false;
}
}
else if (tlist[expbegin + 1].type == TokenType.PUNCTUATION && tlist[expbegin + 1].text == ".")
{//静态调用表达式
//if (expend - expbegin > 2)
{
ICLS_Expression subvalue = Compiler_Expression_Math(tlist, content, expbegin, expend);
if (subvalue != null)
{
//subvalue.listParam.Add(subparam);
values.Add(subvalue);
bTest = true;
}
else
{
return false;
}
}
}
}
if (!bTest && tlist[expbegin].type == TokenType.IDENTIFIER)
{
if (expend == expbegin + 1)//一元表达式
{
ICLS_Expression subvalue = Compiler_Expression_MathSelf(tlist, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
if (!bTest && tlist[expbegin + 1].type == TokenType.PUNCTUATION && tlist[expbegin + 1].text == "=")//赋值表达式
{
ICLS_Expression subvalue = Compiler_Expression_Set(tlist, content,expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
//if (!bTest && tlist[expbegin + 1].type == TokenType.PUNCTUATION && tlist[expbegin + 1].text == "(")//函数表达式
//{
// ICLS_Expression subvalue = Compiler_Expression_Function(tlist,content, expbegin, expend);
// if (null == subvalue) return false;
// else
// values.Add(subvalue);
// bTest = true;
//}
//if (!bTest && tlist[expbegin + 1].type == TokenType.PUNCTUATION && tlist[expbegin + 1].text == "[")//函数表达式
//{
// ICLS_Expression subvalue = Compiler_Expression_IndexFind(tlist, content, expbegin, expend);
// if (null == subvalue) return false;
// else
// values.Add(subvalue);
// bTest = true;
//}
}
if (!bTest && (tlist[expbegin].type == TokenType.IDENTIFIER || tlist[expbegin].type == TokenType.VALUE || tlist[expbegin].type == TokenType.STRING))
{
//算数表达式
ICLS_Expression subvalue = Compiler_Expression_Math(tlist,content, expbegin, expend);
if (null != subvalue)
{
values.Add(subvalue);
bTest = true;
}
}
if (!bTest && tlist[expbegin].type == TokenType.KEYWORD)
{
if (tlist[expbegin].text == "for")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_For(tlist,content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "foreach")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_ForEach(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "while")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_While(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "do")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_Dowhile(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "if")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_If(tlist,content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "try")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_Try(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "return")
{
ICLS_Expression subvalue = Compiler_Expression_Loop_Return(tlist, content,expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "trace")
{
ICLS_Expression subvalue = Compiler_Expression_FunctionTrace(tlist,content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if (tlist[expbegin].text == "throw")
{
ICLS_Expression subvalue = Compiler_Expression_FunctionThrow(tlist, content, expbegin, expend);
if (null == subvalue) return false;
else
values.Add(subvalue);
bTest = true;
}
else if(tlist[expbegin].text=="true"||tlist[expbegin].text=="false"||tlist[expbegin].text=="null")
{
//算数表达式
ICLS_Expression subvalue = Compiler_Expression_Math(tlist, content, expbegin, expend);
if (null != subvalue)
{
values.Add(subvalue);
bTest = true;
}
}
else if(tlist[expbegin].text=="new")
{
//new 表达式
if (tlist[expbegin + 1].type == TokenType.TYPE)
{
ICLS_Expression subvalue = Compiler_Expression_FunctionNew(tlist, content, pos, posend);
values.Add(subvalue);
bTest = true;
}
}
else
{
LogError(tlist, "无法识别的表达式:", expbegin, expend);
return false;
}
}
if (!bTest)
{
LogError(tlist, "无法识别的表达式:", expbegin, expend);
return false;
}
}
begin = end + 1;
}
while (begin <= posend);
if (values.Count == 1)
{
value = values[0];
}
else if (values.Count > 1)
{
LogError(tlist, "异常表达式", pos, posend);
}
return true;
}
