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

Author: nixel2007

packagedef

@@ -1,6 +1,7 @@
-
+#Использовать "src/Модули"
+
 Описание.Имя("opm")
-		.Версия("0.8.0")
+		.Версия(Константы.ВерсияПродукта)
 		.ЗависитОт("fs", "0.3")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")

src/Классы/ДиспетчерКомандПриложения.os

@@ -14,6 +14,7 @@
 	ДобавитьКомандуApp(Парсер);
 	ДобавитьКомандуConfig(Парсер);
 	ДобавитьКомандуList(Парсер);
+	ДобавитьКомандуVersion(Парсер);
 	ДобавитьКомандуHelp(Парсер);
 КонецПроцедуры
 
@@ -90,6 +91,11 @@
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
+Процедура ДобавитьКомандуVersion(Знач Парсер)
+	Команда = Парсер.ОписаниеКоманды("version", "Вывести версию продукта");
+	Парсер.ДобавитьКоманду(Команда);
+КонецПроцедуры
+
 Процедура ДобавитьКомандуHelp(Знач Парсер) Экспорт
 	Команда = Парсер.ОписаниеКоманды("help", "Справка по командам");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяКоманды", "Имя команды по которой надо получить справку");
@@ -98,6 +104,10 @@
 
 Процедура ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
 
+	Если ПараметрыКоманды.Команда <> "version" И ПараметрыКоманды.Команда <> "help" Тогда
+		ВывестиВерсию();
+	КонецЕсли;
+
 	ЗначенияПараметров = ПараметрыКоманды.ЗначенияПараметров;
 	Если ПараметрыКоманды.Команда = "build" Тогда
 		ВыполнитьСборку(ЗначенияПараметров["КаталогИсходников"], ЗначенияПараметров["-mf"], ЗначенияПараметров["-out"]);
@@ -116,7 +126,9 @@
 	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);	
 	ИначеЕсли ПараметрыКоманды.Команда = "list" Тогда
-		ВывестиСписокПакетов(ЗначенияПараметров);		
+		ВывестиСписокПакетов(ЗначенияПараметров);
+	ИначеЕсли ПараметрыКоманды.Команда = "version" Тогда
+		ВывестиВерсиюКратко();
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;
@@ -257,6 +269,15 @@
 
 КонецПроцедуры
 
+Процедура ВывестиВерсиюКратко()
+	Сообщить(Константы.ВерсияПродукта);
+КонецПроцедуры
+
+Процедура ВывестиВерсию()
+	Сообщить("OneScript Package Manager v" + Константы.ВерсияПродукта);
+	Сообщить("");
+КонецПроцедуры
+
 Процедура ВывестиСправку(Знач ЗначенияПараметров)
 	Если ЗначенияПараметров["ИмяКоманды"] = Неопределено Тогда
 		ВывестиСправкуПоКомандам();
@@ -271,8 +292,8 @@
 	ДобавитьОписанияКоманд(Парсер);
 
 	ВозможныеКоманды = Парсер.СправкаВозможныеКоманды();
-	Сообщить("OneScript Package Manager
-	|Возможные команды:");
+	ВывестиВерсию();
+	Сообщить("Возможные команды:");
 
 	МаксШирина = 0;
 	Поле = "               ";

src/Модули/Константы.os

@@ -6,7 +6,7 @@
 Перем СерверУдаленногоХранилища Экспорт;
 Перем ПутьВХранилище Экспорт;
 Перем ЛокальныйКаталогУстановкиПакетов Экспорт;
-
+Перем ВерсияПродукта Экспорт;
 
 ///////////////////////////////////////////////////////////////
 
@@ -17,4 +17,4 @@
 СерверУдаленногоХранилища  = "http://hub.oscript.io";
 ПутьВХранилище			   = "/download/";
 ЛокальныйКаталогУстановкиПакетов = "oscript_modules";
-
+ВерсияПродукта = "0.9.0";