Merge pull request Segate-ekb#3 from Segate-ekb/feature/new_deserializer

Переписал десериализатор

Author: Segate-ekb

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

@@ -19,9 +19,7 @@
 //   Значение - Произвольный - значение для сохранения
 //
 Процедура СохранитьЯкорь(ИмяЯкоря, Значение) Экспорт
-	Если НЕ ПустаяСтрока(ИмяЯкоря) Тогда
-		Якоря.Вставить(ИмяЯкоря, Значение);
-	КонецЕсли;
+	Якоря.Вставить(ИмяЯкоря, Значение);
 КонецПроцедуры
 
 // Получение значения по якорю
@@ -30,99 +28,88 @@
 //   ИмяЯкоря - Строка - имя якоря
 //
 // Возвращаемое значение:
-//   Произвольный - значение якоря или Неопределено
+//   Произвольный - значение якоря или Неопределено, если якорь не найден
 //
 Функция ПолучитьЗначениеЯкоря(ИмяЯкоря) Экспорт
 	Возврат Якоря.Получить(ИмяЯкоря);
 КонецФункции
 
-// Преобразует алиас (*anchor) в соответствующее значение
+// Проверка существования якоря
 //
 // Параметры:
-//   ЗначениеСтрока - Строка - строка с алиасом
+//   ИмяЯкоря - Строка - имя якоря
 //
 // Возвращаемое значение:
-//   Произвольный - значение из якоря или Неопределено
+//   Булево - Истина, если якорь существует
 //
-Функция ПреобразоватьАлиас(ЗначениеСтрока) Экспорт
-	ИмяЯкоря = Сред(ЗначениеСтрока, 2);
-	ЗначениеЯкоря = Якоря.Получить(ИмяЯкоря);
-	Если ЗначениеЯкоря <> Неопределено Тогда
-		Возврат ЗначениеЯкоря;
-	Иначе
-		Возврат Неопределено;
-	КонецЕсли;
+Функция ЯкорьСуществует(ИмяЯкоря) Экспорт
+	Возврат НЕ Якоря.Получить(ИмяЯкоря) = Неопределено;
 КонецФункции
 
-// Обработка якоря и алиаса в значении
+// Извлечение имени якоря из строки (для &anchor)
 //
 // Параметры:
-//   ЗначениеСтрока - Строка - строка со значением
-//   Ключ - Строка - ключ
-//   ТекущийКонтекст - Соответствие - текущий контекст
+//   Строка - Строка - строка с определением якоря
 //
 // Возвращаемое значение:
-//   Структура - результат обработки с полями: Якорь, ЗначениеСтрока, АлиасОбработан
+//   Строка - имя якоря или пустая строка, если якорь не найден
 //
-Функция ОбработатьЯкорьИАлиас(ЗначениеСтрока, Ключ, ТекущийКонтекст) Экспорт
-	Результат = Новый Структура("Якорь, ЗначениеСтрока, АлиасОбработан", "", ЗначениеСтрока, Ложь);
+Функция ИзвлечьИмяЯкоряИлиАлиаса(Строка) Экспорт
 
-	// Обработка якоря: key: &anchor value (только если есть значение после якоря)
-	Если Лев(ЗначениеСтрока, 1) = "&" Тогда
-		Пробел = Найти(ЗначениеСтрока, " ");
-		Если Пробел > 0 Тогда
-			Результат.Якорь = Сред(ЗначениеСтрока, 2, Пробел - 2);
-			Результат.ЗначениеСтрока = СокрЛП(Сред(ЗначениеСтрока, Пробел + 1));
-		Иначе
-			// Якорь без значения (для структур)
-			Результат.Якорь = Сред(ЗначениеСтрока, 2);
-			Результат.ЗначениеСтрока = "";
+	Строка = СокрЛП(Строка);
+	Позиция = 1;
+	Попытка
+		Если не Лев(Строка, 1) = "&" И Не Лев(Строка, 1) = "*" Тогда
+			Возврат "";
 		КонецЕсли;
-	КонецЕсли;
 
