Поддержка semver в части пререлизов и метаданных билда

.github/workflows/qa.yaml

@@ -0,0 +1,15 @@
+name: Контроль качества
+
+on:
+  push:
+  pull_request:
+  workflow_dispatch:
+
+jobs:
+  sonar:
+    uses: autumn-library/workflows/.github/workflows/sonar.yml@v1
+    with:
+      github_repository: oscript-library/semver
+      coveralls: true
+    secrets:
+      SONAR_TOKEN: ${{ secrets.SONAR_TOKEN }}

.github/workflows/testing.yml

@@ -10,7 +10,14 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        oscript_version: ['dev', 'lts-dev', 'default']
-    uses: autumn-library/workflows/.github/workflows/test.yml@main
+        include:
+          - oscript_version: 'default'
+            test_engine: '1testrunner'
+          - oscript_version: 'stable'
+            test_engine: '1testrunner'
+          - oscript_version: 'dev'
+            test_engine: 'oneunit'
+    uses: autumn-library/workflows/.github/workflows/test.yml@oneunit
     with:
-      oscript_version: ${{ matrix.oscript_version }}
+      oscript_version: ${{ matrix.oscript_version }}
+      test_engine: ${{ matrix.test_engine }}

packagedef

@@ -4,7 +4,7 @@
 //
 
 Описание.Имя("semver")
-        .Версия("0.6.0")
+        .Версия("1.0.0")
         .Автор("Khorev Aleksey")
         .АдресАвтора("Khorevaa@gmail.com")
         .Описание("Эта библиотека облегчает работу с семантическими версиями")
@@ -14,8 +14,8 @@
         .ВключитьФайл("tests")
         .ЗависитОт("logos")
         .ЗависитОт("strings")
-        .ЗависитОт("fluent", "0.6.1")
         .РазработкаЗависитОт("1testrunner", "1.9.2")
+        .РазработкаЗависитОт("coverage", "0.7.0")
         .ОпределяетМодуль("Версии", "src/core/Модули/Версии.os")
         .ОпределяетКласс("Версия", "src/core/Классы/Версия.os")
         .ОпределяетКласс("ДиапазонВерсий", "src/core/Классы/ДиапазонВерсий.os")

sonar-project.properties

@@ -0,0 +1,6 @@
+sonar.projectKey=semver
+sonar.projectName=semver
+sonar.sources=./src
+sonar.tests=./tests
+sonar.sourceEncoding=UTF-8
+sonar.coverageReportPaths=out/genericCoverage.xml

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

@@ -8,7 +8,7 @@
 Перем Патч Экспорт; // число
 
 Перем ПреРелиз Экспорт; // Массив
-Перем НомерБилда Экспорт; // Массив;
+Перем МетаданныеСборки Экспорт; // Массив;
 Перем ОшибкаЧтенияВерсии Экспорт;
 
 Процедура ПриСозданииОбъекта(Знач ВерсияСтрокой)
@@ -17,6 +17,7 @@
 	Второстепенная = 0;
 	Патч = 0;
 	ПреРелиз = Новый Массив;
+	МетаданныеСборки = Новый Массив;
 
 	Прочитать(ВерсияСтрокой);
 
@@ -47,6 +48,14 @@
 Функция ВСтроку() Экспорт
 
 	СтрокаВерсии = СтрШаблон("%1.%2.%3", Строка(Основная), Строка(Второстепенная), Строка(Патч));
+
+	Если ПреРелиз.Количество() Тогда
+		СтрокаВерсии = СтрокаВерсии + "-" + СтрСоединить(ПреРелиз, ".");
+	КонецЕсли;
+
+	Если МетаданныеСборки.Количество() Тогда
+		СтрокаВерсии = СтрокаВерсии + "+" + СтрСоединить(МетаданныеСборки, ".");
+	КонецЕсли;
 
 	Возврат СтрокаВерсии;
 
@@ -64,7 +73,7 @@
 
 	Если НЕ Основная = ВходящаяВерсия.Основная Тогда
 
-		Возврат ?(Основная > ВходящаяВерсия.Основная,1,-1);
+		Возврат ?(Основная > ВходящаяВерсия.Основная, 1,-1);
 
 	КонецЕсли;
 
@@ -86,12 +95,7 @@
 	КонецЕсли;
 
 	Если ПреРелиз.Количество() = 0 
-		И ВходящаяВерсия.ПреРелиз.Количество() = 0 Тогда
-		Возврат 0;
-	КонецЕсли;
-
-	Если ПреРелиз.Количество() = 0 
-		И ВходящаяВерсия.ПреРелиз.Количество() > 1 Тогда
+		И ВходящаяВерсия.ПреРелиз.Количество() > 0 Тогда
 		Возврат 1;
 	КонецЕсли;
 
@@ -100,7 +104,7 @@
 		Возврат -1;
 	КонецЕсли;
 
-	Возврат 0;
+	Возврат СравнитьПререлизы(ВходящаяВерсия.ПреРелиз);
 
 КонецФункции
 
