Сокрытие служебных экспортных процедур в служебном классе

Author: nixel2007

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

@@ -4,13 +4,13 @@
 Перем Лог;
 
 Перем Конвейер;
-Перем Коллекция;
+Перем ПотокСлужебный;
 
 // Общее API
 
 Процедура УстановитьКоллекцию(НоваяКоллекция) Экспорт
-	Коллекция = НоваяКоллекция;
-	Лог.Отладка("Установлена коллекция размером %1", Коллекция.Количество());
+	ПотокСлужебный.УстановитьКоллекцию(НоваяКоллекция);
+	Лог.Отладка("Установлена коллекция размером %1", ПотокСлужебный.ПолучитьКоллекцию().Количество());
 КонецПроцедуры
 
 // Конвейерные методы
@@ -79,6 +79,7 @@
 	ПройтиКонвейер();
 
 	Результат = Неопределено;
+	Коллекция = ПотокСлужебный.ПолучитьКоллекцию();
 	Для Каждого Элемент Из Коллекция Цикл
 		Результат = Элемент;
 		Прервать;
@@ -95,6 +96,7 @@
 	ПройтиКонвейер();
 
 	Результат = Новый Массив;
+	Коллекция = ПотокСлужебный.ПолучитьКоллекцию();
 	Для Каждого Элемент Из Коллекция Цикл
 		Результат.Добавить(Элемент);
 	КонецЦикла;
@@ -109,6 +111,7 @@
 
 	ПройтиКонвейер();
 
+	Коллекция = ПотокСлужебный.ПолучитьКоллекцию();
 	Результат = Коллекция.Количество();
 
 	Возврат Результат;
@@ -125,7 +128,7 @@
 	ДополнительныеПараметры = Новый Структура;
 	ДополнительныеПараметры.Вставить("Обработчик", ОписаниеОповещения);
 
-	ВыполнитьОбработать(Результат, ДополнительныеПараметры);
+	ПотокСлужебный.ВыполнитьОбработать(Результат, ДополнительныеПараметры);
 
 	Возврат Результат;
 
@@ -145,7 +148,7 @@
 	ДополнительныеПараметры = Новый Структура;
 	ДополнительныеПараметры.Вставить("Обработчик", ОбработчикСравнения);
 
-	ВыполнитьСортировать(Результат, ДополнительныеПараметры);
+	ПотокСлужебный.ВыполнитьСортировать(Результат, ДополнительныеПараметры);
 
 	Если Результат.Количество() = 0 Тогда
 		Возврат Неопределено;
@@ -169,7 +172,7 @@
 	ДополнительныеПараметры = Новый Структура;
 	ДополнительныеПараметры.Вставить("Обработчик", ОбработчикСравнения);
 
-	ВыполнитьСортировать(Результат, ДополнительныеПараметры);
+	ПотокСлужебный.ВыполнитьСортировать(Результат, ДополнительныеПараметры);
 
 	Если Результат.Количество() = 0 Тогда
 		Возврат Неопределено;
@@ -186,6 +189,7 @@
 	ПройтиКонвейер();
 
 	Результат = НачальноеЗначение;
+	Коллекция = ПотокСлужебный.ПолучитьКоллекцию();
 	Для Каждого Элемент Из Коллекция Цикл
 		Если Обработчик.ДополнительныеПараметры = Неопределено Тогда
 			Обработчик.ДополнительныеПараметры = Новый Структура;
@@ -200,150 +204,6 @@
 
 // Служебные процедуры и функции
 
