Finish 0.5.3

features/step_definitions/constructor.os

@@ -130,7 +130,7 @@
 Процедура ЯСоздаюНовыеПараметрыСИменемИСохраняюВ(Знач ИмяКонструктораПараметров, Знач ИмяПеременной) Экспорт
 
 	МенеджерПараметров = БДД.ПолучитьИзКонтекста("МенеджерПараметров");
-	ПараметрОбъект = МенеджерПараметров.НовыйКонструкторПараметров(ИмяКонструктораПараметров);
+	ПараметрОбъект = МенеджерПараметров.НовыйКонструкторПараметров();
 
 	БДД.СохранитьВКонтекст(ИмяПеременной, ПараметрОбъект);
 

packagedef

@@ -4,7 +4,7 @@
 //
 
 Описание.Имя("configor")
-        .Версия("0.5.2")
+        .Версия("0.5.3")
         .Автор("Khorev Aleksey")
         .АдресАвтора("[email protected]")
         .Описание("Библиотека для работы с конфигурационными файлами в формате json, yaml")

src/Классы/КонструкторПараметров.os

@@ -5,11 +5,9 @@
 Перем Лог;
 
 Перем Настройки; // Соответствие
-Перем НаименованиеПараметров; // Строка
 Перем СинонимыПараметров; // Массив строка 
 Перем ИндексПолей; // Соответствие ключа и типа элемента массива
 Перем ИндексСинонимовПолей; // Соответствие синонимов полей и наименования полей
-Перем ИндексПараметров; // Соответствие текущий настроек
 Перем КонструкторИспользован; // Булево, признак использования объекта при чтении из соответсвтия
 Перем ИнтерфейсКонструктора; // Класс объект ИнтерфейсОбъекта
 Перем МожетСодержатьПроизвольныеПоля; // Булево, признак возможность не указывать поля
@@ -18,30 +16,17 @@
 
 // Создает и возвращает новый экземпляр конструктора параметров
 //
-// Параметры:
-//   НовоеНаименованиеПараметров - Строка - наименование конструктора параметров
-//
 //  Возвращаемое значение:
 //   Объект.КонструкторПараметров - ссылка на новый элемент класса <КонструкторПараметров>
 //
-Функция НовыеПараметры(Знач НовоеНаименованиеПараметров) Экспорт
+Функция НовыеПараметры() Экспорт
 
-	НовыйЭлемент = Новый КонструкторПараметров(ИндексПараметров, НовоеНаименованиеПараметров);
+	НовыйЭлемент = Новый КонструкторПараметров();
 
 	Возврат НовыйЭлемент;
 
 КонецФункции
 
-// Возвращает текущее наименование параметров
-//
-//  Возвращаемое значение:
-//   Строка - текущее наименование параметров
-//
-Функция ПолучитьНаименованиеПараметров() Экспорт
-
-	Возврат НаименованиеПараметров;
-
-КонецФункции
 
 // (Заготовка) Устанавливает дополнительное наименование узла параметров 
 //
@@ -58,24 +43,6 @@
 
 КонецФункции
 
-// Устанавливает новое наименование параметров
-//
-// Параметры:
-//   НовоеНаименованиеПараметров - Строка - новое наименование текущего класса параметров
-//
-//  Возвращаемое значение:
-//   Объект.КонструкторПараметров - ссылка на текущий элемент класса <КонструкторПараметров>
-//
-Функция Наименование(НовоеНаименованиеПараметров) Экспорт
-
-	НаименованиеПараметров = НовоеНаименованиеПараметров;
-
-	ИндексПараметров.Вставить(НаименованиеПараметров, ЭтотОбъект);
-
-	Возврат ЭтотОбъект;
-
-КонецФункции
-
 // Выполняет заполнение описания параметров из произвольного объекта
 //
 // Параметры:
@@ -86,21 +53,13 @@
 //
 Функция ИзКласса(КлассОбъект) Экспорт
 
-	НовоеНаименованиеПараметров = Строка(ТипЗнч(КлассОбъект));
-
 	РефлекторОбъекта = Новый РефлекторОбъекта(КлассОбъект);
 	РезультатПроверки = РефлекторОбъекта.РеализуетИнтерфейс(ИнтерфейсКонструктора);
 
 	Если Не РезультатПроверки Тогда
 		ВызватьИсключение СтрШаблон("Класс <%1> не реализовывает интерфейс <%2>", КлассОбъект, ИнтерфейсКонструктора);
 	КонецЕсли;
 
