сравнение по представлениям

Author: Mr-Rm

src/OneScript.StandardLibrary/Collections/ValueTable/ValueTable.cs

@@ -636,14 +636,15 @@ private class RowComparator : IComparer<ValueTableRow>
         {
             readonly List<ValueTableSortRule> Rules;
 
-            readonly GenericIValueComparer _comparer = new GenericIValueComparer();
+            readonly GenericIValueComparer _comparer;
 
-            public RowComparator(List<ValueTableSortRule> Rules)
+            public RowComparator(IBslProcess process, List<ValueTableSortRule> Rules)
             {
-                if (Rules.Count() == 0)
+                if (Rules.Count == 0)
                     throw RuntimeException.InvalidArgumentValue();
 
                 this.Rules = Rules;
+                 _comparer = new GenericIValueComparer(process);
             }
 
             private int OneCompare(ValueTableRow x, ValueTableRow y, ValueTableSortRule Rule)
@@ -661,7 +662,7 @@ public int Compare(ValueTableRow x, ValueTableRow y)
                 int i = 0, r;
                 while ((r = OneCompare(x, y, Rules[i])) == 0)
                 {
-                    if (++i >= Rules.Count())
+                    if (++i >= Rules.Count)
                         return 0;
                 }
 
@@ -678,9 +679,9 @@ public int Compare(ValueTableRow x, ValueTableRow y)
         /// </param>
         /// <param name="comparator">СравнениеЗначений - правила сравнения значений при наличии различных типов данных в колонке.</param>
         [ContextMethod("Сортировать", "Sort")]
-        public void Sort(string columns, IValue comparator = null)
+        public void Sort(IBslProcess process, string columns, IValue comparator = null)
         {
-            _rows.Sort(new RowComparator(GetSortRules(columns)));
+            _rows.Sort(new RowComparator(process, GetSortRules(columns)));
         }
 
         /// <summary>

src/ScriptEngine/Machine/GenericIValueComparer.cs

@@ -9,11 +9,25 @@ This Source Code Form is subject to the terms of the
 using System.Collections.Generic;
 using OneScript.Values;
 using ScriptEngine.Machine.Contexts;
+using OneScript.Execution;
 
 namespace ScriptEngine.Machine
 {
     public class GenericIValueComparer : IEqualityComparer<IValue>, IComparer<IValue>
     {
+        private readonly IBslProcess _process;
+        private readonly Func<IValue, IValue, int> _comparer;
+
+        public GenericIValueComparer()
+        {
+            _comparer = CompareAsStrings;
+        }
+
+        public GenericIValueComparer(IBslProcess proc)
+        {
+            _process = proc;
+            _comparer = CompareByPresentations;
+        }
 
         public bool Equals(IValue x, IValue y)
         {
@@ -38,6 +52,16 @@ public int GetHashCode(IValue obj)
             return CLR_obj.GetHashCode();
         }
 
+        private int CompareAsStrings(IValue x, IValue y)
+        {
+            return x.ToString().CompareTo(y.ToString());
+        }
+
+        private int CompareByPresentations(IValue x, IValue y)
+        {
+            return ((BslValue)x).ToString(_process).CompareTo(((BslValue)y).ToString(_process));
+        }
+
         public int Compare(IValue x, IValue y)
         {
            if (ReferenceEquals(x, y))
@@ -46,7 +70,7 @@ public int Compare(IValue x, IValue y)
             if (x is IComparable && x.SystemType == y.SystemType )
                 return x.CompareTo(y);
             else
-                return x.ToString().CompareTo(y.ToString());
+                return _comparer(x,y);
         }
     }
 }

tests/valuetable.os

@@ -45,6 +45,7 @@
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуНеупорядочиваемыхТипов");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуРазныхТипов");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьСортировкуПоПредставлению");
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -816,3 +817,42 @@
 	юТест.ПроверитьРавенство(ТипЗнч(ТЗ[4].Тест), Тип("Структура"));
 	юТест.ПроверитьРавенство(ТЗ[5].Тест, "СтрЪ");
 КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьСортировкуПоПредставлению() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	ТЗ.Колонки.Добавить("Тест");
+
+    ТекстКласса =
+    	"Процедура ОбработкаПолученияПредставления(Представление, СтандартнаяОбработка)
+    	|	СтандартнаяОбработка = Ложь;
+    	|	Представление = ""Представление0"";
+    	|КонецПроцедуры";
+    КлассИзСтроки0 = ЗагрузитьСценарийИзСтроки(ТекстКласса);
+
+    ТекстКласса =
+    	"Процедура ОбработкаПолученияПредставления(Представление, СтандартнаяОбработка)
+    	|	СтандартнаяОбработка = Ложь;
+    	|	Представление = ""Представление1"";
+    	|КонецПроцедуры";
+    КлассИзСтроки1 = ЗагрузитьСценарийИзСтроки(ТекстКласса);
+
+    ТекстКласса =
+    	"Процедура ОбработкаПолученияПредставления(Представление, СтандартнаяОбработка)
+    	|	СтандартнаяОбработка = Ложь;
+    	|	Представление = ""Представление3"";
+    	|КонецПроцедуры";
+    КлассИзСтроки3 = ЗагрузитьСценарийИзСтроки(ТекстКласса);
+
+	ТЗ.Добавить().Тест = КлассИзСтроки3;
+	ТЗ.Добавить().Тест = "Представление2";
+	ТЗ.Добавить().Тест = КлассИзСтроки0;
+	ТЗ.Добавить().Тест = КлассИзСтроки1;
+	
+	ТЗ.Сортировать("Тест");
+	юТест.ПроверитьРавенство(Строка(ТЗ[0].Тест), "Представление0");
+	юТест.ПроверитьРавенство(Строка(ТЗ[1].Тест), "Представление1");
+	юТест.ПроверитьРавенство(ТЗ[2].Тест, "Представление2");
+	юТест.ПроверитьРавенство(Строка(ТЗ[3].Тест), "Представление3");
+  
+КонецПроцедуры
+