сериализация

Author: e.ivanov

src/internal/Модули/ПарсерКлючЗначение.os

@@ -73,7 +73,7 @@
 	КонецЦикла;
 КонецПроцедуры
 
-// Находит позицию двоеточия, игнорируя двоеточия внутри кавычек
+// Находит позицию двоеточия, игнорируя двоеточия внутри кавычек или строковых значений
 //
 // Параметры:
 //   Строка - Строка - строка для поиска
@@ -88,22 +88,78 @@
 	Для Позиция = 1 По СтрДлина(Строка) Цикл
 		Символ = Сред(Строка, Позиция, 1);
 
-		Если НЕ ВКавычках Тогда
-			Если Символ = """" ИЛИ Символ = "'" Тогда
-				ВКавычках = Истина;
-				ТипКавычек = Символ;
-			КонецЕсли;
-			
-			Если Символ = ":" Тогда
-				Возврат Позиция;
-			КонецЕсли;
-		Иначе
-			Если Символ = ТипКавычек Тогда
-				ВКавычках = Ложь;
-				ТипКавычек = "";
-			КонецЕсли;
+		// Обработка состояния "в кавычках"
+		Если ОбработатьКавычки(Символ, ВКавычках, ТипКавычек) Тогда
+			Продолжить;
+		КонецЕсли;
+		
+		// Если мы внутри кавычек, пропускаем проверку двоеточия
+		Если ВКавычках Тогда
+			Продолжить;
+		КонецЕсли;
+		
+		// Проверка на двоеточие
+		Если Символ = ":" И ЭтоРазделительДвоеточие(Строка, Позиция) Тогда
+			Возврат Позиция;
 		КонецЕсли;
 	КонецЦикла;
 
 	Возврат 0;
 КонецФункции
+
+// Обрабатывает кавычки и обновляет состояние "в кавычках"
+//
+// Параметры:
+//   Символ - Строка - текущий символ
+//   ВКавычках - Булево - состояние "в кавычках" (передается по ссылке)
+//   ТипКавычек - Строка - тип кавычек (передается по ссылке)
+//
+// Возвращаемое значение:
+//   Булево - Истина, если символ был кавычкой и обработан
+//
+Функция ОбработатьКавычки(Символ, ВКавычках, ТипКавычек)
+	Если Символ <> """" И Символ <> "'" Тогда
+		Возврат Ложь;
+	КонецЕсли;
+	
+	Если НЕ ВКавычках Тогда
+		ВКавычках = Истина;
+		ТипКавычек = Символ;
+	Иначе
+		Если Символ = ТипКавычек Тогда
+			ВКавычках = Ложь;
+			ТипКавычек = "";
+		КонецЕсли;
+	КонецЕсли;
+	
+	Возврат Истина;
+КонецФункции
+
+// Проверяет, является ли двоеточие в указанной позиции разделителем ключ-значение
+//
+// Параметры:
+//   Строка - Строка - исходная строка
+//   Позиция - Число - позиция двоеточия
+//
+// Возвращаемое значение:
+//   Булево - Истина, если двоеточие является разделителем
+//
+Функция ЭтоРазделительДвоеточие(Строка, Позиция)
+	// Проверка, что после двоеточия идет пробел или конец строки
+	Если Позиция < СтрДлина(Строка) Тогда
+		СледующийСимвол = Сред(Строка, Позиция + 1, 1);
+		Если СледующийСимвол <> " " И СледующийСимвол <> Символы.Таб Тогда
+			Возврат Ложь;
+		КонецЕсли;
+	КонецЕсли;
+	
+	// Проверка, что перед двоеточием нет пробела
+	Если Позиция > 1 Тогда
+		ПредыдущийСимвол = Сред(Строка, Позиция - 1, 1);
+		Если ПредыдущийСимвол = " " ИЛИ ПредыдущийСимвол = Символы.Таб Тогда
+			Возврат Ложь;
+		КонецЕсли;
+	КонецЕсли;
+	
+	Возврат Истина;
+КонецФункции

src/internal/Модули/ПарсерМассивов.os

@@ -21,10 +21,8 @@
 		Возврат СериализоватьБулево(Значение);
 	ИначеЕсли ТипЗначения = Тип("Массив") Тогда
 		Возврат СериализоватьМассив(Значение, УровеньОтступа);
-	ИначеЕсли ТипЗначения = Тип("Структура") Тогда
-		Возврат СериализоватьСтруктуру(Значение, УровеньОтступа);
-	ИначеЕсли ТипЗначения = Тип("Соответствие") Тогда
-		Возврат СериализоватьСоответствие(Значение, УровеньОтступа);
+	ИначеЕсли ТипЗначения = Тип("Структура") Или ТипЗначения = Тип("Соответствие") Тогда
+		Возврат СериализоватьОбъект(Значение, УровеньОтступа);
 	ИначеЕсли Значение = Неопределено Тогда
 		Возврат "null";
 	ИначеЕсли ТипЗначения = Тип("Дата") Тогда