-	Если РефлекторОбъекта.ЕстьФункция("ПолучитьНаименованиеПараметров") Тогда
-		НовоеНаименованиеПараметров = КлассОбъект.ПолучитьНаименованиеПараметров();
-	КонецЕсли;
-
-	Наименование(НовоеНаименованиеПараметров);
-
 	КлассОбъект.ОписаниеПараметров(ЭтотОбъект);
 
 	Возврат ЭтотОбъект;
@@ -109,16 +68,13 @@
 
 // Копирует текущий конструктор параметров
 //
-// Параметры:
-//   НовоеНаименованиеПараметров - Строка - наименование конструктора в индексе параметров
-//
 //  Возвращаемое значение:
 //   Объект.КонструкторПараметров - ссылка на текущий элемент класса <КонструкторПараметров>
 //
-Функция Скопировать(Знач НовоеНаименованиеПараметров = Неопределено) Экспорт
+Функция Скопировать() Экспорт
 
-	Лог.Отладка("Выполняю копирование элемента <%1> -> <%2>", НаименованиеПараметров, НовоеНаименованиеПараметров);
-	НовыйЭлемент = НовыеПараметры(НовоеНаименованиеПараметров);
+	Лог.Отладка("Выполняю копирование элемента конструтор парамеров");
+	НовыйЭлемент = НовыеПараметры();
 
 	Если МожетСодержатьПроизвольныеПоля Тогда
 		НовыйЭлемент.ПроизвольныеПоля();
@@ -247,15 +203,19 @@
 
 	Если Тип("ПолеКонструктораПараметров") = ТипЗнч(ОбъектПоля) Тогда
 
-		ОбъектПоля = ОбъектПоля.Конструктор(); 
+		ОбъектПоля = ОбъектПоля.Конструктор().Скопировать(); 
 
 	ИначеЕсли НЕ Тип("КонструкторПараметров") = ТипЗнч(ОбъектПоля) Тогда
 
 		ОбъектПоля = ПолучитьПолеПараметров(ОбъектПоля);
 
+	Иначе
+
+		ОбъектПоля = ОбъектПоля.Скопировать();
+
 	КонецЕсли;
 
-	Лог.Отладка("Добавляю поле объект <%1>, <%2>, <%3>", ИмяПоля, ТипПоля, ОбъектПоля.ПолучитьНаименованиеПараметров());
+	Лог.Отладка("Добавляю поле объект <%1>, <%2>", ИмяПоля, ТипПоля);
 
 	Возврат Поле(ИмяПоля, ТипПоля, ОбъектПоля, , ОбъектПоля);
 
@@ -420,8 +380,6 @@
 
 	КонструкторИспользован = Истина;
 
-	Лог.Отладка("Читаю настройки <%1>", НаименованиеПараметров);
-
 	ПрочитатьИзСоответствия(ВходящиеСоответствие);
 
 	ПоказатьНастройкиВРежимеОтладки(Настройки);
@@ -478,11 +436,17 @@
 
 		ОписаниеПоля = КлассПоля.ОписаниеПоля();
 
+		Если ТипЗнч(ОписаниеПоля.ОбъектЭлемента) = Тип("КонструкторПараметров") Тогда
+			ОбъектЭлемента = ОписаниеПоля.ОбъектЭлемента.Скопировать();
+		Иначе
+			ОбъектЭлемента = ОписаниеПоля.ОбъектЭлемента;
+		КонецЕсли;
+
 		НовыйЭлемент.Поле(ОписаниеПоля.Имя,
 						  ОписаниеПоля.Тип,
 						  ОписаниеПоля.ЗначениеПоУмолчанию,
 						  ОписаниеПоля.ТипЭлемента,
-						  ОписаниеПоля.ОбъектЭлемента
+						  ОбъектЭлемента
 						  );
 
 	КонецЦикла;
@@ -509,26 +473,14 @@
 		ВызватьИсключение СтрШаблон("Класс <%1> не реализовывает интерфейс <%2>", КлассОбъект, ИнтерфейсКонструктора);
 	КонецЕсли;
 
-	Если РефлекторОбъекта.ЕстьФункция("ПолучитьНаименованиеПараметров") Тогда
-		ИмяПараметров = КлассОбъект.ПолучитьНаименованиеПараметров();
-	КонецЕсли;
-
-	Если ПараметрЕстьВИндексе(ИмяПараметров) Тогда
-		Возврат ИндексПараметров[ИмяПараметров];
-	КонецЕсли;
-
-	КонструкторПараметровКласса = НовыеПараметры(ИмяПараметров);
+	КонструкторПараметровКласса = НовыеПараметры();
 
 	КлассОбъект.ОписаниеПараметров(КонструкторПараметровКласса);
 
 	Возврат КонструкторПараметровКласса;
 
 КонецФункции
 
