Beispiel #1
0
        //调用外部函数
        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 + "\"外部调用对象");
        }
Beispiel #2
0
        //添加指令到程序
        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;
            }


        }