@@ -127,117 +125,54 @@
 	Отступ = ПолучитьОтступ(УровеньОтступа);
 
 	Для Каждого Элемент Из Массив Цикл
-		Если Результат <> "" Тогда
-			Результат = Результат + Символы.ПС;
-		КонецЕсли;
+		Результат = Результат + Символы.ПС;
 
 		СериализованныйЭлемент = Сериализовать(Элемент, УровеньОтступа + 1);
-		
-		// Если элемент многострочный, добавляем отступ к каждой строке
-		Если СтрНайти(СериализованныйЭлемент, Символы.ПС) > 0 Тогда
-			СтрокиЭлемента = СтрРазделить(СериализованныйЭлемент, Символы.ПС);
-			ПерваяСтрока = Истина;
-			Для Каждого СтрокаЭлемента Из СтрокиЭлемента Цикл
-				Если ПерваяСтрока Тогда
-					Результат = Результат + Отступ + "- " + СтрокаЭлемента;
-					ПерваяСтрока = Ложь;
-				Иначе
-					Результат = Результат + Символы.ПС + ПолучитьОтступ(УровеньОтступа + 1) + СтрокаЭлемента;
-				КонецЕсли;
-			КонецЦикла;
-		Иначе
-			Результат = Результат + Отступ + "- " + СериализованныйЭлемент;
-		КонецЕсли;
-	КонецЦикла;
-	
-	Возврат Результат;
-	
-КонецФункции
+		МассивСтрок = СтрРазделить(СериализованныйЭлемент, Символы.ПС, Ложь);
+		СериализованныйЭлемент = "";
+		ОтступВложения = ПолучитьОтступ(УровеньОтступа + 1);
+		Для каждого Строка Из МассивСтрок Цикл
+			СериализованныйЭлемент = СериализованныйЭлемент + ?(ЗначениеЗаполнено(СериализованныйЭлемент), Символы.ПС + ОтступВложения, Отступ + "- ") + СокрЛП(Строка);
+		КонецЦикла;
+		// Убираем последний отступ
+		СериализованныйЭлемент = СокрП(СериализованныйЭлемент);
+		Результат = Результат + СериализованныйЭлемент;
 
-// Сериализация структуры
-//
-// Параметры:
-//   Структура - Структура - структура для сериализации
-//   УровеньОтступа - Число - текущий уровень отступа
-//
-// Возвращаемое значение:
-//   Строка - YAML представление структуры
-//
-Функция СериализоватьСтруктуру(Структура, УровеньОтступа = 0)
-	
-	Если Структура.Количество() = 0 Тогда
-		Возврат "{}";
-	КонецЕсли;
-	
-	Результат = "";
-	Отступ = ПолучитьОтступ(УровеньОтступа);
-	
-	Для Каждого КлючЗначение Из Структура Цикл
-		Если Результат <> "" Тогда
-			Результат = Результат + Символы.ПС;
-		КонецЕсли;
-		
-		Ключ = КлючЗначение.Ключ;
-		Значение = КлючЗначение.Значение;
-		
-		СериализованныйКлюч = СериализоватьКлюч(Ключ);
-		СериализованноеЗначение = Сериализовать(Значение, УровеньОтступа + 1);
-		
-		// Если значение многострочное, добавляем отступ к каждой строке кроме первой
-		Если СтрНайти(СериализованноеЗначение, Символы.ПС) > 0 Тогда
-			СтрокиЗначения = СтрРазделить(СериализованноеЗначение, Символы.ПС);
-			Результат = Результат + Отступ + СериализованныйКлюч + ":";
-			Для Каждого СтрокаЗначения Из СтрокиЗначения Цикл
-				Результат = Результат + Символы.ПС + ПолучитьОтступ(УровеньОтступа + 1) + СтрокаЗначения;
-			КонецЦикла;
-		Иначе
-			Результат = Результат + Отступ + СериализованныйКлюч + ": " + СериализованноеЗначение;
-		КонецЕсли;
 	КонецЦикла;
 
 	Возврат Результат;
 
 КонецФункции
 
-// Сериализация соответствия
+// Сериализация объекта
 //
 // Параметры:
-//   Соответствие - Соответствие - соответствие для сериализации
+//   Объект - Соответствие, Структура - соответствие для сериализации
 //   УровеньОтступа - Число - текущий уровень отступа
 //
 // Возвращаемое значение:
 //   Строка - YAML представление соответствия
 //
-Функция СериализоватьСоответствие(Соответствие, УровеньОтступа = 0)
+Функция СериализоватьОбъект(Объект, УровеньОтступа = 0)
 