-	// Обработка алиаса: key: *anchor
-	Если Лев(ЗначениеСтрока, 1) = "*" Тогда
-		ИмяЯкоря = Сред(ЗначениеСтрока, 2);
-		ЗначениеЯкоря = Якоря.Получить(ИмяЯкоря);
-		Если ЗначениеЯкоря <> Неопределено Тогда
-			ТекущийКонтекст.Вставить(Ключ, ЗначениеЯкоря);
-		КонецЕсли;
-		Результат.АлиасОбработан = Истина;
-	КонецЕсли;
+		// Извлекаем имя якоря (до пробела или до конца строки)
+		НачалоИмени = Позиция + 1;
+		КонецИмени = СтрДлина(Строка);
+		
+		Для Позиция = НачалоИмени По КонецИмени Цикл
+			Символ = Сред(Строка, Позиция, 1);
+			Если Символ = " " ИЛИ Символ = Символы.Таб Тогда
+				КонецИмени = Позиция - 1;
+				Прервать;
+			КонецЕсли;
+		КонецЦикла;
+		
+		Возврат Сред(Строка, НачалоИмени, КонецИмени - НачалоИмени + 1);
+	Исключение
+		Возврат "";
+		// Если произошла ошибка, возвращаем пустую строку
+	КонецПопытки;
 
-	Возврат Результат;
 КонецФункции
 
-// Проверка, является ли ключ только определением якоря
+// Удаление определения якоря из строки
 //
 // Параметры:
-//   Ключ - Строка - ключ для проверки
+//   Строка - Строка - строка с определением якоря
 //
 // Возвращаемое значение:
-//   Булево - Истина, если ключ используется только для якоря
-//
-Функция ЭтоТолькоОпределениеЯкоря(Ключ) Экспорт
-	// Список ключей, которые используются только для определения якорей
-	// и не должны попадать в итоговый результат
-	КлючиДляИсключения = СтрРазделить("shared_value,default_db,app_config,service_name,default_timeout", ",");
-	Возврат КлючиДляИсключения.Найти(Ключ) <> Неопределено;
-КонецФункции
-
-// Установка значения с учетом якоря
+//   Строка - строка без определения якоря
 //
-// Параметры:
-//   Ключ - Строка - ключ
-//   Якорь - Строка - якорь (если есть)
-//   Значение - Произвольный - значение для установки
-//   ТекущийКонтекст - Соответствие - текущий контекст
-//
-Процедура УстановитьЗначениеСЯкорем(Ключ, Якорь, Значение, ТекущийКонтекст) Экспорт
-	Если Якорь <> "" Тогда
-		СохранитьЯкорь(Якорь, Значение);
-		Если НЕ ЭтоТолькоОпределениеЯкоря(Ключ) Тогда
-			ТекущийКонтекст.Вставить(Ключ, Значение);
-		КонецЕсли;
-	Иначе
-		ТекущийКонтекст.Вставить(Ключ, Значение);
+Функция УдалитьОпределениеЯкоря(Строка) Экспорт
+	ПозицияЯкоря = СтрНайти(Строка, "&");
+	Если ПозицияЯкоря = 0 Тогда
+		Возврат Строка;
 	КонецЕсли;
-КонецПроцедуры
+	
+	// Находим конец имени якоря
+	КонецИмени = СтрДлина(Строка);
+	Для Позиция = ПозицияЯкоря + 1 По СтрДлина(Строка) Цикл
+		Символ = Сред(Строка, Позиция, 1);
+		Если Символ = " " ИЛИ Символ = Символы.Таб ИЛИ Символ = ":" Тогда
+			КонецИмени = Позиция - 1;
+			Прервать;
+		КонецЕсли;
+	КонецЦикла;
+	
+	// Удаляем определение якоря из строки
+	ЧастьДо = Лев(Строка, ПозицияЯкоря - 1);
+	ЧастьПосле = Сред(Строка, КонецИмени + 1);
+	
+	Возврат СокрЛП(ЧастьДо + ЧастьПосле);
+КонецФункции