public static bool IsBetweenIntegerExpression(IScriptCallContext context, long lower, NumericLimitType op1, long value, NumericLimitType op2, long upper)
        {
            bool result = true;

            switch (op1)
            {
            case NumericLimitType.Exclude:
                result &= (value > lower);
                break;

            case NumericLimitType.Include:
            case NumericLimitType.Approx:
                result &= (value >= lower);
                break;

            default:
                throw new NotImplementedException();
            }
            switch (op1)
            {
            case NumericLimitType.Exclude:
                result &= (value < upper);
                break;

            case NumericLimitType.Include:
            case NumericLimitType.Approx:
                result &= (value <= upper);
                break;

            default:
                throw new NotImplementedException();
            }

            return(result);
        }
        public static IProcedureReference <T> GetPartnerReference <T>(
            IScriptCallContext context, IFileElement element, string partnerName)
        {
            Type t = typeof(T);
            var  e = element;

            while (e != null)
            {
                var partner = e.ListPartners().FirstOrDefault(p => p.Name.Equals(partnerName, StringComparison.InvariantCulture));
                if (partner != null)
                {
                    System.Diagnostics.Debug.WriteLine("Expected type: " + typeof(T).FullName);
                    System.Diagnostics.Debug.WriteLine("Found type:    " + partner.ProcedureReference.ProcedureReference.GetType().GetGenericArguments()[0].FullName);
                    if (partner.ProcedureReference.ProcedureReference is IProcedureReference <T> )
                    {
                        return(partner.ProcedureReference.ProcedureReference as IProcedureReference <T>);
                    }
                    else
                    {
                        context.ReportError("The partner procedure is not the expected type.");
                        return(null);
                    }
                }
                e = e.BaseElement;
            }
            context.ReportError($"The element \"{element.FullName}\" has no partner named \"{partnerName}\".");
            return(null);
        }
 public static object ExecuteDynamicObjectMethod(
     IScriptCallContext context,
     IDynamicStepBroObject instance,
     string name,
     object[] arguments)
 {
     try
     {
         if (context != null && context.LoggingEnabled)
         {
             context.Log($"Calling dynamic method \"{name}\".");
         }
         return(instance.TryInvokeMethod(name, arguments));
     }
     catch (DynamicMethodNotFoundException)
     {
         if (context != null)
         {
             context.ReportError(
                 $"Method named '{name}' was not found on the object of type '{instance.GetType().Name}'.",
                 new DynamicMethodNotFoundError());
         }
         throw;
     }
     catch (Exception ex)
     {
         if (context != null)
         {
             context.ReportError(
                 $"Exception executing method '{name}' on the object of type '{instance.GetType().Name}'.",
                 exception: ex);
         }
         throw;
     }
 }
 public static void ProcLog2Procedure(IScriptCallContext context)
 {
     //context.Setup(ProcLog2ForceAlways, ContextLogOption.ForceAlways, true);
     if (context.LoggingEnabled)
     {
         context.Logger.Log("Step 2.1", "Normal");
     }
     if (context.LoggingEnabled && context.Logger.IsDebugging)
     {
         context.Logger.Log("Step 2.2", "Debugging");
     }
     foreach (ContextLogOption lo in Enum.GetValues(typeof(ContextLogOption)))
     {
         context.Logger.Log("Step 2.3", "Mode: " + lo.ToString());
         using (var callcontext = context.EnterNewScriptContext(ProcLog3ForceAlways, lo, false).Disposer())
         {
             ProcLog3Procedure(callcontext.Value);
         }
         using (var callcontext = context.EnterNewScriptContext(ProcLog3Normal, lo, false).Disposer())
         {
             ProcLog3Procedure(callcontext.Value);
         }
         using (var callcontext = context.EnterNewScriptContext(ProcLog3DebugOnly, lo, false).Disposer())
         {
             ProcLog3Procedure(callcontext.Value);
         }
         using (var callcontext = context.EnterNewScriptContext(ProcLog3Disabled, lo, false).Disposer())
         {
             ProcLog3Procedure(callcontext.Value);
         }
     }
 }
        public static long MyFirstProcedure(IScriptCallContext context, TimeSpan time)
        {
            //context.Setup(MyFirst, ContextLogOption.Normal, true);
            long   v1 = 17L;
            string v2 = "Mette";

            context.Logger.Log("Step 1", "");

            using (var callcontext = context.EnterNewScriptContext(MySecond, ContextLogOption.Normal, false).Disposer())
            {
                MySecondProcedure(callcontext.Value, v1, v2);
            }

            context.Logger.Log("Step 2", "");

            using (var loopStatus = context.StatusUpdater.CreateProgressReporter("Loop", TimeSpan.FromSeconds(20), 10L, p => String.Format("Iteration #{0}", p + 1L)))
            {
                for (long i = 0L; i < 10L; i++)
                {
                    context.Logger.Log("Step 3", String.Format("Loop iteration #{0}", i + 1));
                    loopStatus.UpdateStatus(progress: i + 1L);
                    using (var callcontext = context.EnterNewScriptContext(MyThird, ContextLogOption.Normal, false).Disposer())
                    {
                        MyThirdProcedure(callcontext.Value, false);
                        v1 += 2;
                    }
                }
            }

            return(v1);
        }
 public static void AwaitAsyncVoid(IScriptCallContext context, IAsyncResult result)
 {
     if (result.IsCompleted)
     {
         return;
     }
     result.AsyncWaitHandle.WaitOne();
 }
 public static T AwaitAsyncTyped <T>(IScriptCallContext context, Tasks.IAsyncResult <T> result)
 {
     if (!result.IsCompleted)
     {
         result.AsyncWaitHandle.WaitOne();
     }
     return(result.Result);
 }
 public static void LogList(IScriptCallContext context, IEnumerable <string> list)
 {
     if (list != null)
     {
         foreach (string s in list)
         {
             context.Log(s);
         }
     }
 }
        public static bool ProcedureReferenceIs(IScriptCallContext context, IProcedureReference procedure, int fileID, int procedureID, bool isNot)
        {
            var type = GetProcedure(context, fileID, procedureID);

            if (Object.ReferenceEquals(procedure, type))
            {
                return(!isNot);
            }
            return(false);
        }
