ElementOrder.cs

using System;
using System.Collections.Generic;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Exceptions;
using Waher.Script.Model;
 
namespace Waher.Script.Order
{
    public class ElementOrder : IComparer<IElement>
    {
        private readonly ScriptNode node;
 
        public ElementOrder(ScriptNode Node)
        {
            this.node = Node;
        }
 
        public int Compare(IElement x, IElement y)
        {
            return Compare(x, y, this.node);
        }
 
        public static int Compare(IElement x, IElement y, ScriptNode Node)
        {
            if (x.AssociatedSet is IOrderedSet OrderedSet1)
                return OrderedSet1.Compare(x, y);
            else if (y.AssociatedSet is IOrderedSet OrderedSet2)
                return OrderedSet2.Compare(x, y);
            else if (x is IVector v1 && y is IVector v2)
            {
                IElement e1, e2;
                int c1 = v1.Dimension;
                int c2 = v2.Dimension;
                int c = Math.Min(c1, c2);
                int i, j;
 
                for (i = 0; i < c; i++)
                {
                    e1 = v1.GetElement(i);
                    e2 = v2.GetElement(i);
                    j = Compare(e1, e2, Node);
                    if (j != 0)
                        return j;
                }
 
                return c1 - c2;
            }
            else
                throw new ScriptRuntimeException("Elements not ordered", Node);
        }
 
    }
}