Замечания по ревью

Author: EvilBeaver

src/core/Классы/Версия.os

@@ -186,39 +186,18 @@
 	Парсер.Следующий();
 
 	Попытка
-		ПрочитатьОсновную(Парсер);
+		ПрочитатьЧислоДоРазделителя(Парсер, Основная, "Основная версия");
 		ПрочитатьРазделитель(Парсер, ".");
-		ПрочитатьВторостепенную(Парсер);
+		ПрочитатьЧислоДоРазделителя(Парсер, Второстепенная, "Второстепенная версия");
 		ПрочитатьРазделитель(Парсер, ".");
-		ПрочитатьПатч(Парсер);
+		ПрочитатьЧислоДоРазделителя(Парсер, Патч, "Версия патча");
 		ПрочитатьХвостовыеМассивы(Парсер);
 	Исключение
 		ОшибкаЧтенияВерсии = ИнформацияОбОшибке().Описание;
 	КонецПопытки;
 
 КонецПроцедуры
 
-Процедура ПрочитатьОчереднойРазделитель(Знач Парсер, Знач Разделитель)
-
-	ТекущийТокен = Парсер.Следующий();
-	Если ТекущийТокен.Тип = Парсер.ТипКонецТекста Тогда
-		Возврат;
-	КонецЕсли;
-	
-	Если ТекущийТокен.Тип = Парсер.ТипРазделитель Тогда
-		Если Разделитель = ТекущийТокен.Значение Тогда
-			СледующийТокен = Парсер.Следующий();
-			Если СледующийТокен.Тип = Парсер.ТипКонецТекста Тогда
-				ВызватьИсключение СтрШаблон("Неожиданный конец строки версии, нет данных после разделителя <%1>", Разделитель);
-			КонецЕсли;
-			Возврат;
-		КонецЕсли;
-	КонецЕсли;
-
-	ВызватьИсключение СтрШаблон("Ожидается разделитель <%1>, но получен <%2>", Разделитель, ТекущийТокен.Значение);
-
-КонецПроцедуры
-
 Процедура ПрочитатьРазделитель(Знач Парсер, Знач Разделитель)
 
 	ТекущийТокен = Парсер.Текущий();
@@ -240,52 +219,18 @@
 
 КонецПроцедуры
 
-Процедура ПрочитатьОсновную(Знач Парсер)
-	Токен = Парсер.Текущий();
-	Если Токен.Тип = Парсер.ТипКонецТекста Тогда
-		Возврат;
-	КонецЕсли;
-
-	Если Токен.Тип = Парсер.ТипЧисло Тогда
-		Основная = Число(Токен.Значение);
-    ИначеЕсли Токен.Тип = Парсер.ТипОшибка Тогда
-        ВызватьИсключение Токен.Значение;
-	Иначе
-		ВызватьИсключение СтрШаблон("Основная версия <%1> должна содержать только цифры", Токен.Значение);
-	КонецЕсли;
-
-	Парсер.Следующий();
-КонецПроцедуры
-
-Процедура ПрочитатьВторостепенную(Знач Парсер)
-	Токен = Парсер.Текущий();
-	Если Токен.Тип = Парсер.ТипКонецТекста Тогда
-		Возврат;
-	КонецЕсли;
-
-	Если Токен.Тип = Парсер.ТипЧисло Тогда
-		Второстепенная = Число(Токен.Значение);
-    ИначеЕсли Токен.Тип = Парсер.ТипОшибка Тогда
-        ВызватьИсключение Токен.Значение;
-	Иначе
-		ВызватьИсключение СтрШаблон("Второстепенная версия <%1> должна содержать только цифры", Токен.Значение);
-	КонецЕсли;
-
-	Парсер.Следующий();
-КонецПроцедуры
-
-Процедура ПрочитатьПатч(Знач Парсер)
+Процедура ПрочитатьЧислоДоРазделителя(Знач Парсер, Результат, Знач УточнениеИсключения)
 	Токен = Парсер.Текущий();
 	Если Токен.Тип = Парсер.ТипКонецТекста Тогда
 		Возврат;
 	КонецЕсли;
 
 	Если Токен.Тип = Парсер.ТипЧисло Тогда
-		Патч = Число(Токен.Значение);
+		Результат = Число(Токен.Значение);
     ИначеЕсли Токен.Тип = Парсер.ТипОшибка Тогда
         ВызватьИсключение Токен.Значение;
 	Иначе
-		ВызватьИсключение СтрШаблон("Версия патча <%1> должна содержать только цифры", Токен.Значение);
+		ВызватьИсключение СтрШаблон("%1 <%2> должна содержать только цифры", УточнениеИсключения, Токен.Значение);
 	КонецЕсли;
 
 	Парсер.Следующий();