Добавлена команда

Author: realMaxA

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

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

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

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