Feature/korobka s detalkami

packagedef

@@ -19,11 +19,15 @@
         .ЗависитОт("tempfiles")
         .ЗависитОт("1connector", "2.3.3")
         .ЗависитОт("reflector", "0.3.1")
+        .ЗависитОт("annotations", "1.3.0")
         .РазработкаЗависитОт("coverage", "0.6.1")
         .РазработкаЗависитОт("1testrunner", "1.9.2")
         .РазработкаЗависитОт("1bdd", "1.14.0")
         .РазработкаЗависитОт("1commands", "1.5.0")
         .РазработкаЗависитОт("winow", "0.11.0")
         .ОпределяетКласс("МенеджерПараметров", "src/Классы/МенеджерПараметров.os")
         .ОпределяетКласс("КонструкторПараметров", "src/Классы/КонструкторПараметров.os")
+        .ОпределяетКласс("АннотацияЗначениеПоУмолчанию", "src/Классы/АннотацияЗначениеПоУмолчанию.os")
+        .ОпределяетКласс("АннотацияСиноним", "src/Классы/АннотацияСиноним.os")
+        .ОпределяетКласс("АннотацияВложенныйДТО", "src/Классы/АннотацияВложенныйДТО.os")
         ;

src/Классы/internal/Классы/ОписаниеПоляДТО.os

@@ -0,0 +1,89 @@
+// Описание одного поля DTO-класса, полученное из аннотаций свойства
+
+Перем Имя Экспорт;                // Строка - имя свойства класса
+Перем Тип Экспорт;                // Тип - тип значения (определяется из ЗначениеПоУмолчанию)
+Перем ЗначениеПоУмолчанию Экспорт; // Произвольный - значение по умолчанию
+Перем Синоним Экспорт;            // Строка - альтернативное имя ключа в конфигурации
+Перем Обязательное Экспорт;       // Булево - признак обязательности (нет ЗначениеПоУмолчанию)
+Перем ВложенныйОбъект Экспорт;    // Объект - ссылка на вложенный DTO-объект (Неопределено если примитив)
+Перем ОписанияВложенныхПолей Экспорт; // Массив из ОписаниеПоляДТО - описания полей вложенного DTO
+
+// Конструктор описания поля
+//
+// Параметры:
+//   ИмяПоля - Строка - имя свойства класса
+//
+Процедура ПриСозданииОбъекта(Знач ИмяПоля)
+
+	Имя = ИмяПоля;
+	Тип = Неопределено;
+	ЗначениеПоУмолчанию = Неопределено;
+	Синоним = Неопределено;
+	Обязательное = Истина;
+	ВложенныйОбъект = Неопределено;
+	ОписанияВложенныхПолей = Неопределено;
+
+КонецПроцедуры
+
+// Устанавливает значение по умолчанию и определяет тип из него
+//
+// Параметры:
+//   Значение - Произвольный - значение по умолчанию
+//
+Процедура УстановитьЗначениеПоУмолчанию(Знач Значение) Экспорт
+
+	ЗначениеПоУмолчанию = Значение;
+	Обязательное = Ложь;
+
+КонецПроцедуры
+
+// Устанавливает тип значения явно (из аннотации &Тип)
+//
+// Параметры:
+//   НовыйТип - Тип - целевой тип значения
+//
+Процедура УстановитьТип(Знач НовыйТип) Экспорт
+	Тип = НовыйТип;
+КонецПроцедуры
+
+// Устанавливает синоним поля
+//
+// Параметры:
+//   НовыйСиноним - Строка - альтернативное имя ключа в конфигурации
+//
+Процедура УстановитьСиноним(Знач НовыйСиноним) Экспорт
+	Синоним = НовыйСиноним;
+КонецПроцедуры
+
+// Устанавливает вложенный DTO-объект и его описания полей
+//
+// Параметры:
+//   Объект - Объект - вложенный DTO-объект
+//   ОписанияПолей - Массив из ОписаниеПоляДТО - описания полей вложенного DTO
+//
+Процедура УстановитьВложенныйОбъект(Знач Объект, Знач ОписанияПолей) Экспорт
+	ВложенныйОбъект = Объект;
+	ОписанияВложенныхПолей = ОписанияПолей;
+	Обязательное = Ложь;
+КонецПроцедуры
+
+// Возвращает признак того, что поле является вложенным DTO
+Функция ЭтоВложенныйДТО() Экспорт
+	Возврат Не ВложенныйОбъект = Неопределено;
+КонецФункции
+
+// Возвращает ключ для поиска в конфигурации
+// Если задан синоним — возвращает его, иначе — имя свойства
+//
+// Возвращаемое значение:
+//   Строка - ключ для поиска в конфигурации
+//
+Функция КлючКонфигурации() Экспорт
+
+	Если Не Синоним = Неопределено Тогда
+		Возврат Синоним;
+	КонецЕсли;
+
+	Возврат Имя;
+
+КонецФункции