-	Если Соответствие.Количество() = 0 Тогда
+	Если Объект.Количество() = 0 Тогда
 		Возврат "{}";
 	КонецЕсли;
 
 	Результат = "";
 	Отступ = ПолучитьОтступ(УровеньОтступа);
 
-	Для Каждого КлючЗначение Из Соответствие Цикл
-		Если Результат <> "" Тогда
-			Результат = Результат + Символы.ПС;
-		КонецЕсли;
+	Для Каждого КлючЗначение Из Объект Цикл
+		Результат = Результат + Символы.ПС;
 
 		Ключ = КлючЗначение.Ключ;
 		Значение = КлючЗначение.Значение;
 
 		СериализованныйКлюч = СериализоватьКлюч(Ключ);
 		СериализованноеЗначение = Сериализовать(Значение, УровеньОтступа + 1);
 
-		// Если значение многострочное, добавляем отступ к каждой строке кроме первой
-		Если СтрНайти(СериализованноеЗначение, Символы.ПС) > 0 Тогда
-			СтрокиЗначения = СтрРазделить(СериализованноеЗначение, Символы.ПС);
-			Результат = Результат + Отступ + СериализованныйКлюч + ":";
-			Для Каждого СтрокаЗначения Из СтрокиЗначения Цикл
-				Результат = Результат + Символы.ПС + ПолучитьОтступ(УровеньОтступа + 1) + СтрокаЗначения;
-			КонецЦикла;
-		Иначе
+
 			Результат = Результат + Отступ + СериализованныйКлюч + ": " + СериализованноеЗначение;
-		КонецЕсли;
 	КонецЦикла;
 
 	Возврат Результат;

src/internal/Модули/Сериализатор.os

@@ -210,8 +210,7 @@
 
 	// Определяем тип элемента и обрабатываем его
 	Если ПарсерУровней.ЭтоЭлементМассива(ОчищеннаяСтрока) Тогда
-		ПарсерМассивов.ОбработатьЭлементМассива(ОчищеннаяСтрока, ТекущийКонтекст, СтекКонтекстов, МенеджерЯкорей);
-		Возврат 1;
+		Возврат ПарсерМассивов.ОбработатьЭлементМассива(ОчищеннаяСтрока, ТекущийКонтекст, СтекКонтекстов, МенеджерЯкорей, Строки, Индекс);
 	Иначе
 		Возврат ОбработатьКлючЗначение(ОчищеннаяСтрока, ТекущийКонтекст, СтекКонтекстов, Строки, Индекс);
 	КонецЕсли;

src/Классы/ПарсерYaml.os

@@ -0,0 +1,6 @@
+volumes:
+  - sonarr_config:
+      test: /config
+      test2: /downloads
+  - media:/plex_media
+  - transmission_download:/downloads

tests/fixtures/nested_array_object.yaml

@@ -0,0 +1,38 @@
+#Использовать asserts
+#Использовать ".."
+#Использовать "."
+
+&ТестовыйНабор
+Процедура ПриСозданииОбъекта() Экспорт
+КонецПроцедуры
+
+&Тест
+Процедура ТестПарсингаВложенныхОбъектовВМассиве() Экспорт
+    // Дано
+    СодержимоеФайла = ТестовыеУтилиты.ПрочитатьТекстФайла(ТестовыеУтилиты.ПолучитьПутьКТестовымДанным("nested_array_object.yaml"));
+    ЧтениеYaml = ТестовыеУтилиты.СоздатьЭкземплярПарсера();
+    
+    // Когда
+    Результат = ЧтениеYaml.ПрочитатьYaml(СодержимоеФайла);
+    
+    // Тогда
+    Ожидаем.Что(Результат).Не_().ЭтоНеопределено();
+    
+    Volumes = Результат.Получить("volumes");
+    Ожидаем.Что(Volumes).Не_().ЭтоНеопределено();
+    Ожидаем.Что(Volumes.Количество()).Равно(3);
+    
+    // Первый элемент должен быть соответствием с вложенной структурой
+    ПервыйЭлемент = Volumes[0];
+    Ожидаем.Что(ТипЗнч(ПервыйЭлемент)).Равно(Тип("Соответствие"));
+    
+    SonarrConfig = ПервыйЭлемент.Получить("sonarr_config");
+    Ожидаем.Что(SonarrConfig).Не_().ЭтоНеопределено();
+    Ожидаем.Что(ТипЗнч(SonarrConfig)).Равно(Тип("Соответствие"));
+    Ожидаем.Что(SonarrConfig.Получить("test")).Равно("/config");
+    Ожидаем.Что(SonarrConfig.Получить("test2")).Равно("/downloads");
+    
+    // Второй и третий элементы должны быть строками
+    Ожидаем.Что(Volumes[1]).Равно("media:/plex_media");
+    Ожидаем.Что(Volumes[2]).Равно("transmission_download:/downloads");
+КонецПроцедуры