//调用外部函数
private void ExecuteCall() {
string szVarType = "";
if (gObjVar != null) szVarType = gObjVar.Type.ToString();
string szVal = gObjVal.ToString().ToLower();
//获取参数定义
int nIndex = gAct.MemeryManager.GetIndex("{000}");
if (nIndex < 0) throw new Exception("调用外部对象\"" + szVal + "\"之前未设置{000}参数数量!");
Variable.Number num = (Variable.Number)gAct.MemeryManager[nIndex];
bool bFound = false;
foreach (System.Reflection.MethodInfo item in gAct.Library.GetType().GetMethods()) {
//System.Windows.Forms.MessageBox.Show()
// 获取所有的RecordAttributes特性
object[] records = item.GetCustomAttributes(typeof(dyk.Script.Code.Library.DykAttribute), false);
if (records.Length > 0) {
dyk.Script.Code.Library.DykAttribute dAttr = (dyk.Script.Code.Library.DykAttribute)records[0];
System.Reflection.ParameterInfo[] dParameters = item.GetParameters();
if (szVal == item.Name.ToLower() && num.Value == dAttr.ArgCount) {
bFound = true;
switch (dAttr.AttributeType) {
case Library.AttributeTypes.Sub:
#region [=====执行方法=====]
if (szVarType != "") throw new Exception("外部调用对象\"" + szVal + "\"为方法，不具有返回值，请将返回变量设置为{}");
//添加执行参数
Variable.Object[] args = new Variable.Object[num.Value];
for (int i = 0; i < num.Value; i++) {
string szVarName = "{" + (i + 1).ToString().PadLeft(3, '0') + "}";
//读取参数指针
int nVarIndex = gAct.MemeryManager.GetIndex(szVarName);
if (nVarIndex < 0) throw new Exception("调用外部对象\"" + szVal + "\"的参数未设置完整!");
Variable.Number numVal = (Variable.Number)gAct.MemeryManager[nVarIndex];
//将变量对象赋值到参数
string szParameterType = dParameters[i].ParameterType.ToString();
Variable.Object objVar = gAct.MemeryManager[(int)numVal.Value];
if (szParameterType == "dyk.Script.Code.Variable." + objVar.Type.ToString()) {
args[i] = objVar;
} else if (szParameterType == "dyk.Script.Code.Variable.Decimal") {
args[i] = new Variable.Decimal(objVar.ToDecimal());
} else if (szParameterType == "dyk.Script.Code.Variable.Number") {
args[i] = new Variable.Number(objVar.ToNumber());
} else if (szParameterType == "dyk.Script.Code.Variable.String") {
args[i] = new Variable.String(objVar.ToString());
} else {
throw new Exception("调用外部对象\"" + szVal + "\"的参数不正确!");
}
}
item.Invoke(gAct.Library, args);
break;
#endregion
case Library.AttributeTypes.Function:
#region [=====执行函数=====]
//添加执行参数
args = new Variable.Object[num.Value];
for (int i = 0; i < num.Value; i++) {
string szVarName = "{" + (i + 1).ToString().PadLeft(3, '0') + "}";
//读取参数指针
int nVarIndex = gAct.MemeryManager.GetIndex(szVarName);
if (nVarIndex < 0) throw new Exception("调用外部对象\"" + szVal + "\"的参数未设置完整!");
Variable.Number numVal = (Variable.Number)gAct.MemeryManager[nVarIndex];
//将变量对象赋值到参数
//System.Windows.Forms.MessageBox.Show(item.GetParameters()[i].ParameterType.ToString());
string szParameterType = dParameters[i].ParameterType.ToString();
Variable.Object objVar = gAct.MemeryManager[(int)numVal.Value];
if (szParameterType == "dyk.Script.Code.Variable." + objVar.Type.ToString()) {
args[i] = objVar;
} else if (szParameterType == "dyk.Script.Code.Variable.Decimal") {
args[i] = new Variable.Decimal(objVar.ToDecimal());
} else if (szParameterType == "dyk.Script.Code.Variable.Number") {
args[i] = new Variable.Number(objVar.ToNumber());
} else if (szParameterType == "dyk.Script.Code.Variable.String") {
args[i] = new Variable.String(objVar.ToString());
} else {
throw new Exception("调用外部对象\"" + szVal + "\"的参数不正确!");
}
}
object obj = item.Invoke(gAct.Library, args);
//Variable.Number dec = new Variable.Decimal(45);
//设置返回值
if (szVarType == "String") {
Variable.String strVar = (Variable.String)gObjVar;
strVar.Value = obj.ToString();
} else if (szVarType == "Decimal") {
double res = 0;
if (double.TryParse(obj.ToString(), out res)) {
Variable.Decimal decVar = (Variable.Decimal)gObjVar;
decVar.Value = res;
} else {
throw new Exception("类型不正确，无法强制转化为Decimal类型");
}
} else if (szVarType == "Number") {
long res = 0;
if (long.TryParse(obj.ToString(), out res)) {
Variable.Number numVar = (Variable.Number)gObjVar;
numVar.Value = res;
} else {
throw new Exception("类型不正确，无法强制转化为Number类型");
}
}
break;
#endregion
}
}
//MessageBox.Show(dAttr.AttributeType.ToString() + ":" + item.IsStatic + ":" + item.Name + "(" + item.GetParameters().Length + ")");
}
}
if (!bFound) throw new Exception("未找到具有" + num.Value + "个参数定义的\"" + szVal + "\"外部调用对象");
}
//添加指令到程序
private void AddStatement(string szName, string szVar, string szVal, string szNote) {
StatementTypes sType = Statement.GetStatementType(szName);
switch (sType) {
case StatementTypes.NONE:
#region [=====处理空指令=====]
Statement st = new Statement(gBlocks[gBlocks.Count - 1], sType, null, null, szNote);
gBlocks[gBlocks.Count - 1].Statements.Add(st);
break;
#endregion
case StatementTypes.FLAG:
#region [=====处理程序段指令=====]
Block bk = new Block(this, szVar, szVal == "1" ? true : false);
gBlocks.Add(bk);
break;
#endregion
case StatementTypes.DEF:
#region [=====处理字符串预设定指令=====]
if (szVar.StartsWith("[") && szVar.EndsWith("]")) {
if (szVal.StartsWith("\"") && szVal.EndsWith("\"")) {
int nIndex = gMgr.GetIndex(szVar);
if (nIndex < 0) {
Variable.String var = new Variable.String(szVal.Substring(1, szVal.Length - 2));
var.SetName(szVar);
gMgr.Add(var);
} else {
throw new Exception("内部变量" + szVar + "已经存在，DEF指令不可重复定义字符串");
}
} else {
throw new Exception("DEF指令的值必须是字符串");
}
} else {
throw new Exception("DEF指令的变量必须是以\"[\"开头\"]\"结尾的内部变量");
}
break;
#endregion
case StatementTypes.VAR:
#region [=====处理变量定义指令=====]
string szFirstWords = "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
string szWords = "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
if (szFirstWords.IndexOf(szVar[0].ToString()) < 0) {
throw new Exception("自定义变量首字母必须是英文大小写或下划线\"_\"!");
}
for (int i = 1; i < szVar.Length; i++) {
if (szWords.IndexOf(szVar[i].ToString()) < 0) {
throw new Exception("自定义变量必须是由英文大小写或下划线\"_\"或数字组成!");
}
}
int nVarIndex = gMgr.GetIndex(szVar);
if (nVarIndex < 0) {
switch (szVal.ToLower()) {
case "string":
Variable.String str = new Variable.String();
str.SetName(szVar);
gMgr.Add(str);
break;
case "number":
Variable.Number num = new Variable.Number();
num.SetName(szVar);
gMgr.Add(num);
break;
case "decimal":
Variable.Decimal dec = new Variable.Decimal();
dec.SetName(szVar);
gMgr.Add(dec);
break;
default:
throw new Exception("未知变量类型\"" + szVal + "\"!");
}
} else {
throw new Exception("变量\"" + szVar + "\"已经存在，不可重复定义");
}
break;
#endregion
default:
Variable.Object objVar;
nVarIndex = gMgr.GetIndex(szVar);
if (nVarIndex < 0) {
//寄存器指针变量自动建立
if (szVar.StartsWith("{") && szVar.EndsWith("}")) {
if (szVar == "{}") {
objVar = null;
} else {
objVar = new Variable.Number();
objVar.SetName(szVar);
gMgr.Add(objVar);
}
} else {
throw new Exception("变量\"" + szVar + "\"不存在");
}
} else {
objVar = gMgr[nVarIndex];
}
if (szVal.StartsWith("\"") && szVal.EndsWith("\"")) {
//字符串值
Variable.String str = new Variable.String(szVal.Substring(1, szVal.Length - 2));
gMgr.Add(str);
Statement stNew = new Statement(gBlocks[gBlocks.Count - 1], sType, objVar, str, szNote);
gBlocks[gBlocks.Count - 1].Statements.Add(stNew);
} else {
double dbTemp = 0;
if (double.TryParse(szVal, out dbTemp)) {
//数值
Variable.Decimal dec = new Variable.Decimal(dbTemp);
gMgr.Add(dec);
Statement stNew = new Statement(gBlocks[gBlocks.Count - 1], sType, objVar, dec, szNote);
gBlocks[gBlocks.Count - 1].Statements.Add(stNew);
} else {
int nValIndex = gMgr.GetIndex(szVal);
if (nValIndex >= 0) {
//变量值
Statement stNew = new Statement(gBlocks[gBlocks.Count - 1], sType, objVar, gMgr[nValIndex], szNote);
gBlocks[gBlocks.Count - 1].Statements.Add(stNew);
} else {
throw new Exception("变量\"" + szVal + "\"不存在");
}
}
}
break;
}
}