src/Классы/internal/Классы/ОписательДТО.os

@@ -0,0 +1,98 @@
+#Использовать annotations
+#Использовать reflector
+#Использовать logos
+
+Перем КонтейнерАннотаций;
+Перем Лог;
+
+// Описывает класс DTO: читает аннотации экспортных свойств и возвращает массив описаний полей
+//
+// Параметры:
+//   КлассОбъект - Объект - экземпляр DTO-класса с аннотированными свойствами
+//
+// Возвращаемое значение:
+//   Массив из ОписаниеПоляДТО - массив описаний полей DTO
+//
+Функция ОписатьКласс(Знач КлассОбъект) Экспорт
+
+	РефлекторОбъекта = Новый РефлекторОбъекта(КлассОбъект);
+	Свойства = РефлекторОбъекта.ПолучитьТаблицуСвойств(Неопределено, Истина);
+
+	ОписанияПолей = Новый Массив;
+
+	Для Каждого Свойство Из Свойства Цикл
+
+		Если Не Свойство.Экспорт Тогда
+			Продолжить;
+		КонецЕсли;
+
+		ОписаниеПоля = Новый ОписаниеПоляДТО(Свойство.Имя);
+
+		Для Каждого Аннотация Из Свойство.Аннотации Цикл
+
+			ИмяАннотации = Врег(Аннотация.Имя);
+
+			Если ИмяАннотации = "ТИП" Тогда
+				ЗначениеТипа = РаботаСАннотациями.ПолучитьЗначениеПараметраАннотации(Аннотация);
+				ОписаниеПоля.УстановитьТип(Тип(ЗначениеТипа));
+				Продолжить;
+			КонецЕсли;
+
+			ОпределениеАннотации = КонтейнерАннотаций.ПолучитьОпределениеАннотации(Аннотация.Имя);
+
+			Если ОпределениеАннотации = Неопределено Тогда
+				Продолжить;
+			КонецЕсли;
+
+			ОбъектАннотации = ОпределениеАннотации.СоздатьОбъектАннотации(Аннотация);
+
+			Если ИмяАннотации = "ЗНАЧЕНИЕПОУМОЛЧАНИЮ" Тогда
+
+				ОписаниеПоля.УстановитьЗначениеПоУмолчанию(ОбъектАннотации.Значение());
+
+			ИначеЕсли ИмяАннотации = "СИНОНИМ" Тогда
+
+				ОписаниеПоля.УстановитьСиноним(ОбъектАннотации.Синоним());
+
+			ИначеЕсли ИмяАннотации = "ВЛОЖЕННЫЙДТО" Тогда
+
+				СтандартныйРефлектор = Новый Рефлектор;
+				ВложенныйОбъект = СтандартныйРефлектор.ПолучитьСвойство(КлассОбъект, Свойство.Имя);
+
+				Если ВложенныйОбъект = Неопределено Тогда
+					ИмяКлассаДТО = РаботаСАннотациями.ПолучитьЗначениеПараметраАннотации(Аннотация, , "");
+					Если ИмяКлассаДТО <> "" Тогда
+						ВложенныйОбъект = Новый(ИмяКлассаДТО);
+						СтандартныйРефлектор.УстановитьСвойство(КлассОбъект, Свойство.Имя, ВложенныйОбъект);
+					Иначе
+						Лог.Предупреждение("Свойство <%1> помечено как вложенный DTO, но не инициализировано в конструкторе", Свойство.Имя);
+					КонецЕсли;
+				КонецЕсли;
+
+				Если ВложенныйОбъект <> Неопределено Тогда
+					ВложенныеОписания = ОписатьКласс(ВложенныйОбъект);
+					ОписаниеПоля.УстановитьВложенныйОбъект(ВложенныйОбъект, ВложенныеОписания);
+				КонецЕсли;
+
+			КонецЕсли;
+
+		КонецЦикла;
+
+		ОписанияПолей.Добавить(ОписаниеПоля);
+
+	КонецЦикла;
+
+	Возврат ОписанияПолей;
+
+КонецФункции
+
+Процедура ПриСозданииОбъекта()
+
+	КонтейнерАннотаций = Новый КонтейнерАннотаций;
+	КонтейнерАннотаций.ДобавитьАннотацию(Тип("АннотацияЗначениеПоУмолчанию"));
+	КонтейнерАннотаций.ДобавитьАннотацию(Тип("АннотацияСиноним"));
+	КонтейнерАннотаций.ДобавитьАннотацию(Тип("АннотацияВложенныйДТО"));
+
+	Лог = Логирование.ПолучитьЛог("oscript.lib.configor.dto");
+
+КонецПроцедуры

