StringValues.cs

using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
 
namespace Waher.Script.Objects
{
    public sealed class StringValues : SemiGroup, IOrderedSet
    {
        private static readonly int hashCode = typeof(StringValues).FullName.GetHashCode();
 
        public StringValues()
        {
        }
 
        public static readonly StringValues Instance = new StringValues();
 
        public override bool Contains(IElement Element)
        {
            return Element is StringValue S && !S.CaseInsensitive;
        }
 
        public override bool Equals(object obj)
        {
            return obj is StringValues;
        }
 
        public override int GetHashCode()
        {
            return hashCode;
        }
 
        public int Compare(IElement x, IElement y)
        {
            if (!(x.AssociatedObjectValue is string s1))
                s1 = Expression.ToExpressionString(x.AssociatedObjectValue);
 
            if (!(y.AssociatedObjectValue is string s2))
                s2 = Expression.ToExpressionString(y.AssociatedObjectValue);
 
            return string.Compare(s1, s2, false);
        }
    }
}