ObjectValues.cs

using System;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
 
namespace Waher.Script.Objects
{
    public sealed class ObjectValues : Set, IOrderedSet
    {
        private static readonly int hashCode = typeof(ObjectValues).FullName.GetHashCode();
 
        public ObjectValues()
        {
        }
 
        public override bool Contains(IElement Element)
        {
            return Element is ObjectValue;
        }
 
        public override bool Equals(object obj)
        {
            return obj is ObjectValues;
        }
 
        public override int GetHashCode()
        {
            return hashCode;
        }
 
        public int Compare(IElement x, IElement y)
        {
            object o1 = x.AssociatedObjectValue;
            object o2 = y.AssociatedObjectValue;
            IComparable c1 = o1 as IComparable;
            IComparable c2 = o2 as IComparable;
 
            if (c1 is null || c2 is null)
            {
                if (!(o1 is null || o2 is null))
                {
                    if (o1.Equals(o2))
                        return 0;
 
                    IElement E = BinaryOperator.EvaluateNamedOperator("op_LessThan", x, y, ScriptNode.EmptyNode);
                    if (E?.AssociatedObjectValue is bool B)
                        return B ? -1 : 1;
                }
 
                if (c1 is null && c2 is null)
                    return 0;
                else if (c1 is null)
                    return -1;
                else
                    return 1;
            }
 
            return c1.CompareTo(c2);
        }
    }
}