@@ -164,6 +168,38 @@
 	Возврат Сравнить(ВходящаяВерсия) >= 0;
 КонецФункции
 
+Функция СравнитьПреРелизы(Знач Сравниваемое)
+	// Поэлементное сравнение
+	Для Сч = 0 По Макс(ПреРелиз.ВГраница(), Сравниваемое.ВГраница()) Цикл
+		// Больший набор предрелизных символов имеет больший приоритет,
+		// чем меньший набор, если сравниваемые идентификаторы равны =>
+		// если компоненты будут равны, побеждает тот, у кого компонентов больше
+
+		Если Сч > ПреРелиз.ВГраница() Тогда
+			Возврат -1;
+		ИначеЕсли Сч > Сравниваемое.ВГраница() Тогда
+			Возврат 1;
+		КонецЕсли;
+
+		Текущий = ПреРелиз[Сч];
+		Входящий = Сравниваемое[Сч];
+
+		Если Текущий = Входящий Тогда
+			Продолжить;
+		КонецЕсли;
+
+		// Численные идентификаторы имеют низший приоритет
+		Если ТипЗнч(Текущий) <> ТипЗнч(Входящий) Тогда
+			Возврат ?(ТипЗнч(Текущий) = Тип("Строка"), 1, -1);
+		КонецЕсли;
+
+		Возврат ?(Текущий > Входящий, 1, -1);
+
+	КонецЦикла;
+
+	Возврат 0;
+КонецФункции
+
 Процедура Прочитать(Знач ВерсияСтрокой)
 
 	Если СтрДлина(ВерсияСтрокой) = 0 Тогда
@@ -173,64 +209,128 @@
 
 	ВерсияСтрокой = ПодготовитьКЧтению(ВерсияСтрокой);
 
-	МассивСтрокВерсии = СтрРазделить(ВерсияСтрокой, ".");
-
-	Если МассивСтрокВерсии.Количество() < 3 Тогда
-		ОшибкаЧтенияВерсии = "Не найдены все составляющие версии";
-		Возврат; 
-	КонецЕсли;
+	Парсер = Новый ПарсерВерсии(ВерсияСтрокой);
+	Парсер.Следующий();
 
-	СтрокаОсновнаяВерсия = МассивСтрокВерсии[0];
+	Попытка
+		ПрочитатьЧислоДоРазделителя(Парсер, Основная, "Основная версия");
+		ПрочитатьРазделитель(Парсер, ".");
+		ПрочитатьЧислоДоРазделителя(Парсер, Второстепенная, "Второстепенная версия");
+		ПрочитатьРазделитель(Парсер, ".");
+		ПрочитатьЧислоДоРазделителя(Парсер, Патч, "Версия патча");
+		ПрочитатьХвостовыеМассивы(Парсер);
+	Исключение
+		ОшибкаЧтенияВерсии = ИнформацияОбОшибке().Описание;
+	КонецПопытки;
 
-	Если Не СтроковыеФункции.ТолькоЦифрыВСтроке(СтрокаОсновнаяВерсия) Тогда
-
-		ОшибкаЧтенияВерсии = СтрШаблон("Основная версия <%1> должна содержать только цифры",СтрокаОсновнаяВерсия);
-		Возврат; 
+КонецПроцедуры
+
+Процедура ПрочитатьРазделитель(Знач Парсер, Знач Разделитель)
+
+	ТекущийТокен = Парсер.Текущий();
+	Если ТекущийТокен.Тип = Парсер.ТипКонецТекста Тогда
+		Возврат;
+	КонецЕсли;
 
+	Если ТекущийТокен.Тип = Парсер.ТипРазделитель Тогда
+		Если Разделитель = ТекущийТокен.Значение Тогда
+			СледующийТокен = Парсер.Следующий();
+			Если СледующийТокен.Тип = Парсер.ТипКонецТекста Тогда
+				ВызватьИсключение СтрШаблон("Неожиданный конец строки версии, нет данных после разделителя <%1>", Разделитель);
+			КонецЕсли;
+			Возврат;
+		КонецЕсли;
 	КонецЕсли;
 
-	Основная = Число(СтрокаОсновнаяВерсия);
-
-	СтрокаВторостепеннаяВерсия = МассивСтрокВерсии[1];
+	ВызватьИсключение СтрШаблон("Ожидается разделитель <%1>, но получен <%2>", Разделитель, ТекущийТокен.Значение);
 
+КонецПроцедуры
 
-	Если Не СтроковыеФункции.ТолькоЦифрыВСтроке(СтрокаВторостепеннаяВерсия) Тогда
-
-		ОшибкаЧтенияВерсии = СтрШаблон("Второстепенная версия <%1> должна содержать только цифры",СтрокаОсновнаяВерсия);
-		Возврат; 
-
+Процедура ПрочитатьЧислоДоРазделителя(Знач Парсер, Результат, Знач УточнениеИсключения)
+	Токен = Парсер.Текущий();
+	Если Токен.Тип = Парсер.ТипКонецТекста Тогда
+		Возврат;
 	КонецЕсли;
 