예제 #10
0
        public static IFileElement GetFileElement(IScriptCallContext context, int id)
        {
            var element = ((ScriptFile)context.Self.ParentFile).GetFileElement(id);

            if (element == null)
            {
                context.ReportError(String.Format("INTERNAL ERROR: Could not find procedure with id = {0}.", id));
            }
            return(element);
        }
 public static void ProcL3Procedure(IScriptCallContext context)
 {
     if (context.LoggingEnabled)
     {
         context.Logger.Log("Step 3.1", "Normal");
     }
     if (context.LoggingEnabled && context.Logger.IsDebugging)
     {
         context.Logger.Log("Step 3.2", "Debugging");
     }
 }
예제 #12
0
 public static bool PostProcedureCallResultHandling(IScriptCallContext context, IScriptCallContext sub)
 {
     if ((context.Self.Flags & ProcedureFlags.NoSubResultInheritance) == ProcedureFlags.None)
     {
         return(context.SetResultFromSub(sub));
     }
     else
     {
         return(false);
     }
 }
예제 #13
0
 public static IProcedureReference <T> CastToSpecificProcedureType <T>(IScriptCallContext context, IProcedureReference reference)
 {
     if (reference is IProcedureReference <T> )
     {
         return((IProcedureReference <T>)reference);
     }
     else
     {
         context.ReportError("The procedure reference is not the expected type. Type: " + reference.GetType().Name);
         return(null);
     }
 }
예제 #14
0
        public static IProcedureReference GetProcedure(IScriptCallContext context, int fileID, int procedureID)
        {
            IProcedureReference procedure = null;

            if (fileID < 0)
            {
                procedure = ((ScriptFile)context.Self.ParentFile).GetProcedure(procedureID);
                if (procedure == null)
                {
                    if (context != null)
                    {
                        context.ReportError(String.Format("INTERNAL ERROR: Could not find procedure with id = {0}.", procedureID));
                    }
                    else
                    {
                        throw new NotImplementedException();
                    }
                }
            }
            else
            {
                ScriptFile file = context.LoadedFiles.ListFiles <ScriptFile>().FirstOrDefault(f => f.UniqueID == fileID);
                if (file == null)
                {
                    if (context != null)
                    {
                        context.ReportError(String.Format("INTERNAL ERROR: Could not find script file with id = {0}.", fileID));
                    }
                    else
                    {
                        throw new NotImplementedException();
                    }
                }
                else
                {
                    procedure = file.GetProcedure(procedureID);
                    if (procedure == null)
                    {
                        if (context != null)
                        {
                            context.ReportError(String.Format("INTERNAL ERROR: Could not find procedure with id = {0}.", procedureID));
                        }
                        else
                        {
                            throw new NotImplementedException();
                        }
                    }
                }
            }
            return(procedure);
        }
