Merge pull request #28 from realMaxA/develop

#27 Добавлена команда "version"

Author: EvilBeaver

packagedef

@@ -1,6 +1,8 @@
-
+ПутьКСценариюПараметров = ОбъединитьПути(ТекущийСценарий().Каталог, "src", "Модули", "ПараметрыСистемы.os");
+ПараметрыСистемы_ЛокальнаяВерсия = ЗагрузитьСценарий(ПутьКСценариюПараметров);
+
 Описание.Имя("packman")
-.Версия("0.4.3")
+.Версия(ПараметрыСистемы_ЛокальнаяВерсия.ВерсияПродукта())
 .ЗависитОт("logos")
 .ЗависитОт("cmdline", "0.5")
 .ЗависитОт("v8runner")

src/Классы/КомандаВерсия.os

@@ -0,0 +1,23 @@
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Вывод версии приложения");
+Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "Команда");
+Парсер.ДобавитьКоманду(ОписаниеКоманды);
+КонецПроцедуры
+
+Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
+ 
+Сообщить(ПараметрыСистемы.ВерсияПродукта());
+
+Возврат 0;
+
+КонецФункции
+
+Процедура ПоказатьСправкуПоКоманде(Знач Парсер, Знач ИмяКоманды)
+
+Парсер.ВывестиСправкуПоКоманде(ИмяКоманды);
+
+КонецПроцедуры

src/Модули/ПараметрыСистемы.os

@@ -8,6 +8,7 @@
 Процедура ПриРегистрацииКомандПриложения(Знач КлассыРеализацииКоманд) Экспорт
 
  КлассыРеализацииКоманд["help"] = "КомандаСправкаПоПараметрам";
+ КлассыРеализацииКоманд["version"] = "КомандаВерсия";
  КлассыРеализацииКоманд["load-storage"] = "КомандаВыгрузитьИзХранилища";
  КлассыРеализацииКоманд["load-src"] = "КомандаСобратьИзИсходныхФайлов";
  КлассыРеализацииКоманд["make-cf"] = "КомандаСоздатьФайлыПоставки";
@@ -35,4 +36,10 @@
 
  Возврат ?(мБазовыйКаталог = Неопределено, СтартовыйСценарий().Каталог, мБазовыйКаталог);
 
-КонецФункции // БазовыйКаталогЗапуска() Экспорт
+КонецФункции // БазовыйКаталогЗапуска() Экспорт
+
+Функция ВерсияПродукта() Экспорт
+
+ Возврат "0.4.3";
+
+КонецФункции // ВерсияПродукта() Экспорт