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

Режим debug в CLI

Browse Source
This commit is contained in:
Anton Titovets 2024-03-29 10:25:04 +03:00
parent 8e9d1d184e
commit b9359dfe58
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.github/workflows/os/cli_testmaker.os vendored
View File

@ -223,7 +223,7 @@
ДобавитьПредобработки(ТекстРаботы, СтрокиМетода, Библиотека);
ТекстРаботы = ТекстРаботы + "
| ./oint_bin " + Библиотека + " " + ТекущийМетод + " \" + Символы.ПС;
| ./oint_bin " + Библиотека + " " + ТекущийМетод + " --debug \" + Символы.ПС;
КонецЕсли;

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

@ -5,6 +5,7 @@
Перем ОбъектОПИ;
Перем Парсер;
Перем Отладка;
#Область СлужебныеПроцедурыИФункции
@ -12,6 +13,7 @@
Процедура ОсновнойОбработчик()
Отладка = Ложь;
Парсер = Новый ПарсерАргументовКоманднойСтроки();
ОбъектОПИ = Новый СвязьОПИ();
Команды = ОбъектОПИ.СоответствиеКомандМодулей;
@ -53,6 +55,7 @@
ДобавитьПараметрыКоманды(Парсер, Команда, ТаблицаПараметров);
Парсер.ДобавитьПараметрФлагКоманды(Команда, "--help");
Парсер.ДобавитьПараметрФлагКоманды(Команда, "--debug");
Парсер.ДобавитьКоманду(Команда);
@ -104,10 +107,14 @@
ОтборКоманды = Новый Структура("МетодПоиска", вРег(Метод));
ПараметрыМетода = ТаблицаПараметров.НайтиСтроки(ОтборКоманды);
Если Параметры.Количество() = 2 Или Параметры["--help"] = Истина Тогда
Если Параметры.Количество() = 3 Или Параметры["--help"] Тогда
Справка.ВывестиСправкуПоПараметрам(ПараметрыМетода, Команда);
КонецЕсли;
Если Параметры["--debug"] Тогда
Отладка = Истина;
КонецЕсли;
ТекстВыполнения = СформироватьСтрокуВызоваМетода(Параметры, ПараметрыМетода, Модуль, Метод);
Выполнить(ТекстВыполнения);
@ -192,6 +199,12 @@
Попытка
ОсновнойОбработчик();
Исключение
Справка.ВывестиСообщениеИсключения(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Если Отладка Тогда
Сообщить(ОписаниеОшибки());
Иначе
Справка.ВывестиСообщениеИсключения(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Конецесли;
КонецПопытки;