예제 #15
0
        public static bool EqualsWithToleranceTimespanExpression(IScriptCallContext context, bool isApprox, TimeSpan value, TimeSpan expected, TimeSpan tolerance)
        {
            if (tolerance < TimeSpan.FromTicks(0))
            {
                throw new ArgumentException("The tolerance must be a positive value.");
            }
            var tol = tolerance;

            if (isApprox)
            {
                tol = TimeSpan.FromTicks(tolerance.Ticks + APPROX_TOL_TS);
            }
            return(value >= (expected - tolerance) && value <= (expected + tolerance));
        }
예제 #16
0
 public static void DisposeObject(IScriptCallContext context, IDisposable obj)
 {
     if (obj == null)
     {
         throw new NotImplementedException();
     }
     if (obj is IScriptDisposable)
     {
         (obj as IScriptDisposable).Dispose(context);
     }
     else
     {
         obj.Dispose();
     }
 }
 public static void ProcL2Procedure(IScriptCallContext context)
 {
     if (context.LoggingEnabled)
     {
         context.Logger.Log("Step 2.1", "Normal");
     }
     if (context.LoggingEnabled && context.Logger.IsDebugging)
     {
         context.Logger.Log("Step 2.2", "Debugging");
     }
     using (var callcontext = context.EnterNewScriptContext(ProcL3, ContextLogOption.Disabled, false).Disposer())
     {
         ProcL3Procedure(callcontext.Value);
     }
 }
예제 #18
0
        public static bool EqualsWithToleranceDateTimeExpression(IScriptCallContext context, bool isApprox, DateTime value, DateTime expected, TimeSpan tolerance)
        {
            if (tolerance < TimeSpan.FromTicks(0))
            {
                throw new ArgumentException("The tolerance must be a positive value.");
            }
            var tol = tolerance;

            if (isApprox)
            {
                tol = TimeSpan.FromTicks(tolerance.Ticks + APPROX_TOL_TS);
            }
            var lower = expected - tol;
            var upper = expected + tol;

            return(value >= lower && value <= upper);
        }
예제 #19
0
 public static object DynamicFunctionCall(
     this IProcedureReference procedure,
     IScriptCallContext context,
     object[] sequencialFirstArguments,
     ArgumentList namedArguments,
     object[] sequencialLastArguments)
 {
     if (procedure == null)
     {
         throw new ArgumentNullException("procedure");
     }
     if ((procedure.ProcedureData.Flags & ProcedureFlags.IsFunction) == ProcedureFlags.None)
     {
         throw new ArgumentException("The procedure is not marked as being a function.");
     }
     throw new NotImplementedException();
 }
예제 #20
0
 public static IAsyncResult <object> ExecuteDynamicAsyncObjectMethod(
     IScriptCallContext context,
     IDynamicAsyncStepBroObject instance,
     string name,
     object[] arguments)
 {
     try
     {
         var result = instance.TryInvokeMethod(name, arguments);
         if (result != null)
         {
             if (context != null && context.LoggingEnabled)
             {
                 context.Log($"Called method \"{name}\" on object of type '{instance.GetType().Name}'.");
             }
         }
         else
         {
             if (context != null && context.LoggingEnabled)
             {
                 context.Log($"Null value returned from method \"{name}\" on object of type '{instance.GetType().Name}'.");
             }
         }
         return(result);
     }
     catch (DynamicMethodNotFoundException)
     {
         if (context != null)
         {
             context.ReportError(
                 $"Method named '{name}' was not found on the object of type '{instance.GetType().Name}'.",
                 new DynamicMethodNotFoundError());
         }
         throw;
     }
     catch (Exception ex)
     {
         if (context != null)
         {
             context.ReportError(
                 $"Exception executing method '{name}' on the object of type '{instance.GetType().Name}'.",
                 exception: ex);
         }
         throw;
     }
 }
