DictionaryRightScalarSubtraction.cs

using System.Collections.Generic;
using Waher.Runtime.Inventory;
using Waher.Script.Abstraction.CustomOperators;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Script.Operators.Arithmetics.Custom
{
    public class DictionaryRightScalarSubtraction : IBinaryOperator
    {
        public DictionaryRightScalarSubtraction()
        {
        }
 
        public Grade Supports(IBinaryOperation Operation)
        {
            if (Operation.Name != "op_Subtraction")
                return Grade.NotAtAll;
 
            object Left = Operation.Left.AssociatedObjectValue;
            object Right = Operation.Right.AssociatedObjectValue;
 
            if ((Left is IEnumerable<KeyValuePair<string, IElement>> ||
                Left is IEnumerable<KeyValuePair<string, object>>) &&
                Operation.Right.IsScalar &&
                !(Right is IEnumerable<KeyValuePair<string, IElement>> ||
                Right is IEnumerable<KeyValuePair<string, object>>))
            {
                return Grade.Excellent;
            }
            else
                return Grade.NotAtAll;
        }
 
        public IElement Evaluate(IBinaryOperation Operation, ScriptNode Node)
        {
            Dictionary<string, IElement> Result = new Dictionary<string, IElement>();
            object L = Operation.Left.AssociatedObjectValue;
            IElement Scalar = Operation.Right;
 
            if (L is IDictionary<string, IElement> LeftDictionary)
            {
                foreach (KeyValuePair<string, IElement> P in LeftDictionary)
                    Result[P.Key] = Subtract.EvaluateSubtraction(P.Value, Scalar, Node);
            }
            else if (L is IDictionary<string, object> LeftDictionary2)
            {
                foreach (KeyValuePair<string, object> P in LeftDictionary2)
                    Result[P.Key] = Subtract.EvaluateSubtraction(Expression.Encapsulate(P.Value), Scalar, Node);
            }
            else if (L is IEnumerable<KeyValuePair<string, IElement>> LeftEnumeration)
            {
                foreach (KeyValuePair<string, IElement> P in LeftEnumeration)
                {
                    if (Result.TryGetValue(P.Key, out IElement E))
                        Result[P.Key] = Subtract.EvaluateSubtraction(E, P.Value, Node);
                    else
                        Result[P.Key] = Subtract.EvaluateSubtraction(P.Value, Scalar, Node);
                }
            }
            else if (L is IEnumerable<KeyValuePair<string, object>> LeftEnumeration2)
            {
                foreach (KeyValuePair<string, object> P in LeftEnumeration2)
                {
                    IElement Value = Expression.Encapsulate(P.Value);
 
                    if (Result.TryGetValue(P.Key, out IElement E))
                        Result[P.Key] = Subtract.EvaluateSubtraction(E, Value, Node);
                    else
                        Result[P.Key] = Subtract.EvaluateSubtraction(Value, Scalar, Node);
                }
            }
 
            return new ObjectValue(Result);
        }
    }
}