Merge pull request #4 from Stepa86/feature/RemoveComments

Вырезание комментариев в тексте перед чтением JSON

Author: artbear

src/json.os

@@ -344,22 +344,40 @@
 		СхемаПодстановок,
 		(АвтоматическиПриводитьКСтруктуре = Истина));
 
+	ЗначениеБезКомментариев = ВырезатьКомментарии( Значение );
+
 	// Стартовые значения.
-	Индекс = 1; Длина = СтрДлина(Значение);
+	Индекс = 1; Длина = СтрДлина(ЗначениеБезКомментариев);
 
 	// Форматирование (первый шаг парсера).
 	Если Стандарт Тогда СимволыФорматирования = " " + Символы.ВК + Символы.ПС + Символы.Таб; 
-		jsonПрочитатьПропуститьФорматирование(Значение, Стандарт, Индекс, Длина, СимволыФорматирования); 
+		jsonПрочитатьПропуститьФорматирование(ЗначениеБезКомментариев, Стандарт, Индекс, Длина, СимволыФорматирования); 
 	КонецЕсли;
 	Если (Индекс > Длина) Тогда 
 		ВызватьИсключение ИсключениеПустойПакетДанных(); 
 	КонецЕсли; 
 
 	// Парсер.
-	Возврат jsonПрочитать(Значение, Стандарт, Альтернативный, ПредставленияСсылок, Индекс, Длина, ВспомогательныеДанные, СимволыФорматирования, Истина);
+	Возврат jsonПрочитать(ЗначениеБезКомментариев, Стандарт, Альтернативный, ПредставленияСсылок, Индекс, Длина, ВспомогательныеДанные, СимволыФорматирования, Истина);
 
 КонецФункции // jsonПрочитатьИнициализация()
 
+// Удаляет все комментарии // и блоки /* */
+Функция ВырезатьКомментарии( Знач пТекст )
+	
+	регулярноеВыражение = Новый РегулярноеВыражение( "(@(?:""[^""]*"")+|""(?:[^""\n\\]+|\\.)*""|'(?:[^'\n\\]+|\\.)*')|//.*|/\*(?s:.*?)\*/" );
+	
+	ЗначениеБезКомментариев = регулярноеВыражение.Заменить(пТекст, "$1" );
+
+	// После удаления комментария могли остаться пустые строки
+	Пока СтрНайти( ЗначениеБезКомментариев, Символы.LF + Символы.LF ) > 0 Цикл
+		ЗначениеБезКомментариев = СтрЗаменить( ЗначениеБезКомментариев, Символы.LF + Символы.LF, Символы.LF )
+	КонецЦикла;
+
+	Возврат ЗначениеБезКомментариев;
+
+КонецФункции
+
 Функция jsonПрочитать(Значение, Стандарт, Альтернативный, ПредставленияСсылок, Индекс, Длина, ВспомогательныеДанные, СимволыФорматирования, ПервыйУровень)
 
 	Символ = Сред(Значение, Индекс, 1);

tests/json-test.os

@@ -41,6 +41,10 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоПримитивныеЗначенияКлючейПреобразуютсяКСтроке");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоПримитивныеЗначенияКлючейВызываютИсключение");
 
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьИгнорированиеКомментария");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьИгнорированиеБлочногоКомментария");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьНаличиеКомментарияВКавычках");
+
 	Возврат ВсеТесты;
 КонецФункции
 
@@ -232,6 +236,57 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьИгнорированиеКомментария() Экспорт
+
+	тестовыйJSON = "{
+	|// Комментарий
+	|// Комментарий 2
+	| ""ИмяПеременной"": ""Значение переменной"" // Это комментарий к строке
+	|}";
+
+	Объект = _преобразовательJSON.ПрочитатьJSON(тестовыйJSON,,,Истина);
+	Утверждения.ПроверитьРавенство(ТипЗнч(Объект), Тип("Структура"));
+	Утверждения.ПроверитьРавенство(Объект.Количество(), 1);
+	Утверждения.ПроверитьРавенство(Объект.ИмяПеременной, "Значение переменной");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьИгнорированиеБлочногоКомментария() Экспорт
+
+	тестовыйJSON = "{
+	|/* Комментарий */
+	| ""ИмяПеременной"": /* Комментарий в неожиданном месте*/ ""Значение переменной""
+	|/*******************************************
+	|Любимый с детства многострочный комментарий
+	|********************************************/
+	|}";
+
+	Объект = _преобразовательJSON.ПрочитатьJSON(тестовыйJSON,,,Истина);
+	Утверждения.ПроверитьРавенство(ТипЗнч(Объект), Тип("Структура"));
+	Утверждения.ПроверитьРавенство(Объект.Количество(), 1);
+	Утверждения.ПроверитьРавенство(Объект.ИмяПеременной, "Значение переменной");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьНаличиеКомментарияВКавычках() Экспорт
+
+	тестовыйJSON = "{
+	|""КомментарийВСтроке"": ""//Значение переменной"",
+	|""БлочныйКомментарийВСтроке"": ""/*Значение переменной*/"",
+	|""КомментарийВСтроке2"": '//Значение переменной',
+	|""БлочныйКомментарийВСтроке2"": '/*Значение переменной*/'
+	|}";
+
+	Объект = _преобразовательJSON.ПрочитатьJSON(тестовыйJSON,,,Истина);
+	Утверждения.ПроверитьРавенство(ТипЗнч(Объект), Тип("Структура"));
+	Утверждения.ПроверитьРавенство(Объект.Количество(), 4);
+	Утверждения.ПроверитьРавенство(Объект.КомментарийВСтроке, "//Значение переменной");
+	Утверждения.ПроверитьРавенство(Объект.БлочныйКомментарийВСтроке, "/*Значение переменной*/");
+	Утверждения.ПроверитьРавенство(Объект.КомментарийВСтроке2, "//Значение переменной");
+	Утверждения.ПроверитьРавенство(Объект.БлочныйКомментарийВСтроке2, "/*Значение переменной*/");
+
+КонецПроцедуры
+
 Функция НедопустимыйТипЗначенияКлючаВызываетИсключение(ЗначениеКлюча)
 	Объект = Новый Соответствие;
 	Объект.Вставить(ЗначениеКлюча, "Значение");