src/Классы/АннотацияВложенныйДТО.os

@@ -0,0 +1,12 @@
+// Возвращает имя аннотации
+//
+// Возвращаемое значение:
+//   Строка - имя аннотации
+//
+Функция ИмяАннотации() Экспорт
+	Возврат "ВложенныйДТО";
+КонецФункции
+
+&Аннотация("ВложенныйДТО")
+Процедура ПриСозданииОбъекта(Значение = "") Экспорт
+КонецПроцедуры

src/Классы/АннотацияЗначениеПоУмолчанию.os

@@ -0,0 +1,24 @@
+Перем _Значение;
+
+// Возвращает имя аннотации
+//
+// Возвращаемое значение:
+//   Строка - имя аннотации
+//
+Функция ИмяАннотации() Экспорт
+	Возврат "ЗначениеПоУмолчанию";
+КонецФункции
+
+// Возвращает значение по умолчанию
+//
+// Возвращаемое значение:
+//   Произвольный - значение по умолчанию
+//
+Функция Значение() Экспорт
+	Возврат _Значение;
+КонецФункции
+
+&Аннотация("ЗначениеПоУмолчанию")
+Процедура ПриСозданииОбъекта(Значение) Экспорт
+	_Значение = Значение;
+КонецПроцедуры

src/Классы/АннотацияСиноним.os

@@ -0,0 +1,24 @@
+Перем _Синоним;
+
+// Возвращает имя аннотации
+//
+// Возвращаемое значение:
+//   Строка - имя аннотации
+//
+Функция ИмяАннотации() Экспорт
+	Возврат "Синоним";
+КонецФункции
+
+// Возвращает синоним (альтернативное имя ключа в конфигурации)
+//
+// Возвращаемое значение:
+//   Строка - синоним свойства
+//
+Функция Синоним() Экспорт
+	Возврат _Синоним;
+КонецФункции
+
+&Аннотация("Синоним")
+Процедура ПриСозданииОбъекта(Значение) Экспорт
+	_Синоним = Значение;
+КонецПроцедуры