예제 #21
0
        public static T AwaitAsyncToTyped <T>(IScriptCallContext context, Tasks.IAsyncResult <object> result)
        {
            if (result != null && !result.IsCompleted)
            {
                if (!result.AsyncWaitHandle.WaitOne(20000))       // TODO: Register this "task" and replace with loop that waits a short while.
                {
                    throw new TimeoutException($"Timeout waiting for asynchronous result in line {context.CurrentScriptFileLine}.");
                }
            }
            if (result.IsFaulted)
            {
                if (result is IObjectFaultDescriptor)
                {
                    context.ReportError("Async operation failed. Fault: " + ((IObjectFaultDescriptor)result).FaultDescription);
                }
                else
                {
                    context.ReportError("Async operation failed.");
                }
                return(default(T));
            }
            else
            {
                object v = result?.Result;
                if (v != null)
                {
                    var valueType = v.GetType();
                    if (typeof(T).IsAssignableFrom(valueType))
                    {
                        return((T)v);
                    }
                    else if (valueType == typeof(string))
                    {
                        try
                        {
                            object value = Convert.ChangeType(v, typeof(T));
                            return((T)value);
                        }
                        catch { }
                    }

                    throw new InvalidCastException($"The async result value type is \"{v.GetType().TypeName()}\", and cannot be converted into a \"{typeof(T).TypeName()}\".");
                }
            }
            return(default(T));
        }
예제 #22
0
 public static T AwaitObjectToTyped <T>(IScriptCallContext context, object result)
 {
     if (result != null && result is Tasks.IAsyncResult <object> )
     {
         return(AwaitAsyncToTyped <T>(context, (Tasks.IAsyncResult <object>)result));
     }
     else
     {
         if (result != null)
         {
             throw new InvalidCastException($"The value type is \"{result.GetType().TypeName()}\", and cannot be converted into a \"{typeof(T).TypeName()}\".");
         }
         else
         {
             throw new InvalidCastException($"The value is null, and therefore cannot be converted into a \"{typeof(T).TypeName()}\".");
         }
     }
 }
예제 #23
0
        public static object DynamicProcedureCall(
            this IProcedureReference procedure,
            IScriptCallContext context,
            PropertyBlock propertyBlock,
            object[] sequencialFirstArguments,
            ArgumentList namedArguments,
            object[] sequencialLastArguments)
        {
            if (procedure == null)
            {
                throw new ArgumentNullException("procedure");
            }


            IScriptCallContext subContext = null;

            try
            {
                subContext = context.EnterNewScriptContext(procedure, Logging.ContextLogOption.Normal, true);

                var methodInfo = ((FileProcedure)procedure.ProcedureData).DelegateType.GetMethod("Invoke");
                var arguments  = new List <object>();
                int i          = 0;
                foreach (var p in methodInfo.GetParameters())
                {
                    if (i == 0)
                    {
                        arguments.Add(subContext);
                    }
                    i++;
                }
                Delegate runtimeProcedure = ((FileProcedure)procedure.ProcedureData).RuntimeProcedure;
                return(runtimeProcedure.DynamicInvoke(arguments.ToArray()));
            }
            catch (Exception ex)
            {
                context.ReportError("Exception in dynamic procedure call.", exception: ex);
                return(null);
            }
            finally
            {
                subContext.InternalDispose();
            }
        }
예제 #24
0
        public static bool IsBetweenDecimalExpression(IScriptCallContext context, double lower, NumericLimitType op1, double value, NumericLimitType op2, double upper)
        {
            double tolerance = (upper - lower) * APPROX_TOL;

            bool result = true;

            switch (op1)
            {
            case NumericLimitType.Exclude:
                result &= (value > lower);
                break;

            case NumericLimitType.Include:
                result &= (value >= lower);
                break;

            case NumericLimitType.Approx:
                result &= (value > (lower - tolerance));
                break;

            default:
                throw new NotImplementedException();
            }
            switch (op1)
            {
            case NumericLimitType.Exclude:
                result &= (value < upper);
                break;

            case NumericLimitType.Include:
                result &= (value <= upper);
                break;

            case NumericLimitType.Approx:
                result &= (value < (upper + tolerance));
                break;

            default:
                throw new NotImplementedException();
            }

            return(result);
        }
