Добавлен вывод версии. Fix #17

Author: nixel2007

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("gitsync")
-		.Версия("0.5")
+		.Версия("1.0")
 		.ВерсияСреды("1.0.15")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")

src/gitsync.os

@@ -10,6 +10,10 @@
 Перем Лог;
 Перем УдалятьВременныеФайлы;
 
+Функция Версия()
+	Возврат "1.0";
+КонецФункции // Версия()
+
 ///////////////////////////////////////////////////////////////////
 // Прикладные процедуры и функции
 
@@ -37,6 +41,7 @@
 	ДобавитьКомандуSetVersion(Парсер);
 	ДобавитьКомандуHelp(Парсер);
 	ДобавитьКомандуExport(Парсер);
+	ДобавитьКомандуVersion(Парсер);
 	ДобавитьАргументыПоУмолчанию(Парсер);
 
 	Возврат Парсер;
@@ -128,6 +133,14 @@
 
 КонецПроцедуры
 
+Процедура ДобавитьКомандуVersion(Знач Парсер)
+
+	Команда = Парсер.ОписаниеКоманды("-version", "Вывести информацию о версии продукта.");
+
+	Парсер.ДобавитьКоманду(Команда);
+
+КонецПроцедуры
+
 Процедура ДобавитьАргументыПоУмолчанию(Знач Парсер)
 
 	Парсер.ДобавитьПараметр("ПутьКХранилищу", "Файловый путь к каталогу хранилища конфигурации 1С.");
@@ -154,6 +167,8 @@
 		ВыполнитьКоманду(Параметры);
 	Иначе
 
+		ВывестиВерсию();
+
 		УстановитьРежимОтладкиПриНеобходимости(Параметры);
 		УстановитьРежимУдаленияВременныхФайлов(Параметры);
 		УстановитьБазовыйКаталогВременныхФайлов(Параметры);
@@ -175,6 +190,10 @@
 
 Процедура ВыполнитьКоманду(Знач ОписаниеКоманды)
 
+	Если ОписаниеКоманды.Команда <> "-version" Тогда
+		ВывестиВерсию();
+	КонецЕсли;
+
 	Параметры = ОписаниеКоманды.ЗначенияПараметров;
 
 	Если ОписаниеКоманды.Команда = "init" Тогда
@@ -187,6 +206,8 @@
 		ВывестиСправкуПоКомандам(Параметры["КомандаДляСправки"]);
 	ИначеЕсли ОписаниеКоманды.Команда = "set-version" Тогда
 		УстановитьНовуюВерсию(Параметры);
+	ИначеЕсли ОписаниеКоманды.Команда = "-version" Тогда
+		ВывестиВерсиюКратко();
 	ИначеЕсли ОписаниеКоманды.Команда = "export" Тогда
 		ВыполнитьКомандуЭкспортИсходников(Параметры);
 	Иначе
@@ -223,6 +244,14 @@
 
 КонецПроцедуры
 
+Процедура ВывестиВерсию()
+	Сообщить("OneScript Package Manager (opm) v" + Версия());
+	Сообщить("");
+КонецПроцедуры
+
+Процедура ВывестиВерсиюКратко()
+	Сообщить(Версия());
+КонецПроцедуры
 
 Процедура КлонироватьРепозитарий(Знач Параметры)
 
@@ -591,6 +620,7 @@
 	Если Параметры <> Неопределено Тогда
 		ВыполнитьОбработку(Параметры);
 	Иначе
+		ВывестиВерсию();
 		ПоказатьИнформациюОПараметрахКоманднойСтроки();
 		Лог.Ошибка("Указаны некорректные аргументы командной строки");
 		УдалитьВременныеФайлыПриНеобходимости();