Merge pull request Segate-ekb#4 from Segate-ekb/feature/test_suits

Разделение по тегам и генерация

Author: Segate-ekb

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

@@ -12,38 +12,51 @@
 Функция Сериализовать(Знач Значение, УровеньОтступа = 0) Экспорт
 
 	ТипЗначения = ТипЗнч(Значение);
+	Результат = "";
+	
+	// Если это корневой уровень, добавляем разделитель документа
+	Если УровеньОтступа = 0 Тогда
+		Результат = "---" + Символы.ПС;
+	КонецЕсли;
 
 	Если ТипЗначения = Тип("Строка") Тогда
-		Возврат СериализоватьСтроку(Значение);
+		Результат = Результат + СериализоватьСтроку(Значение);
 	ИначеЕсли ТипЗначения = Тип("Число") Тогда
-		Возврат СериализоватьЧисло(Значение);
+		Результат = Результат + СериализоватьЧисло(Значение);
 	ИначеЕсли ТипЗначения = Тип("Булево") Тогда
-		Возврат СериализоватьБулево(Значение);
+		Результат = Результат + СериализоватьБулево(Значение);
 	ИначеЕсли ТипЗначения = Тип("Массив") Тогда
-		Возврат СериализоватьМассив(Значение, УровеньОтступа);
+		Результат = Результат + СериализоватьМассив(Значение, УровеньОтступа);
 	ИначеЕсли ТипЗначения = Тип("Структура") Или ТипЗначения = Тип("Соответствие") Тогда
-		Возврат СериализоватьОбъект(Значение, УровеньОтступа);
+		Результат = Результат + СериализоватьОбъект(Значение, УровеньОтступа);
 	ИначеЕсли Значение = Неопределено Тогда
-		Возврат "null";
+		Результат = Результат + "null";
 	ИначеЕсли ТипЗначения = Тип("Дата") Тогда
 		// Используем JSON писателя для корректной сериализации дат
 		ЗаписьJSON = Новый ЗаписьJSON;
 		ЗаписьJSON.УстановитьСтроку();
 		ЗаписатьJSON(ЗаписьJSON, Значение);
-		Возврат ЗаписьJSON.Закрыть();
+		Результат = Результат + ЗаписьJSON.Закрыть();
 	Иначе
 		// Для неизвестных типов пытаемся использовать JSON сериализацию
 		Попытка
 			ЗаписьJSON = Новый ЗаписьJSON;
 			ЗаписьJSON.УстановитьСтроку();
 			ЗаписатьJSON(ЗаписьJSON, Значение);
-			Возврат ЗаписьJSON.Закрыть();
+			Результат = Результат + ЗаписьJSON.Закрыть();
 		Исключение
 			// Если JSON не справился, используем строковое представление
-			Возврат СериализоватьСтроку(Строка(Значение));
+			Результат = Результат + СериализоватьСтроку(Строка(Значение));
 		КонецПопытки;
 	КонецЕсли;
 
+	// Если это корневой уровень, добавляем разделитель конца документа
+	Если УровеньОтступа = 0 Тогда
+		Результат = Результат + Символы.ПС + "...";
+	КонецЕсли;
+	
+	Возврат Результат;
+	
 КонецФункции
 
 // Сериализация строки
@@ -61,6 +74,11 @@
 		Возврат """""";
 	КонецЕсли;
 
+	// Если строка содержит переносы строк, используем блочный стиль
+	Если СтрНайти(Значение, Символы.ПС) > 0 ИЛИ СтрНайти(Значение, Символы.ВК) > 0 Тогда
+		Возврат СериализоватьМногострочнуюСтроку(Значение);
+	КонецЕсли;
+	
 	// Проверяем, нужно ли заключать в кавычки
 	Если ТребуетсяЗаключениеВКавычки(Значение) Тогда
 		// Используем JSON писателя для корректного экранирования строки
@@ -74,6 +92,36 @@
 
 КонецФункции
 
+// Сериализация многострочной строки
+//
+// Параметры:
+//   Значение - Строка - многострочная строка для сериализации
+//
+// Возвращаемое значение:
+//   Строка - YAML представление многострочной строки
+//
+Функция СериализоватьМногострочнуюСтроку(Значение)
+	
+	// Нормализуем переносы строк
+	НормализованноеЗначение = СтрЗаменить(Значение, Символы.ВК, Символы.ПС);
+	
+	// Разделяем на строки
+	Строки = СтрРазделить(НормализованноеЗначение, Символы.ПС, Ложь);
+	
+	// Используем блочный литеральный стиль |
+	Результат = "|" + Символы.ПС;
+	
+	Для Каждого Строка Из Строки Цикл
+		Результат = Результат + "  " + Строка + Символы.ПС;
+	КонецЦикла;
+	
+	// Убираем последний перенос строки
+	Результат = Лев(Результат, СтрДлина(Результат) - 1);
+	
+	Возврат Результат;
+	
+КонецФункции
+
 // Сериализация числа
 //
 // Параметры:
@@ -123,27 +171,85 @@
 
 	Результат = "";
 	Отступ = ПолучитьОтступ(УровеньОтступа);
+	ПервыйЭлемент = Истина;
 
 	Для Каждого Элемент Из Массив Цикл
-		Результат = Результат + Символы.ПС;
+		Если НЕ ПервыйЭлемент Тогда
+			Результат = Результат + Символы.ПС;
+		КонецЕсли;
+		ПервыйЭлемент = Ложь;
+		
+		ТипЭлемента = ТипЗнч(Элемент);
 
-		СериализованныйЭлемент = Сериализовать(Элемент, УровеньОтступа + 1);
-		МассивСтрок = СтрРазделить(СериализованныйЭлемент, Символы.ПС, Ложь);
-		СериализованныйЭлемент = "";
-		ОтступВложения = ПолучитьОтступ(УровеньОтступа + 1);
-		Для каждого Строка Из МассивСтрок Цикл
-			СериализованныйЭлемент = СериализованныйЭлемент + ?(ЗначениеЗаполнено(СериализованныйЭлемент), Символы.ПС + ОтступВложения, Отступ + "- ") + СокрЛП(Строка);
-		КонецЦикла;
-		// Убираем последний отступ
-		СериализованныйЭлемент = СокрП(СериализованныйЭлемент);
-		Результат = Результат + СериализованныйЭлемент;
+		// Для объектов и массивов используем специальную обработку
+		Если ТипЭлемента = Тип("Структура") ИЛИ ТипЭлемента = Тип("Соответствие") ИЛИ ТипЭлемента = Тип("Массив") Тогда
+			СериализованныйЭлемент = Сериализовать(Элемент, УровеньОтступа + 1);
+			Результат = Результат + ОбработатьМногострочныйЭлементМассива(СериализованныйЭлемент, Отступ, УровеньОтступа);
+		Иначе
+			// Простые значения (строки, числа, булево)
+			СериализованныйЭлемент = Сериализовать(Элемент, УровеньОтступа + 1);
+			Результат = Результат + Отступ + "- " + СериализованныйЭлемент;
+		КонецЕсли;
 
 	КонецЦикла;
 
 	Возврат Результат;
 
 КонецФункции
 
+// Обработка многострочного элемента в массиве
+//
+// Параметры:
+//   СериализованныйЭлемент - Строка - сериализованный элемент с переносами строк
+//   Отступ - Строка - базовый отступ для массива
+//   УровеньОтступа - Число - уровень отступа
+//
+// Возвращаемое значение:
+//   Строка - отформатированный элемент массива
+//
+Функция ОбработатьМногострочныйЭлементМассива(СериализованныйЭлемент, Отступ, УровеньОтступа)
+	
+	МассивСтрок = СтрРазделить(СериализованныйЭлемент, Символы.ПС, Ложь);
+	ОжидаемыйОтступ = ПолучитьОтступ(УровеньОтступа + 1);
+	
+	Результат = "";
+	Для Инд = 0 По МассивСтрок.Количество() - 1 Цикл
+		СтрокаЭлемента = МассивСтрок[Инд];
+		
+		Если Инд = 0 Тогда
+			// Первая строка - убираем ожидаемый отступ и добавляем "- "
+			СтрокаБезОтступа = УбратьОжидаемыйОтступ(СтрокаЭлемента, ОжидаемыйОтступ);
+			Результат = Результат + Отступ + "- " + СтрокаБезОтступа;
+		Иначе
+			// Остальные строки - заменяем ожидаемый отступ на отступ массива + 2 пробела
+			ОстатокСтроки = УбратьОжидаемыйОтступ(СтрокаЭлемента, ОжидаемыйОтступ);
+			Результат = Результат + Символы.ПС + Отступ + "  " + ОстатокСтроки;
+		КонецЕсли;
+	КонецЦикла;
+	
+	Возврат Результат;
+	
+КонецФункции
+
+// Убрать ожидаемый отступ из строки
+//
+// Параметры:
+//   СтрокаЭлемента - Строка - исходная строка
+//   ОжидаемыйОтступ - Строка - ожидаемый отступ для удаления
+//
+// Возвращаемое значение:
+//   Строка - строка без ожидаемого отступа
+//
+Функция УбратьОжидаемыйОтступ(СтрокаЭлемента, ОжидаемыйОтступ)
+	
+	Если СтрНачинаетсяС(СтрокаЭлемента, ОжидаемыйОтступ) Тогда
+		Возврат Сред(СтрокаЭлемента, СтрДлина(ОжидаемыйОтступ) + 1);
+	Иначе
+		Возврат СокрЛП(СтрокаЭлемента);
+	КонецЕсли;
+	
+КонецФункции
+
 // Сериализация объекта
 //
 // Параметры:
