1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-01-26 05:37:27 +02:00
Code Issues Releases Activity

Добавление параметра версии

Browse Source
This commit is contained in:
Anton Titovets 2024-04-11 10:02:23 +03:00
parent f3a8b34e87
commit e9f8c8c978
3 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cli/core/Classes/Приложение.os
View File

@ -8,6 +8,7 @@
Перем Отладка;
Перем Тестирование;
Перем ФайлВывода;
Перем Версия;
#Область СлужебныеПроцедурыИФункции
@ -15,6 +16,7 @@
Процедура ОсновнойОбработчик()
Версия = "1.6.0";
Отладка = Ложь;
Тестирование = Ложь;
Парсер = Новый ПарсерАргументовКоманднойСтроки();
@ -31,7 +33,7 @@
ТекущаяКоманда = Результат["Команда"];
Если ТекущаяКоманда = Неопределено Тогда
Справка.ВывестиНачальнуюСтраницу(Команды);
Справка.ВывестиНачальнуюСтраницу(Команды, Версия);
Иначе
ВыполнитьОбработкуКоманды(Результат);
КонецЕсли;
@ -43,6 +45,7 @@
Парсер.ДобавитьПараметр("-h");
Парсер.ДобавитьПараметр("-help");
Парсер.ДобавитьПараметр("--help");
Парсер.ДобавитьПараметр("--version");
КонецПроцедуры
@ -132,6 +135,10 @@
ТаблицаПараметров = ОбъектОПИ.СоответствиеТаблицПараметров[Команда];
Если Метод = "--version" Тогда
Версии.ПроверитьВерсию(Версия);
КонецЕсли;
Если Не ЗначениеЗаполнено(Метод) Или Метод = "--help" Тогда
Справка.ВывестиСправкуПоМетодам(Команда, ТаблицаПараметров);
КонецЕсли;

4
cli/help/Modules/Справка.os
View File

@ -2,7 +2,7 @@
#Область СлужебныйПрограммныйИнтерфейс
Процедура ВывестиНачальнуюСтраницу(Знач СоответствиеКомандМодулей) Экспорт
Процедура ВывестиНачальнуюСтраницу(Знач СоответствиеКомандМодулей, Знач Версия) Экспорт
СписокКоманд = "";
@ -22,7 +22,7 @@
| \____/ /___/ /_/ |_/ /_/
|
|
| Добро пожаловать в OInt v 1.6.0!
| Добро пожаловать в OInt v " + Версия + "!
|
| Структура команд:
| OInt БИБЛИОТЕКА МЕТОД [Параметры]

11
cli/tools/Modules/Версии.os Normal file
View File

@ -0,0 +1,11 @@
Процедура ПроверитьВерсию(Знач ТекущаяВерсия) Экспорт
Информация = Новый СистемнаяИнформация;
Платформа = Строка(Информация.ТипПлатформы);
Сообщить("Текущая версия OInt: " + ТекущаяВерсия, СтатусСообщения.Информация);
Сообщить("Платформа : " + Платформа, СтатусСообщения.Внимание);
ЗавершитьРаботу(0);
КонецПроцедуры