예제 #25
0
        public static bool IsBetweenTimespanExpression(IScriptCallContext context, TimeSpan lower, NumericLimitType op1, TimeSpan value, NumericLimitType op2, TimeSpan upper)
        {
            long tolerance = APPROX_TOL_TS;

            bool result = true;

            switch (op1)
            {
            case NumericLimitType.Exclude:
                result = (value > lower);
                break;

            case NumericLimitType.Include:
                result = (value >= lower);
                break;

            case NumericLimitType.Approx:
                result = (value.Ticks > (lower.Ticks - tolerance));
                break;

            default:
                throw new NotImplementedException();
            }
            switch (op1)
            {
            case NumericLimitType.Exclude:
                result &= (value < upper);
                break;

            case NumericLimitType.Include:
                result &= (value <= upper);
                break;

            case NumericLimitType.Approx:
                result &= (value.Ticks < (upper.Ticks + tolerance));
                break;

            default:
                throw new NotImplementedException();
            }

            return(result);
        }
예제 #26
0
        /// <summary>
        /// Executes the evaluation of an expect statement.
        /// </summary>
        /// <param name="context">Execution call context.</param>
        /// <param name="evaluation">The expect statement evaluation code.</param>
        /// <param name="negativeVerdict">The verdict for negative evaluation result.</param>
        /// <param name="title">The expect statement title.</param>
        /// <param name="expected">String representation of the expectation.</param>
        /// <returns>Whether the procedure should skip the rest and return immediately.</returns>
        public static bool ExpectStatement(
            IScriptCallContext context,
            ExpectStatementEvaluationDelegate evaluation,
            Verdict negativeVerdict,
            string title,
            string expected)
        {
            bool success;

            try
            {
                string actual;
                success = evaluation(context, out actual);
                context.ReportExpectResult(title, expected, actual, success ? Verdict.Pass : negativeVerdict);

                if (success)
                {
                    return(false);
                }
                else if (negativeVerdict == Verdict.Error)
                {
                    return(true);
                }
                else
                {
                    return((context.Self.Flags & ProcedureFlags.ContinueOnFail) == ProcedureFlags.None);
                }
            }
            catch (Exception ex)
            {
                if (context != null)
                {
                    context.ReportError($"Exception thrown during expect statement execution.", exception: ex);
                }
                else
                {
                    throw;
                }

                return(true); // Do exit the procedure
            }
        }
예제 #27
0
        public static bool EqualsWithToleranceDecimalExpression(IScriptCallContext context, bool isApprox, double value, double expected, double tolerance)
        {
            if (tolerance < 0.0)
            {
                throw new ArgumentException("The tolerance must be a positive number.");
            }
            var tol = tolerance;

            if (isApprox)
            {
                if (tol == 0.0)
                {
                    tol = APPROX_TOL;
                }
                else
                {
                    tol += tolerance * APPROX_TOL;
                }
            }
            return(value >= (expected - tol) && value <= (expected + tol));
        }
예제 #28
0
        public bool SetResultFromSub(IScriptCallContext sub)
        {
            if (sub.Result.Verdict > m_verdict)
            {
                m_verdict = sub.Result.Verdict;
                if (sub.Result.Verdict >= Verdict.Fail)
                {
                    m_failureLine        = m_currentStatementLine;
                    m_failureID          = sub.Result.ErrorID;
                    m_failureDescription = $"Failure in called procedure \"{sub.Self.FullName}\".";

                    if (m_verdict == Verdict.Error)
                    {
                        return(true);
                    }
                    else if (m_verdict == Verdict.Fail)
                    {
                        return((m_procedure.Flags & ProcedureFlags.ContinueOnFail) == ProcedureFlags.None);
                    }
                }
            }
            return(false);
        }
예제 #29
0
 public static IValueContainer <T> GetGlobalVariable <T>(IScriptCallContext context, int id)
 {
     if (context == null)
     {
         foreach (var file in ServiceManager.Global.Get <ILoadedFilesManager>().ListFiles <ScriptFile>())
         {
             var container = file.TryGetVariableContainer <T>(id);
             if (container != null)
             {
                 return(container);
             }
         }
     }
     else
     {
         var container = ((StepBro.Core.ScriptData.ScriptFile)context.Self.ParentFile).TryGetVariableContainer <T>(id);
         if (container != null)
         {
             return(container);
         }
     }
     context.ReportError(String.Format("INTERNAL ERROR: Could not find variable container with id = {0}.", id));
     return(null);
 }
 public bool SetResultFromSub(IScriptCallContext sub)
 {
     throw new NotImplementedException();
 }