Сортировка

Author: nixel2007

src/Классы/Поток.os

@@ -79,6 +79,25 @@
 
 КонецФункции
 
+Функция Сортировать(Знач ОписаниеОповещения = Неопределено) Экспорт
+	
+	Если ОписаниеОповещения = Неопределено Тогда
+		ОписаниеОповещения = СтандартныйОбработчикСравнения();
+	КонецЕсли;
+
+	Лог.Отладка("Сортировать %1", ОписаниеОповещения.ИмяПроцедуры);
+	
+	ДополнительныеПараметры = Новый Структура;
+	ДополнительныеПараметры.Вставить("Обработчик", ОписаниеОповещения);
+	
+	Ячейка = ОписанияОповещений.Создать("ВыполнитьСортировать", ЭтотОбъект, ДополнительныеПараметры);
+	
+	Конвейер.Добавить(Ячейка);
+	
+	Возврат ЭтотОбъект;
+	
+КонецФункции
+
 // Терминальные методы
 
 Функция ВМассив() Экспорт
@@ -173,6 +192,62 @@
 
 КонецПроцедуры
 
+Процедура ВыполнитьСортировать(Результат, ДополнительныеПараметры) Экспорт
+	
+	Обработчик = ДополнительныеПараметры.Обработчик;
+	
+	Лог.Отладка("ВыполнитьСортировать %1", Обработчик.ИмяПроцедуры);
+	
+	Результат = Коллекция;
+	
+	Если Обработчик.ДополнительныеПараметры = Неопределено Тогда
+		Обработчик.ДополнительныеПараметры = Новый Структура;
+	КонецЕсли;
+	Обработчик.ДополнительныеПараметры.Вставить("Элемент1");
+	Обработчик.ДополнительныеПараметры.Вставить("Элемент2");
+
+	Для й = 0 По Результат.Количество() - 1 Цикл
+		Флаг = Ложь;
+		к = Результат.Количество() - 1;
+		Пока к > й Цикл
+			Элемент = Результат[к - 1];
+			СледующийЭлемент = Результат[к];
+			Обработчик.ДополнительныеПараметры.Элемент1 = Элемент;
+			Обработчик.ДополнительныеПараметры.Элемент2 = СледующийЭлемент;
+			РезультатСортировки = Неопределено;
+			ОписанияОповещений.ВыполнитьОбработкуОповещения(Обработчик, РезультатСортировки);
+			Если РезультатСортировки > 0 Тогда
+				Результат[к - 1] = СледующийЭлемент;
+				Результат[к] = Элемент;
+				Флаг = Истина;
+			КонецЕсли;
+			к = к - 1;
+		КонецЦикла;
+		Если НЕ Флаг Тогда
+			Прервать;
+		КонецЕсли;
+	КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ОбработчикСравнения(РезультатСортировки, ДополнительныеПараметры) Экспорт
+	Элемент1 = ДополнительныеПараметры.Элемент1;
+	Элемент2 = ДополнительныеПараметры.Элемент2;
+	
+	Если Элемент1 = Элемент2 Тогда
+		РезультатСортировки = 0;
+	ИначеЕсли Элемент1 > Элемент2 Тогда
+		РезультатСортировки = 1;
+	Иначе
+		РезультатСортировки = -1;
+	КонецЕсли;
+КонецПроцедуры
+
+Функция СтандартныйОбработчикСравнения()
+	ФункцияСравнения = ОписанияОповещений.Создать("ОбработчикСравнения", ЭтотОбъект);
+	Возврат ФункцияСравнения;
+КонецФункции
+
 Процедура ПройтиКонвейер()
 
 	Лог.Отладка("Прохожу по конвейеру");

test.os

@@ -36,4 +36,11 @@
 
 Для Каждого Элемент Из Результат Цикл
 	Сообщить(Элемент);
-КонецЦикла
+КонецЦикла;
+
+Стрим = Потоки.ИзКоллекции(Массив);
+Результат = Стрим.Сортировать().ВМассив();
+
+Для Каждого Элемент Из Результат Цикл
+	Сообщить(Элемент);
+КонецЦикла;