private void OnError_Event() { var err = _msc_compiler.Error; try { if (ExitException.Is(err)) { if (ExitException.ExitCode(err) == 0 || _error != null) { return; } } if (_error == null) { _error = new ScriptError(_script, _procedure, err.Description); } var line = err.Line; if (_script != null && line != 0 && line != _err_line) { _error.AddTrace(_script.GetTraceLineAt(line)); } _err_line = line; } finally { err.Clear(); } }
private ScriptProcedures ListProcedures(Script script, Regex pattern) { ScriptProcedures procedures = new ScriptProcedures(); foreach (IMSScriptModule msc_module in _scriptcontrol.Modules) { ScriptModule module = new ScriptModule(msc_module); foreach (IMSScriptProcedure msc_procedure in msc_module.Procedures) { var proc_name = msc_procedure.Name; ScriptProcedure procedure = new ScriptProcedure(module, proc_name); switch (proc_name.ToLower()) { case "initialize": procedures.ProcInitialize = procedure; break; case "terminate": procedures.ProcTerminate = procedure; break; case "setup": procedures.ProcSetup = procedure; break; case "teardown": procedures.ProcTearDown = procedure; break; case "onerror": procedures.ProcOnError = procedure; break; case "iif": break; default: if (msc_procedure.HasReturnValue) continue; if (!pattern.IsMatch(proc_name)) continue; WithParams proc_params_str; if (script.ScriptWithParams.TryGetValue(proc_name, out proc_params_str)) { if (!_scriptcontrol.Eval("Array(" + proc_params_str.Params + ')')) { var error = new ScriptError(script, procedure, "Invalide array: " + proc_params_str.Params); error.AddTrace(script, proc_params_str.Line); OnError(error); continue; } var proc_params = (object[])_scriptcontrol.Result; foreach (var proc_param in proc_params) { object[] args = CastToArray(proc_param); if (args.Length == 0) { var error = new ScriptError(script, procedure, string.Format( "Procedure {0} requires {1} argument(s). {2} provied.", proc_name, msc_procedure.NumArgs, args.Length)); error.AddTrace(script, script.TextFormated.GetLineNumber("(Sub|Function).\b" + proc_name + "\b")); OnError(error); break; } procedure = new ScriptProcedure(module, proc_name, args); procedures.Add(procedure); } } else if (msc_procedure.NumArgs == 0) { procedures.Add(procedure); } break; } } } return procedures; }
private ScriptProcedures ListProcedures(Script script, Regex pattern) { ScriptProcedures procedures = new ScriptProcedures(); foreach (IMSScriptModule msc_module in _scriptcontrol.Modules) { ScriptModule module = new ScriptModule(msc_module); foreach (IMSScriptProcedure msc_procedure in msc_module.Procedures) { var proc_name = msc_procedure.Name; ScriptProcedure procedure = new ScriptProcedure(module, proc_name); switch (proc_name.ToLower()) { case "initialize": procedures.ProcInitialize = procedure; break; case "terminate": procedures.ProcTerminate = procedure; break; case "setup": procedures.ProcSetup = procedure; break; case "teardown": procedures.ProcTearDown = procedure; break; case "onerror": procedures.ProcOnError = procedure; break; case "iif": break; default: if (msc_procedure.HasReturnValue) { continue; } if (!pattern.IsMatch(proc_name)) { continue; } WithParams proc_params_str; if (script.ScriptWithParams.TryGetValue(proc_name, out proc_params_str)) { if (!_scriptcontrol.Eval("Array(" + proc_params_str.Params + ')')) { var error = new ScriptError(script, procedure, "Invalide array: " + proc_params_str.Params); error.AddTrace(script, proc_params_str.Line); OnError(error); continue; } var proc_params = (object[])_scriptcontrol.Result; foreach (var proc_param in proc_params) { object[] args = CastToArray(proc_param); if (args.Length == 0) { var error = new ScriptError(script, procedure, string.Format( "Procedure {0} requires {1} argument(s). {2} provied.", proc_name, msc_procedure.NumArgs, args.Length)); error.AddTrace(script, script.TextFormated.GetLineNumber("(Sub|Function).\b" + proc_name + "\b")); OnError(error); break; } procedure = new ScriptProcedure(module, proc_name, args); procedures.Add(procedure); } } else if (msc_procedure.NumArgs == 0) { procedures.Add(procedure); } break; } } } return(procedures); }