Добавлена возможность настройки автоматического приведения объектов JSON к структуре

Author: kuntashov

src/json.os

@@ -250,13 +250,21 @@
 //		- Истина - ссылки передаются вместе со своим представлением, как объекты с двумя свойствами содержащими саму ссылку и ее представление;
 //		- Ложь - ссылки передаются без представления (значение по умолчанию).
 //		- Неопределено - автоопределение режима.
-// 
+//
+//	АвтоматическиПриводитьОбъектыКСтруктуре - Булево. Определяет, нужно ли автоматически приводить объект к Структуре или к Соответствию.
+//		- Истина - выполняется автоматическое приведение объекта к структуре; 
+//		- Ложь - автоматическое приведение объекта к структуре не выполняется, все объекты преобразуются в соответствие (значение по умолчанию). 
+//
+// 	Примечание:
+//  	Автоматическое приведение к структуре выполняется только для объектов имена свойств которых могут быть 
+// 		использованы как ключи структуры, все остальные объекты преобразуются в соответствие.// 
+//
 // Возвращаемое значение:
 //  Набор данных согласно содержимому входящих данных. 
 //
-Функция ПрочитатьJSON(Значение, Стандарт = Истина, ПредставленияСсылок = Ложь) Экспорт 
+Функция ПрочитатьJSON(Значение, Стандарт = Истина, ПредставленияСсылок = Ложь, АвтоматическиПриводитьОбъектыКСтруктуре = Ложь) Экспорт 
 
-	Возврат jsonПрочитатьИнициализация(Значение, Стандарт, ПредставленияСсылок);
+	Возврат jsonПрочитатьИнициализация(Значение, Стандарт, ПредставленияСсылок, АвтоматическиПриводитьОбъектыКСтруктуре);
 
 КонецФункции // ПрочитатьJSON()
 
@@ -286,23 +294,6 @@
 // ─────────────────────────────────────────────────────────────────────────────
 //  НАСТРОЙКИ
 
-// Функция управляющая настройкой "АвтоматическоеПриведениеОбъектаКСтруктуре".
-//
-// Возвращаемое значение:
-//  Булево. Значение настройки:
-//		- Истина - выполняется автоматическое приведение объекта к структуре; 
-//		- Ложь - автоматическое приведение объекта к структуре не выполняется, все объекты преобразуются в соответствие. 
-//
-// Примечание:
-//  Автоматическое приведение к структуре выполняется только для объектов имена свойств которых могут быть 
-//  использованы как ключи структуры, все остальные объекты преобразуются в соответствие.
-//
-Функция НастройкаАвтоматическоеПриведениеОбъектаКСтруктуре()
-	
-	Возврат Ложь;	// Измените для использования автоматического приведения объекта к структуре.
-	
-КонецФункции // НастройкаАвтоматическоеПриведениеОбъектаКСтруктуре()
-
 // Функция управляющая настройкой "ПолноеМаскированиеСимволов".
 //
 // Возвращаемое значение:
@@ -359,7 +350,7 @@
 	Возврат Строка; //TODO вставлена для прохождения компиляции
 КонецФункции
 
-Функция jsonПрочитатьИнициализация(Значение, Знач Стандарт, Знач ПредставленияСсылок)
+Функция jsonПрочитатьИнициализация(Значение, Знач Стандарт, Знач ПредставленияСсылок, Знач АвтоматическиПриводитьКСтруктуре)
 
 	// Проверка параметров.
 	Если (Не Стандарт = Истина) И (Не Стандарт = Ложь) И (Не Стандарт = Неопределено) Тогда
@@ -388,7 +379,7 @@
 	ВспомогательныеДанные = Новый Структура("ТипСтроки,СхемаПодстановок,АвтоматическиПриводитьКСтруктуре",
 		Тип("Строка"),
 		СхемаПодстановок,
-		(НастройкаАвтоматическоеПриведениеОбъектаКСтруктуре() = Истина));
+		(АвтоматическиПриводитьКСтруктуре = Истина));
 
 	// Стартовые значения.
 	Индекс = 1; Длина = СтрДлина(Значение);

tests/json-test.os

@@ -27,6 +27,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьПростойJSON");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьФайлMockНаЧтение");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьФайлMockНаЗапись");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоОбъектПриводитсяКСтруктуре");
 
 	Возврат ВсеТесты;
 КонецФункции
@@ -86,6 +87,27 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьЧтоОбъектПриводитсяКСтруктуре() Экспорт
+
+	тестовыйJSON = "{
+	|    ""firstName"": ""Иван"",
+	|    ""lastName"": ""Иванов"",
+	|    ""address"": {
+	|        ""streetAddress"": ""Московское ш., 101, кв.101"",
+	|        ""city"": ""Ленинград"",
+	|        ""postalCode"": 101101
+	|    },
+	|    ""phoneNumbers"": [
+	|        ""812 123-1234"",
+	|        ""916 123-4567""
+	|    ]
+	|}";
+
+	Объект = _преобразовательJSON.ПрочитатьJSON(тестовыйJSON,,,Истина);
+	юТест.ПроверитьРавенство(Тип("Структура"), ТипЗнч(Объект));
+
+КонецПроцедуры
+
 Функция ПривестиОкончанияСтрок(Знач ИсходныйТекст)
 	Возврат СтрЗаменить(ИсходныйТекст, Символы.ВК + Символы.ПС, Символы.ПС);
 КонецФункции