@@ -161,18 +267,35 @@
 
 	Результат = "";
 	Отступ = ПолучитьОтступ(УровеньОтступа);
+	ПервыйЭлемент = Истина;
 
 	Для Каждого КлючЗначение Из Объект Цикл
-		Результат = Результат + Символы.ПС;
+		Если НЕ ПервыйЭлемент Тогда
+			Результат = Результат + Символы.ПС;
+		КонецЕсли;
+		ПервыйЭлемент = Ложь;
 
 		Ключ = КлючЗначение.Ключ;
 		Значение = КлючЗначение.Значение;
 
 		СериализованныйКлюч = СериализоватьКлюч(Ключ);
 		СериализованноеЗначение = Сериализовать(Значение, УровеньОтступа + 1);
 
-
+		// Если значение содержит переносы строк (массив или сложный объект),
+		// то нужно размещать его на новой строке с правильными отступами
+		Если СтрНайти(СериализованноеЗначение, Символы.ПС) > 0 Тогда
+			// Сложное значение - размещаем на новой строке
+			// Но для многострочных строк с | добавляем пробел
+			Если СтрНачинаетсяС(СериализованноеЗначение, "|") Тогда
+				Результат = Результат + Отступ + СериализованныйКлюч + ": " + СериализованноеЗначение;
+			Иначе
+				// Для массивов и объектов - значение начинается с новой строки
+				Результат = Результат + Отступ + СериализованныйКлюч + ":" + Символы.ПС + СериализованноеЗначение;
+			КонецЕсли;
+		Иначе
+			// Простое значение - размещаем на той же строке
 			Результат = Результат + Отступ + СериализованныйКлюч + ": " + СериализованноеЗначение;
+		КонецЕсли;
 	КонецЦикла;
 
 	Возврат Результат;
@@ -299,6 +422,7 @@
 	КонецЕсли;
 
 	// Строки, которые могут интерпретироваться как специальные значения YAML
+	// НО только если они точно совпадают
 	СпециальныеЗначения = Новый Массив;
 	СпециальныеЗначения.Добавить("true");
 	СпециальныеЗначения.Добавить("false");
@@ -309,7 +433,7 @@
 	СпециальныеЗначения.Добавить("on");
 	СпециальныеЗначения.Добавить("off");
 
-	НижнийРегистр = НРег(Значение);
+	НижнийРегистр = НРег(СокрЛП(Значение));
 	Для Каждого СпециальноеЗначение Из СпециальныеЗначения Цикл
 		Если НижнийРегистр = СпециальноеЗначение Тогда
 			Возврат Истина;

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

@@ -1,6 +1,6 @@
 ---
 nested sequences:
-- - - []
-- - - {}
+ - - - []
+ - - - {}
 key1: []
 key2: {}

tests/fixtures/yaml-test-suite/7ZZ5/in.yaml

@@ -3,4 +3,4 @@ strip: |-
 clip: |
   text
 keep: |+
-  text
+  text

tests/fixtures/yaml-test-suite/A6F9/in.yaml

@@ -1,7 +1,7 @@
-CUP7
-HMQ5
-SU5Z - Вроде валидный json, парсер не ругается.
-
-######################### Преобразования json ###################
-C2SP - Подумать, как в таких нодах определять основной значащий символ...
-Q4CL - Не понимаю, почему ЧтениеJSON пропускает "quoted2" trailing content надо разобраться
+CUP7
+HMQ5
+SU5Z - Вроде валидный json, парсер не ругается.
+
+######################### whitespaces ###################
+4Q9F - Я не понял, почему тут в json 2  перевода строки между ef и gh. Судя по доке - вроде один должен быть...
+A2M4 - Функционал A question mark and space (“? ”) indicate a complex mapping key