-Функция ПараметрЕстьВИндексе(Знач ИмяПараметров)
-	Возврат НЕ ИндексПараметров[ИмяПараметров] = Неопределено;
-КонецФункции
-
 Функция ЗначениеВСоответствие(Значение)
 
 	ТипЗначения = ТипЗнч(Значение);
@@ -704,21 +656,11 @@
 
 КонецПроцедуры
 
-Процедура ПриСозданииОбъекта(ВходящийИндексПараметров, Знач НовоеНаименованиеПараметров)
+Процедура ПриСозданииОбъекта()
 
-	НаименованиеПараметров = НовоеНаименованиеПараметров;
 	Настройки = Новый Соответствие;
 	ИндексПолей = Новый Соответствие;
 	ИндексСинонимовПолей = Новый Соответствие;
-	ИндексПараметров = ВходящийИндексПараметров;
-
-	Если ИндексПараметров = Неопределено Тогда
-		ИндексПараметров = Новый Соответствие;
-	КонецЕсли;
-
-	Если ЗначениеЗаполнено(НаименованиеПараметров) Тогда
-		ИндексПараметров.Вставить(НаименованиеПараметров, ЭтотОбъект);
-	КонецЕсли;
 
 	КонструкторИспользован = Ложь;
 	МожетСодержатьПроизвольныеПоля = Ложь;

src/Классы/МенеджерПараметров.os

@@ -252,16 +252,15 @@
 // Создает и возвращает новый конструктор параметров
 //
 // Параметры:
-//   ИмяКонструктора - Строка - наименование конструктора параметров
 //   КлассОбъект - Объект - Класс объект реализующий интерфейс конструктора параметров
 //
 // Возвращаемое значение:
 //   Объект.КонструкторПараметров - ссылка на новый элемент класса <КонструкторПараметров>
 //
-Функция НовыйКонструкторПараметров(ИмяКонструктора, КлассОбъект = Неопределено) Экспорт
+Функция НовыйКонструкторПараметров(КлассОбъект = Неопределено) Экспорт
 
 	ВнутреннийКонструкторПараметров = КонструкторПараметров();
-	КонструкторПараметров = ВнутреннийКонструкторПараметров.НовыеПараметры(ИмяКонструктора);
+	КонструкторПараметров = ВнутреннийКонструкторПараметров.НовыеПараметры();
 
 	Если ЗначениеЗаполнено(КлассОбъект) Тогда
 
@@ -279,9 +278,7 @@
 
 Функция ПолучитьКонструкторПараметров()
 
-	ИндексПараметровКонструктора = Новый Соответствие;
-
-	Конструктор = Новый КонструкторПараметров(ИндексПараметровКонструктора, "ОсновнаяНастройка");
+	Конструктор = Новый КонструкторПараметров();
 
 	Возврат Конструктор;
 

tests/fixtures/test-config.yaml

@@ -0,0 +1,12 @@
+owner: 
+  contact:
+    email: mail.ru
+    tel: 77777777
+
+admin: 
+  contact:
+    email: admin.ru
+
+person:
+  address: home 
+

tests/fixtures/ТестовыйКласс.os

@@ -10,21 +10,21 @@
 
 Процедура ОписаниеПараметров(Знач Конструктор) Экспорт
 
-	ПараметрСоответствиеСтруктуры = Конструктор.НовыеПараметры("ПараметрСоответствиеСтруктуры")
+	ПараметрСоответствиеСтруктуры = Конструктор.НовыеПараметры()
 				.ПолеСтрока("КлючВнутри1")
 				.ПолеСтрока("КлючВнутри2")
 				;
 
-	ПараметрСтруктураВнутри = Конструктор.НовыеПараметры("ПараметрСоответствиеСтруктуры")
+	ПараметрСтруктураВнутри = Конструктор.НовыеПараметры()
 				.ПолеСтрока("Ключ1")
 				.ПолеСтрока("Ключ2")
 				;
-	ПараметрСоответствие = Конструктор.НовыеПараметры("ПараметрСоответствие")
+	ПараметрСоответствие = Конструктор.НовыеПараметры()
 				.ПолеСтрока("Ключ1")
 				.ПолеСтрока("Ключ2")
 				;
 
-	ПараметрСтруктура = Конструктор.НовыеПараметры("ВложеннаяСтруктура")
+	ПараметрСтруктура = Конструктор.НовыеПараметры()
 						.ПолеСтрока("Строка")
 						.ПолеДата("Дата")
 						.ПолеЧисло("Число")