-	Второстепенная = Число(СтрокаВторостепеннаяВерсия);
+	Если Токен.Тип = Парсер.ТипЧисло Тогда
+		Результат = Число(Токен.Значение);
+    ИначеЕсли Токен.Тип = Парсер.ТипОшибка Тогда
+        ВызватьИсключение Токен.Значение;
+	Иначе
+		ВызватьИсключение СтрШаблон("%1 <%2> должна содержать только цифры", УточнениеИсключения, Токен.Значение);
+	КонецЕсли;
 
-	СтрокаПатчаВерсии = МассивСтрокВерсии[2];
+	Парсер.Следующий();
+КонецПроцедуры
 
-	Если Не СтроковыеФункции.ТолькоЦифрыВСтроке(СтрокаПатчаВерсии) Тогда
-
-		ОшибкаЧтенияВерсии = СтрШаблон("Версия патча <%1> должна содержать только цифры",СтрокаОсновнаяВерсия);
-		Возврат; 
-
+Процедура ПрочитатьХвостовыеМассивы(Знач Парсер)
+	Токен = Парсер.Текущий();
+	Если Токен.Тип = Парсер.ТипКонецТекста Тогда
+		Возврат;
+	КонецЕсли;
+
+	Если Токен.Тип <> Парсер.ТипРазделитель или Токен.Значение = "." Тогда
+		ВызватьИсключение "Ожидается разделитель пререлизной версии <-> или метаданных сборки <+>, получен <" + Токен.Значение + ">";
 	КонецЕсли;
 
-	Патч = Число(СтрокаПатчаВерсии);
+	ПрочитатьПреРелиз(Парсер);
+	ПрочитатьМетаданныеСборки(Парсер);
 
 КонецПроцедуры
 
-Функция ПодготовитьКЧтению(Знач СтрокаВерсии)
-
-	Если СтрНачинаетсяС(СтрокаВерсии, "v") Тогда
-		СтрокаВерсии = СтрЗаменить(СтрокаВерсии, "v", "");
+Процедура ПрочитатьПреРелиз(Знач Парсер)
+	Если Парсер.Текущий().Значение = "-" Тогда
+		Парсер.Следующий();
+		СобратьМассивИзКомпонентов(Парсер, ПреРелиз, "+");
+	КонецЕсли;
+КонецПроцедуры
+
+Процедура ПрочитатьМетаданныеСборки(Знач Парсер)
+    Если Парсер.Текущий().Значение = "+" Тогда
+		Парсер.Следующий();
+		СобратьМассивИзКомпонентов(Парсер, МетаданныеСборки, "");
 	КонецЕсли;
+КонецПроцедуры
 
-	МассивСтрокВерсии = СтрРазделить(СтрокаВерсии, ".");
+Процедура СобратьМассивИзКомпонентов(Знач Парсер, Знач МассивКомпонентов, Знач ПрерватьПо)
+
+	Пока Истина Цикл
+		МассивКомпонентов.Добавить(ПрочитатьКомпонент(Парсер));
+		Если Парсер.Текущий().Значение = ПрерватьПо или Парсер.Текущий().Тип = Парсер.ТипКонецТекста Тогда
+			Прервать;
+		КонецЕсли;
 
-	КоличествоДобавления = 3 - МассивСтрокВерсии.Количество();
+		ПрочитатьРазделитель(Парсер, ".");
 
-	Для ИИ = 1 ПО КоличествоДобавления Цикл
-		МассивСтрокВерсии.Добавить(0);
 	КонецЦикла;
 
-	Возврат СтрСоединить(МассивСтрокВерсии, ".");
+КонецПроцедуры
+
+Функция ПрочитатьКомпонент(Знач Парсер)
+	Токен = Парсер.Текущий();
+	Если Токен.Тип = Парсер.ТипЧисло Тогда
+		Парсер.Следующий();
+		Возврат Число(Токен.Значение);
+	ИначеЕсли Токен.Тип = Парсер.ТипТекст Тогда
+		Текст = "";
+		ТекТокен = Парсер.Текущий();
+		Пока ТекТокен.Тип = Парсер.ТипТекст или ТекТокен.Значение = "-" Цикл
+			Текст = Текст + ТекТокен.Значение;
+			ТекТокен = Парсер.Следующий();
+		КонецЦикла;
+		Возврат Текст;
+	Иначе
+		ВызватьИсключение СтрШаблон("Ожидается компонент версии, но получен <%1>", ?(Токен.Значение = "", "EOF", Токен.Значение));
+	КонецЕсли;
+КонецФункции
+
+Функция ПодготовитьКЧтению(Знач СтрокаВерсии)
+
+	Если СтрНачинаетсяС(СтрокаВерсии, "v") Тогда
+		СтрокаВерсии = Сред(СтрокаВерсии, 2);
+	КонецЕсли;
+
+	Возврат СтрокаВерсии;
 
 КонецФункции