fix EvilBeaver#1582: общий интерфейс для сравнимых

Author: Mr-Rm

src/OneScript.Core/Values/BslBooleanValue.cs

@@ -12,7 +12,7 @@ This Source Code Form is subject to the terms of the
 
 namespace OneScript.Values
 {
-    public sealed class BslBooleanValue : BslPrimitiveValue
+    public sealed class BslBooleanValue : BslPrimitiveValue, IBslComparable
     {
         public static readonly BslBooleanValue True = new BslBooleanValue(true);
         public static readonly BslBooleanValue False = new BslBooleanValue(false);

src/OneScript.Core/Values/BslDateValue.cs

@@ -12,7 +12,7 @@ This Source Code Form is subject to the terms of the
 
 namespace OneScript.Values
 {
-    public sealed class BslDateValue : BslPrimitiveValue
+    public sealed class BslDateValue : BslPrimitiveValue, IBslComparable
     {
         private readonly DateTime _value;
 

src/OneScript.Core/Values/BslNumericValue.cs

@@ -14,7 +14,7 @@ This Source Code Form is subject to the terms of the
 
 namespace OneScript.Values
 {
-    public sealed class BslNumericValue : BslPrimitiveValue, IEquatable<BslNumericValue>
+    public sealed class BslNumericValue : BslPrimitiveValue, IEquatable<BslNumericValue>, IBslComparable
     {
         private static readonly BslNumericValue[] _popularValues = new BslNumericValue[10];
         static BslNumericValue()

src/OneScript.Core/Values/BslStringValue.cs

@@ -10,7 +10,7 @@ This Source Code Form is subject to the terms of the
 
 namespace OneScript.Values
 {
-    public sealed class BslStringValue : BslPrimitiveValue
+    public sealed class BslStringValue : BslPrimitiveValue, IBslComparable
     {
         private readonly string _value;
 

src/OneScript.Core/Values/IBslComparable.cs

@@ -0,0 +1,13 @@
+/*----------------------------------------------------------
+This Source Code Form is subject to the terms of the
+Mozilla Public License, v.2.0. If a copy of the MPL
+was not distributed with this file, You can obtain one
+at http://mozilla.org/MPL/2.0/.
+----------------------------------------------------------*/
+
+namespace OneScript.Values
+{
+    public interface IBslComparable
+    {
+    }
+}

src/ScriptEngine/Machine/GenericIValueComparer.cs

@@ -66,8 +66,8 @@ public int Compare(IValue x, IValue y)
         {
            if (ReferenceEquals(x, y))
                 return 0;
-            
-            if (x is IComparable && x.SystemType == y.SystemType )
+
+            if (x is IBslComparable && x.SystemType == y.SystemType )
                 return x.CompareTo(y);
             else
                 return _comparer(x,y);