-Процедура ВыполнитьПервые(Результат, ДополнительныеПараметры) Экспорт
-
-	Количество = ДополнительныеПараметры.Количество;
-
-	Лог.Отладка("ВыполнитьПервые %1", Количество);
-
-	Результат = Новый Массив;
-	Для сч = 0 По Количество - 1 Цикл
-		Элемент = Коллекция[сч];
-		Результат.Добавить(Элемент);
-	КонецЦикла;
-
-КонецПроцедуры
-
-Процедура ВыполнитьПропустить(Результат, ДополнительныеПараметры) Экспорт
-	
-	Количество = ДополнительныеПараметры.Количество;
-	
-	Лог.Отладка("ВыполнитьПропустить %1", Количество);
-	
-	Результат = Новый Массив;
-	Для сч = Количество По Коллекция.ВГраница() Цикл
-		Элемент = Коллекция[сч];
-		Результат.Добавить(Элемент);
-	КонецЦикла;
-	
-КонецПроцедуры
-
-Процедура ВыполнитьРазличные(Результат, ДополнительныеПараметры) Экспорт
-
-	Лог.Отладка("ВыполнитьРазличные");
-	
-	Результат = Новый Массив;
-	
-	ОбработчикСравнения = ДополнительныеПараметры.Обработчик;
-
-	Для Каждого Элемент Из Коллекция Цикл
-		
-		КоличествоСовпадений = 0;
-
-		Для Каждого ЭлементРезультат Из Результат Цикл
-			ОбработчикСравнения.ДополнительныеПараметры.Элемент1 = Элемент;
-			ОбработчикСравнения.ДополнительныеПараметры.Элемент2 = ЭлементРезультат;
-			РезультатСортировки = Неопределено;
-			ОписанияОповещений.ВыполнитьОбработкуОповещения(ОбработчикСравнения, РезультатСортировки);
-			Если РезультатСортировки = 0 Тогда
-				КоличествоСовпадений = КоличествоСовпадений + 1;
-			КонецЕсли;
-		КонецЦикла;
-	
-		Если КоличествоСовпадений = 0 Тогда 
-			Результат.Добавить(Элемент);
-		КонецЕсли;
-
-	КонецЦикла;
-
-КонецПроцедуры
-
-Процедура ВыполнитьФильтровать(Результат, ДополнительныеПараметры) Экспорт
-	
-	Обработчик = ДополнительныеПараметры.Обработчик;
-	
-	Лог.Отладка("ВыполнитьФильтровать %1", Обработчик.ИмяПроцедуры);
-	
-	Результат = Новый Массив;
-		
-	Если Обработчик.ДополнительныеПараметры = Неопределено Тогда
-		Обработчик.ДополнительныеПараметры = Новый Структура;
-	КонецЕсли;
-	Обработчик.ДополнительныеПараметры.Вставить("Элемент");
-
-	Для Каждого Элемент Из Коллекция Цикл
-		Обработчик.ДополнительныеПараметры.Элемент = Элемент;
-		РезультатФильтрации = Ложь;
-		ОписанияОповещений.ВыполнитьОбработкуОповещения(Обработчик, РезультатФильтрации);
-
-		Если РезультатФильтрации Тогда
-			Результат.Добавить(Элемент);
-		КонецЕсли;
-	КонецЦикла;
-	
-КонецПроцедуры
-
-Процедура ВыполнитьОбработать(Результат, ДополнительныеПараметры) Экспорт
-	
-	Обработчик = ДополнительныеПараметры.Обработчик;
-	
-	Лог.Отладка("ВыполнитьОбработать %1", Обработчик.ИмяПроцедуры);
-	
-	Результат = Новый Массив;
-	
-	Если Обработчик.ДополнительныеПараметры = Неопределено Тогда
-		Обработчик.ДополнительныеПараметры = Новый Структура;
-	КонецЕсли;
-	Обработчик.ДополнительныеПараметры.Вставить("Элемент");
-	
-	Для Каждого Элемент Из Коллекция Цикл
-		Обработчик.ДополнительныеПараметры.Элемент = Элемент;
-		РезультатОбработки = Элемент;
-		ОписанияОповещений.ВыполнитьОбработкуОповещения(Обработчик, РезультатОбработки);
-		
-		Результат.Добавить(РезультатОбработки);
-	КонецЦикла;
-	
-КонецПроцедуры
-
-Процедура ВыполнитьСортировать(Результат, ДополнительныеПараметры) Экспорт
-	
-	Обработчик = ДополнительныеПараметры.Обработчик;
-	
-	Лог.Отладка("ВыполнитьСортировать %1", Обработчик.ИмяПроцедуры);
-	
-	Результат = Коллекция;
-	
-	Если Обработчик.ДополнительныеПараметры = Неопределено Тогда
-		Обработчик.ДополнительныеПараметры = Новый Структура;
-	КонецЕсли;
-	Обработчик.ДополнительныеПараметры.Вставить("Элемент1");
-	Обработчик.ДополнительныеПараметры.Вставить("Элемент2");
-
-	Для й = 0 По Результат.Количество() - 1 Цикл
-		Флаг = Ложь;
-		к = Результат.Количество() - 1;
-		Пока к > й Цикл
-			Элемент = Результат[к - 1];
-			СледующийЭлемент = Результат[к];
-			Обработчик.ДополнительныеПараметры.Элемент1 = Элемент;
-			Обработчик.ДополнительныеПараметры.Элемент2 = СледующийЭлемент;
-			РезультатСортировки = Неопределено;
-			ОписанияОповещений.ВыполнитьОбработкуОповещения(Обработчик, РезультатСортировки);
-			Если РезультатСортировки > 0 Тогда
-				Результат[к - 1] = СледующийЭлемент;
-				Результат[к] = Элемент;
-				Флаг = Истина;
-			КонецЕсли;
-			к = к - 1;
-		КонецЦикла;
-		Если НЕ Флаг Тогда
-			Прервать;
-		КонецЕсли;
-	КонецЦикла;
-
-КонецПроцедуры
-
 Процедура ПоложитьЯчейкуВКонвейер(ИмяОперации, 
 								  ВходящееОписаниеОповещения = Неопределено, 
 								  ДополнительныеПараметры = Неопределено)
@@ -362,7 +222,7 @@
 		ДополнительныеПараметры.Вставить("Обработчик", ВходящееОписаниеОповещения);
 	КонецЕсли;
 
-	Ячейка = ОписанияОповещений.Создать("Выполнить" + ИмяОперации, ЭтотОбъект, ДополнительныеПараметры);
+	Ячейка = ОписанияОповещений.Создать("Выполнить" + ИмяОперации, ПотокСлужебный, ДополнительныеПараметры);
 
 	Конвейер.Добавить(Ячейка);
 
@@ -374,11 +234,13 @@
 
 	Результат = Новый Массив;
 	Для Каждого Ячейка Из Конвейер Цикл
+		Коллекция = ПотокСлужебный.ПолучитьКоллекцию();
+		
 		Лог.Отладка("Выполняю ячейку конвейера %1", Ячейка.ИмяПроцедуры);
 		Лог.Отладка("Размер коллекции %1", Коллекция.Количество());
 
 		ОписанияОповещений.ВыполнитьОбработкуОповещения(Ячейка, Результат);
-		Коллекция = Результат;
+		ПотокСлужебный.УстановитьКоллекцию(Результат);
 	КонецЦикла;
 
 	Конвейер.Очистить();
@@ -389,6 +251,9 @@
 	Конвейер = Новый Массив;
 	Лог = Логирование.ПолучитьЛог("oscript.lib.stream");
 	Лог.УстановитьУровень(УровниЛога.Отладка);
+
+	ПутьКСценарию_ПотокСлужебный = ОбъединитьПути(ТекущийСценарий().Каталог, "ПотокСлужебный.os");
+	ПотокСлужебный = ЗагрузитьСценарий(ПутьКСценарию_ПотокСлужебный);
 КонецПроцедуры
 
 Инициализация();