Merge pull request #33 from arkuznetsov/main

fix: Добавлено создание командного файла для запуска приложения;

.github/workflows/cli_draft.yml

@@ -41,12 +41,12 @@ jobs:
       - name: Собрать бинарник
         run: |
           cd ./src/ru/cli
-          oscript -make core/Classes/Приложение.os oint
+          oscript -make core/Classes/app.os oint
 
       - name: Собрать exe
         run: |
           cd ./src/ru/cli
-          oscript -make core/Classes/Приложение.os oint.exe
+          oscript -make core/Classes/app.os oint.exe
 
       - name: Записать артефакт
         uses: actions/upload-artifact@v4

.github/workflows/cli_draft_en.yml

@@ -41,12 +41,12 @@ jobs:
       - name: Собрать бинарник
         run: |
           cd ./src/en/cli
-          oscript -make core/Classes/Приложение.os oint
+          oscript -make core/Classes/app.os oint
 
       - name: Собрать exe
         run: |
           cd ./src/en/cli
-          oscript -make core/Classes/Приложение.os oint.exe
+          oscript -make core/Classes/app.os oint.exe
 
       - name: Записать артефакт
         uses: actions/upload-artifact@v4

.github/workflows/cli_test.yml

@@ -57,12 +57,12 @@ jobs:
       - name: Собрать бинарник
         run: |
           cd ./src/ru/cli
-          oscript -make core/Classes/Приложение.os oint
+          oscript -make core/Classes/app.os oint
 
       - name: Собрать exe
         run: |
           cd ./src/ru/cli
-          oscript -make core/Classes/Приложение.os oint.exe
+          oscript -make core/Classes/app.os oint.exe
 
       - name: Записать артефакт
         uses: actions/upload-artifact@v4
@@ -266,6 +266,7 @@ jobs:
           --doc "${{ env.json_Document }}" \
           --keyboard "" \
           --parsemode "" \
+          --filename "" \
 
 
 

.github/workflows/cli_test_en.yml

@@ -57,12 +57,12 @@ jobs:
       - name: Собрать бинарник
         run: |
           cd ./src/en/cli
-          oscript -make core/Classes/Приложение.os oint
+          oscript -make core/Classes/app.os oint
 
       - name: Собрать exe
         run: |
           cd ./src/en/cli
-          oscript -make core/Classes/Приложение.os oint.exe
+          oscript -make core/Classes/app.os oint.exe
 
       - name: Записать артефакт
         uses: actions/upload-artifact@v4
@@ -266,6 +266,7 @@ jobs:
           --doc "${{ env.json_Document }}" \
           --keyboard "" \
           --parsemode "" \
+          --filename "" \
 
 
 

.github/workflows/os/cli_parse.os

@@ -813,7 +813,7 @@
     ТЗСловаря.Сортировать("Длина УБЫВ");
 
     МассивМодулейДляПеревода = Новый Массив;
-    МассивМодулейДляПеревода.Добавить("./src/" + ТекущийЯзык + "/cli/core/Classes/Приложение.os");
+    МассивМодулейДляПеревода.Добавить("./src/" + ТекущийЯзык + "/cli/core/Classes/app.os");
     МассивМодулейДляПеревода.Добавить("./src/" + ТекущийЯзык + "/cli/help/Modules/Справка.os");
 
     Для Каждого ПереводимыйМодуль Из МассивМодулейДляПеревода Цикл

.github/workflows/os/cli_testmaker.os

@@ -131,12 +131,12 @@
 	|      - name: Собрать бинарник
 	|        run: |
 	|          cd ./src/ru/cli
-	|          oscript -make core/Classes/Приложение.os oint
+	|          oscript -make core/Classes/app.os oint
 	|
 	|      - name: Собрать exe
 	|        run: |
 	|          cd ./src/ru/cli
-	|          oscript -make core/Classes/Приложение.os oint.exe
+	|          oscript -make core/Classes/app.os oint.exe
 	|
 	|      - name: Записать артефакт
 	|        uses: actions/upload-artifact@v4

.github/workflows/os/cli_testmaker_en.os

@@ -131,12 +131,12 @@
 	|      - name: Собрать бинарник
 	|        run: |
 	|          cd ./src/en/cli
-	|          oscript -make core/Classes/Приложение.os oint
+	|          oscript -make core/Classes/app.os oint
 	|
 	|      - name: Собрать exe
 	|        run: |
 	|          cd ./src/en/cli
-	|          oscript -make core/Classes/Приложение.os oint.exe
+	|          oscript -make core/Classes/app.os oint.exe
 	|
 	|      - name: Записать артефакт
 	|        uses: actions/upload-artifact@v4

.github/workflows/os/releasemaker.os

@@ -25,7 +25,7 @@
 	СтруктураРус.Вставить("База"    , "OpenIntegrations");
 	СтруктураРус.Вставить("ПутьКEDT", ПутьКРепозиторию + "\src\ru\OPI");
 	СтруктураРус.Вставить("ПутьOS"  , ПутьКРепозиторию + "\src\ru\OInt");
-	СтруктураРус.Вставить("ПутьCLI" , ПутьКРепозиторию + "\src\ru\cli\core\Classes\Приложение.os");
+	СтруктураРус.Вставить("ПутьCLI" , ПутьКРепозиторию + "\src\ru\cli\core\Classes\app.os");
 	СтруктураРус.Вставить("ПутьISS" , ПутьКРепозиторию + "\service\iss\ru.iss");
 	СтруктураРус.Вставить("Префикс" , "ru");
 
@@ -33,7 +33,7 @@
 	СтруктураАнг.Вставить("База"    , "OpenIntegrations_Eng");
 	СтруктураАнг.Вставить("ПутьКEDT", ПутьКРепозиторию + "\src\en\OPI");
 	СтруктураАнг.Вставить("ПутьOS"  , ПутьКРепозиторию + "\src\en\OInt");
-	СтруктураАнг.Вставить("ПутьCLI" , ПутьКРепозиторию + "\src\en\cli\core\Classes\Приложение.os");
+	СтруктураАнг.Вставить("ПутьCLI" , ПутьКРепозиторию + "\src\en\cli\core\Classes\app.os");
 	СтруктураАнг.Вставить("ПутьISS" , ПутьКРепозиторию + "\service\iss\en.iss");
 	СтруктураАнг.Вставить("Префикс" , "en");
 

src/en/cli/core/Classes/app.os

@@ -1,350 +1,350 @@
-#Использовать cmdline
-#Использовать oint
-#Использовать "../../tools"
-#Использовать "../../help"
-#Использовать "../../data"
-
-Перем Версия;            // Версия программы
-Перем Отладка;           // Флаг вывода отладочной информации
-Перем Тестирование;      // Флаг отключения отправки данных после обработки
-
-Перем Парсер;            // Объект парсера входящих данных 
-Перем ОбъектОПИ;         // Объект работы с методами ОПИ
-
-Перем ФайлВывода;        // Путь перенаправления вывода в файл
-
-Перем ТаблицаПараметров; // Таблица параметров текущей библиотеки
-Перем ТекущаяКоманда;    // Имя текущей команды
-Перем Команды;           // Список всех доступных команд
-
-#Область СлужебныеПроцедурыИФункции
-
-#Область Основные
-
-Процедура ОсновнойОбработчик()
-	
-	Отладка        = Ложь;
-	Тестирование   = Ложь;
-
-	Парсер         = Новый ПарсерАргументовКоманднойСтроки();
-	ОбъектОПИ      = Новый СоставБиблиотеки();
-	Версия         = ОбъектОПИ.ПолучитьВерсию();
-	Команды        = ОбъектОПИ.ПолучитьСоответствиеКомандМодулей();
-	
-	ОпределитьТекущуюКоманду();
-	СформироватьКоманду();
-
-	Результат = Парсер.Разобрать(АргументыКоманднойСтроки);
-	ВыполнитьОбработкуКоманды(Результат);
-
-КонецПроцедуры
-
-Процедура ОпределитьТекущуюКоманду()
-
-	Если АргументыКоманднойСтроки.Количество() > 0 Тогда
-		ТекущаяКоманда = АргументыКоманднойСтроки[0];
-	Иначе
-		ТекущаяКоманда = Неопределено;
-	КонецЕсли;
-	
-КонецПроцедуры
-
-Процедура СформироватьКоманду()
-
-	Если ТекущаяКоманда = Неопределено Тогда
-		Справка.ВывестиНачальнуюСтраницу(Команды, Версия);
-		Возврат;
-	КонецЕсли;
-	
-	Команда           = Парсер.ОписаниеКоманды(ТекущаяКоманда);
-	ТаблицаПараметров = ОбъектОПИ.ПолучитьСостав(ТекущаяКоманда);
-
-	Если Не ТаблицаПараметров = Неопределено Тогда
-
-		Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "Метод");
-		
-		ДобавитьПараметрыКоманды(Парсер, Команда);
-		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--help");
-		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--debug");
-		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--test");
-
-		Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "--out");
-		
-		Парсер.ДобавитьКоманду(Команда);
-
-	Иначе
-		Справка.ВывестиСообщениеИсключения("Команда");
-	КонецЕсли;
-	
-КонецПроцедуры
-
-Процедура ВыполнитьОбработкуКоманды(Знач Данные)
-	
-	ТекущаяКоманда = Данные["Команда"];
-	Параметры      = Данные["ЗначенияПараметров"];
-	Вывод		   = "";
-
-	УстановитьРежимОтладки(Параметры);
-	УстановитьРежимТеста(Параметры);
-	УстановитьФайлВывода(Параметры);
-	ВывестиДопИнформацию(Параметры);
-
-	Попытка
-			
-		Вывод = ПолучитьРезультатОбработки(ТекущаяКоманда, Параметры);
-
-		Если ЗначениеЗаполнено(Вывод) Тогда
-			ОбработатьВыводJSON(Вывод);
-			СообщитьРезультат(Вывод, СтатусСообщения.Внимание);
-		КонецЕсли;
-
-	Исключение
-		ОбработатьОшибочныйВывод(Вывод, ErrorInfo());
-	КонецПопытки;
-	
-КонецПроцедуры
-
-Функция ПолучитьРезультатОбработки(Знач Команда, Знач Параметры)
-
-	Модуль    = Команды[Команда];
-	Метод     = Параметры["Метод"];
-	Ответ     = "The function returned an empty value.";
-
-	ЧислоСтандартныхПараметров = 4;
-
-	Если Не ЗначениеЗаполнено(Метод) Или Метод = "--help" Тогда
-		Справка.ВывестиСправкуПоМетодам(Команда, ТаблицаПараметров);
-	КонецЕсли;
-
-	ОтборКоманды      = Новый Структура("МетодПоиска", вРег(Метод));
-	ПараметрыМетода   = ТаблицаПараметров.НайтиСтроки(ОтборКоманды);
-
-	Если Параметры.Количество() = ЧислоСтандартныхПараметров Или Параметры["--help"] Тогда
-		Справка.ВывестиСправкуПоПараметрам(ПараметрыМетода);
-	КонецЕсли;
-
-	ТекстВыполнения = СформироватьСтрокуВызоваМетода(Параметры, ПараметрыМетода, Модуль, Метод);
-
-	Если Отладка Или Тестирование Тогда
-		Сообщить(ТекстВыполнения, СтатусСообщения.Внимание);
-	КонецЕсли;
-
-	Если Не Тестирование Тогда
-		Выполнить(ТекстВыполнения);
-	КонецЕсли;
-
-	Возврат Ответ;
-	
-КонецФункции
-
-#КонецОбласти
-
-#Область Вспомогательные
-
-Процедура ДобавитьПараметрыКоманды(Парсер, Команда);
-	
-	Параметр_ = "Параметр";
-
-	ТаблицаДляИспользования = ТаблицаПараметров.Скопировать(, Параметр_);
-	ТаблицаДляИспользования.Свернуть(Параметр_);
-
-	МассивПараметров = ТаблицаДляИспользования.ВыгрузитьКолонку(Параметр_);
-	
-	Для Каждого Параметр Из МассивПараметров Цикл
-		Парсер.ДобавитьИменованныйПараметрКоманды(Команда, Параметр);
-	КонецЦикла;
-	
-КонецПроцедуры
-
-Процедура ОбработатьВыводJSON(Вывод)
-	
-	Если ТипЗнч(Вывод) = Тип("Структура")
-		Или ТипЗнч(Вывод) = Тип("Соответствие")
-		Или ТипЗнч(Вывод) = Тип("Массив") Тогда
-	
-		Вывод = OPI_Tools.JSONString(Вывод);
-
-	КонецЕсли;
-
-КонецПроцедуры
-
-Функция СформироватьСтрокуВызоваМетода(Знач ПереданныеПараметры, Знач ПараметрыМетода, Знач Модуль, Знач Метод)
-
-	ТекстВыполнения = "";
-	СтрокаВызова    = Модуль + "." + Метод + "(";
-	Счетчик         = 0;
-
-	Для Каждого НеобходимыйПараметр Из ПараметрыМетода Цикл
-
-		ИмяПараметра      = НеобходимыйПараметр.Параметр;
-		ЗначениеПараметра = ПереданныеПараметры.Получить(ИмяПараметра);
-
-		Если ЗначениеЗаполнено(ЗначениеПараметра) Тогда
-
-			ИмяПараметра    = "Параметр" + СтрЗаменить(ИмяПараметра, "--", "_");
-
-			ТекстВыполнения = ТекстВыполнения 
-				+ Символы.ПС 
-				+ ИмяПараметра
-				+ " = """ 
-				+ СтрЗаменить(ЗначениеПараметра, """", """""")
-				+ """;";
-
-			СтрокаВызова = СтрокаВызова + ИмяПараметра + ", ";
-			Счетчик      = Счетчик + 1;
-
-		Иначе
-			СтрокаВызова = СтрокаВызова + " , ";
-		КонецЕсли;
-
-	КонецЦикла;
-
-	ЛишниеСимволы   = 2;
-	СтрокаВызова    = Лев(СтрокаВызова, СтрДлина(СтрокаВызова) - ЛишниеСимволы);
-	СтрокаВызова    = СтрокаВызова + ");";
-	СтрокаВызова    = "Ответ = " + СтрокаВызова;
-	ТекстВыполнения = ТекстВыполнения + Символы.ПС + СтрокаВызова;
-
-	Возврат ТекстВыполнения;
-
-КонецФункции
-
-Процедура УстановитьРежимОтладки(Знач Параметры)
-
-	Если Параметры["--debug"] Тогда
-		Отладка = Истина;
-	Иначе
-		Отладка = Ложь;
-	КонецЕсли;
-
-КонецПроцедуры
-
-Процедура УстановитьРежимТеста(Знач Параметры)
-
-	Если Параметры["--test"] Тогда
-		Тестирование = Истина;
-	Иначе
-		Тестирование = Ложь;
-	КонецЕсли;
-
-КонецПроцедуры
-
-Процедура УстановитьФайлВывода(Знач Параметры)
-
-	Вывод = Параметры["--out"];
-
-	Если ЗначениеЗаполнено(Вывод) Тогда
-		ФайлВывода = Вывод;
-	КонецЕсли;
-
-КонецПроцедуры
-
-Процедура ВывестиДопИнформацию(Параметры)
-
-	Если Отладка Или Тестирование Тогда
-
-		Для каждого ВводныйПараметр Из Параметры Цикл
-			Сообщить(ВводныйПараметр.Ключ + " : " + ВводныйПараметр.Значение);	
-		КонецЦикла;
-
-    КонецЕсли;
-	
-КонецПроцедуры
-
-Процедура ОбработатьОшибочныйВывод(Вывод, ErrorInfo)
-
-	Информация = "";
-	Если ЗначениеЗаполнено(Вывод) Тогда
-
-		Если Отладка Или Тестирование Тогда
-			Информация = ПодробноеПредставлениеОшибки(ErrorInfo);
-		КонецЕсли;
-
-		СообщитьРезультат(Вывод);
-	Иначе
-
-		Если Отладка Или Тестирование Тогда
-			Информация = ПодробноеПредставлениеОшибки(ErrorInfo);
-		Иначе
-			Информация = BriefErrorDescription(ErrorInfo);
-		КонецЕсли;
-	
-	КонецЕсли;
-	
-	Справка.ВывестиСообщениеИсключения(Информация);
-	
-КонецПроцедуры
-
-Процедура СообщитьРезультат(Знач Текст, Знач Статус = "")
-
-	Если Не ЗначениеЗаполнено(Статус) Тогда
-		Статус = СтатусСообщения.БезСтатуса;
-	КонецЕсли;
-
-	Если ЗначениеЗаполнено(ФайлВывода) Тогда
-		Текст = ЗаписатьЗначениеВФайл(Текст, ФайлВывода);
-	ИначеЕсли ТипЗнч(Текст) = Тип("ДвоичныеДанные") Тогда
-		Текст = "It seems that binary data was returned in the response! "
-		    + "Next time, use the --out option to specify the path for saving them";
-		Статус = СтатусСообщения.Информация;
-	Иначе 
-		Текст = Строка(Текст);
-	КонецЕсли;
-
-    Сообщить(Текст, Статус);
-	
-КонецПроцедуры
-
-Функция ЗаписатьЗначениеВФайл(Знач Значение, Знач Путь)
-	
-	СтандартнаяЕдиница = 1024;
-	ЕдиницаДанных = СтандартнаяЕдиница * СтандартнаяЕдиница;
-	Значение      = ?(ТипЗнч(Значение) = Тип("ДвоичныеДанные"), Значение, Строка(Значение));
-
-	Если ТипЗнч(Значение) = Тип("ДвоичныеДанные") Тогда
-        Значение.Записать(Путь);
-	Иначе
-
-		ВозможныйФайл = Новый Файл(Значение);
-
-		Если ВозможныйФайл.Существует() Тогда
-			Путь = Значение;
-		Иначе
-			ТекстовыйДокумент = Новый ТекстовыйДокумент();
-			ТекстовыйДокумент.УстановитьТекст(Значение);
-			ТекстовыйДокумент.Записать(Путь);
-		КонецЕсли;
-		
-	КонецЕсли;
-
-	ЗаписанныйФайл = Новый Файл(Путь);
-
-	Если ЗаписанныйФайл.Существует() Тогда
-		Возврат "File (Size " 
-		    + Строка(Окр(ЗаписанныйФайл.Размер() / ЕдиницаДанных, 3)) 
-			+ " MB) has been written to " 
-			+ ЗаписанныйФайл.ПолноеИмя;
-	Иначе
-		ВызватьИсключение "The file was not written! Use the --debug flag for additional information";
-	КонецЕсли;
-
-КонецФункции
-
-#КонецОбласти
-
-#КонецОбласти
-
-Попытка
-	ОсновнойОбработчик();	
-Исключение
-	
-	Если Отладка Тогда
-		Информация = ErrorDescription();
-	Иначе
-		Информация = BriefErrorDescription(ErrorInfo());
-	КонецЕсли;
-
-	Справка.ВывестиСообщениеИсключения(Информация);
-
-КонецПопытки;
-
+#Использовать cmdline
+#Использовать oint
+#Использовать "../../tools"
+#Использовать "../../help"
+#Использовать "../../data"
+
+Перем Версия;            // Версия программы
+Перем Отладка;           // Флаг вывода отладочной информации
+Перем Тестирование;      // Флаг отключения отправки данных после обработки
+
+Перем Парсер;            // Объект парсера входящих данных 
+Перем ОбъектОПИ;         // Объект работы с методами ОПИ
+
+Перем ФайлВывода;        // Путь перенаправления вывода в файл
+
+Перем ТаблицаПараметров; // Таблица параметров текущей библиотеки
+Перем ТекущаяКоманда;    // Имя текущей команды
+Перем Команды;           // Список всех доступных команд
+
+#Область СлужебныеПроцедурыИФункции
+
+#Область Основные
+
+Процедура ОсновнойОбработчик()
+	
+	Отладка        = Ложь;
+	Тестирование   = Ложь;
+
+	Парсер         = Новый ПарсерАргументовКоманднойСтроки();
+	ОбъектОПИ      = Новый СоставБиблиотеки();
+	Версия         = ОбъектОПИ.ПолучитьВерсию();
+	Команды        = ОбъектОПИ.ПолучитьСоответствиеКомандМодулей();
+	
+	ОпределитьТекущуюКоманду();
+	СформироватьКоманду();
+
+	Результат = Парсер.Разобрать(АргументыКоманднойСтроки);
+	ВыполнитьОбработкуКоманды(Результат);
+
+КонецПроцедуры
+
+Процедура ОпределитьТекущуюКоманду()
+
+	Если АргументыКоманднойСтроки.Количество() > 0 Тогда
+		ТекущаяКоманда = АргументыКоманднойСтроки[0];
+	Иначе
+		ТекущаяКоманда = Неопределено;
+	КонецЕсли;
+	
+КонецПроцедуры
+
+Процедура СформироватьКоманду()
+
+	Если ТекущаяКоманда = Неопределено Тогда
+		Справка.ВывестиНачальнуюСтраницу(Команды, Версия);
+		Возврат;
+	КонецЕсли;
+	
+	Команда           = Парсер.ОписаниеКоманды(ТекущаяКоманда);
+	ТаблицаПараметров = ОбъектОПИ.ПолучитьСостав(ТекущаяКоманда);
+
+	Если Не ТаблицаПараметров = Неопределено Тогда
+
+		Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "Метод");
+		
+		ДобавитьПараметрыКоманды(Парсер, Команда);
+		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--help");
+		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--debug");
+		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--test");
+
+		Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "--out");
+		
+		Парсер.ДобавитьКоманду(Команда);
+
+	Иначе
+		Справка.ВывестиСообщениеИсключения("Команда");
+	КонецЕсли;
+	
+КонецПроцедуры
+
+Процедура ВыполнитьОбработкуКоманды(Знач Данные)
+	
+	ТекущаяКоманда = Данные["Команда"];
+	Параметры      = Данные["ЗначенияПараметров"];
+	Вывод		   = "";
+
+	УстановитьРежимОтладки(Параметры);
+	УстановитьРежимТеста(Параметры);
+	УстановитьФайлВывода(Параметры);
+	ВывестиДопИнформацию(Параметры);
+
+	Попытка
+			
+		Вывод = ПолучитьРезультатОбработки(ТекущаяКоманда, Параметры);
+
+		Если ЗначениеЗаполнено(Вывод) Тогда
+			ОбработатьВыводJSON(Вывод);
+			СообщитьРезультат(Вывод, СтатусСообщения.Внимание);
+		КонецЕсли;
+
+	Исключение
+		ОбработатьОшибочныйВывод(Вывод, ErrorInfo());
+	КонецПопытки;
+	
+КонецПроцедуры
+
+Функция ПолучитьРезультатОбработки(Знач Команда, Знач Параметры)
+
+	Модуль    = Команды[Команда];
+	Метод     = Параметры["Метод"];
+	Ответ     = "The function returned an empty value.";
+
+	ЧислоСтандартныхПараметров = 4;
+
+	Если Не ЗначениеЗаполнено(Метод) Или Метод = "--help" Тогда
+		Справка.ВывестиСправкуПоМетодам(Команда, ТаблицаПараметров);
+	КонецЕсли;
+
+	ОтборКоманды      = Новый Структура("МетодПоиска", вРег(Метод));
+	ПараметрыМетода   = ТаблицаПараметров.НайтиСтроки(ОтборКоманды);
+
+	Если Параметры.Количество() = ЧислоСтандартныхПараметров Или Параметры["--help"] Тогда
+		Справка.ВывестиСправкуПоПараметрам(ПараметрыМетода);
+	КонецЕсли;
+
+	ТекстВыполнения = СформироватьСтрокуВызоваМетода(Параметры, ПараметрыМетода, Модуль, Метод);
+
+	Если Отладка Или Тестирование Тогда
+		Сообщить(ТекстВыполнения, СтатусСообщения.Внимание);
+	КонецЕсли;
+
+	Если Не Тестирование Тогда
+		Выполнить(ТекстВыполнения);
+	КонецЕсли;
+
+	Возврат Ответ;
+	
+КонецФункции
+
+#КонецОбласти
+
+#Область Вспомогательные
+
+Процедура ДобавитьПараметрыКоманды(Парсер, Команда);
+	
+	Параметр_ = "Параметр";
+
+	ТаблицаДляИспользования = ТаблицаПараметров.Скопировать(, Параметр_);
+	ТаблицаДляИспользования.Свернуть(Параметр_);
+
+	МассивПараметров = ТаблицаДляИспользования.ВыгрузитьКолонку(Параметр_);
+	
+	Для Каждого Параметр Из МассивПараметров Цикл
+		Парсер.ДобавитьИменованныйПараметрКоманды(Команда, Параметр);
+	КонецЦикла;
+	
+КонецПроцедуры
+
+Процедура ОбработатьВыводJSON(Вывод)
+	
+	Если ТипЗнч(Вывод) = Тип("Структура")
+		Или ТипЗнч(Вывод) = Тип("Соответствие")
+		Или ТипЗнч(Вывод) = Тип("Массив") Тогда
+	
+		Вывод = OPI_Tools.JSONString(Вывод);
+
+	КонецЕсли;
+
+КонецПроцедуры
+
+Функция СформироватьСтрокуВызоваМетода(Знач ПереданныеПараметры, Знач ПараметрыМетода, Знач Модуль, Знач Метод)
+
+	ТекстВыполнения = "";
+	СтрокаВызова    = Модуль + "." + Метод + "(";
+	Счетчик         = 0;
+
+	Для Каждого НеобходимыйПараметр Из ПараметрыМетода Цикл
+
+		ИмяПараметра      = НеобходимыйПараметр.Параметр;
+		ЗначениеПараметра = ПереданныеПараметры.Получить(ИмяПараметра);
+
+		Если ЗначениеЗаполнено(ЗначениеПараметра) Тогда
+
+			ИмяПараметра    = "Параметр" + СтрЗаменить(ИмяПараметра, "--", "_");
+
+			ТекстВыполнения = ТекстВыполнения 
+				+ Символы.ПС 
+				+ ИмяПараметра
+				+ " = """ 
+				+ СтрЗаменить(ЗначениеПараметра, """", """""")
+				+ """;";
+
+			СтрокаВызова = СтрокаВызова + ИмяПараметра + ", ";
+			Счетчик      = Счетчик + 1;
+
+		Иначе
+			СтрокаВызова = СтрокаВызова + " , ";
+		КонецЕсли;
+
+	КонецЦикла;
+
+	ЛишниеСимволы   = 2;
+	СтрокаВызова    = Лев(СтрокаВызова, СтрДлина(СтрокаВызова) - ЛишниеСимволы);
+	СтрокаВызова    = СтрокаВызова + ");";
+	СтрокаВызова    = "Ответ = " + СтрокаВызова;
+	ТекстВыполнения = ТекстВыполнения + Символы.ПС + СтрокаВызова;
+
+	Возврат ТекстВыполнения;
+
+КонецФункции
+
+Процедура УстановитьРежимОтладки(Знач Параметры)
+
+	Если Параметры["--debug"] Тогда
+		Отладка = Истина;
+	Иначе
+		Отладка = Ложь;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура УстановитьРежимТеста(Знач Параметры)
+
+	Если Параметры["--test"] Тогда
+		Тестирование = Истина;
+	Иначе
+		Тестирование = Ложь;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура УстановитьФайлВывода(Знач Параметры)
+
+	Вывод = Параметры["--out"];
+
+	Если ЗначениеЗаполнено(Вывод) Тогда
+		ФайлВывода = Вывод;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВывестиДопИнформацию(Параметры)
+
+	Если Отладка Или Тестирование Тогда
+
+		Для каждого ВводныйПараметр Из Параметры Цикл
+			Сообщить(ВводныйПараметр.Ключ + " : " + ВводныйПараметр.Значение);	
+		КонецЦикла;
+
+    КонецЕсли;
+	
+КонецПроцедуры
+
+Процедура ОбработатьОшибочныйВывод(Вывод, ErrorInfo)
+
+	Информация = "";
+	Если ЗначениеЗаполнено(Вывод) Тогда
+
+		Если Отладка Или Тестирование Тогда
+			Информация = ПодробноеПредставлениеОшибки(ErrorInfo);
+		КонецЕсли;
+
+		СообщитьРезультат(Вывод);
+	Иначе
+
+		Если Отладка Или Тестирование Тогда
+			Информация = ПодробноеПредставлениеОшибки(ErrorInfo);
+		Иначе
+			Информация = BriefErrorDescription(ErrorInfo);
+		КонецЕсли;
+	
+	КонецЕсли;
+	
+	Справка.ВывестиСообщениеИсключения(Информация);
+	
+КонецПроцедуры
+
+Процедура СообщитьРезультат(Знач Текст, Знач Статус = "")
+
+	Если Не ЗначениеЗаполнено(Статус) Тогда
+		Статус = СтатусСообщения.БезСтатуса;
+	КонецЕсли;
+
+	Если ЗначениеЗаполнено(ФайлВывода) Тогда
+		Текст = ЗаписатьЗначениеВФайл(Текст, ФайлВывода);
+	ИначеЕсли ТипЗнч(Текст) = Тип("ДвоичныеДанные") Тогда
+		Текст = "It seems that binary data was returned in the response! "
+		    + "Next time, use the --out option to specify the path for saving them";
+		Статус = СтатусСообщения.Информация;
+	Иначе 
+		Текст = Строка(Текст);
+	КонецЕсли;
+
+    Сообщить(Текст, Статус);
+	
+КонецПроцедуры
+
+Функция ЗаписатьЗначениеВФайл(Знач Значение, Знач Путь)
+	
+	СтандартнаяЕдиница = 1024;
+	ЕдиницаДанных = СтандартнаяЕдиница * СтандартнаяЕдиница;
+	Значение      = ?(ТипЗнч(Значение) = Тип("ДвоичныеДанные"), Значение, Строка(Значение));
+
+	Если ТипЗнч(Значение) = Тип("ДвоичныеДанные") Тогда
+        Значение.Записать(Путь);
+	Иначе
+
+		ВозможныйФайл = Новый Файл(Значение);
+
+		Если ВозможныйФайл.Существует() Тогда
+			Путь = Значение;
+		Иначе
+			ТекстовыйДокумент = Новый ТекстовыйДокумент();
+			ТекстовыйДокумент.УстановитьТекст(Значение);
+			ТекстовыйДокумент.Записать(Путь);
+		КонецЕсли;
+		
+	КонецЕсли;
+
+	ЗаписанныйФайл = Новый Файл(Путь);
+
+	Если ЗаписанныйФайл.Существует() Тогда
+		Возврат "File (Size " 
+		    + Строка(Окр(ЗаписанныйФайл.Размер() / ЕдиницаДанных, 3)) 
+			+ " MB) has been written to " 
+			+ ЗаписанныйФайл.ПолноеИмя;
+	Иначе
+		ВызватьИсключение "The file was not written! Use the --debug flag for additional information";
+	КонецЕсли;
+
+КонецФункции
+
+#КонецОбласти
+
+#КонецОбласти
+
+Попытка
+	ОсновнойОбработчик();	
+Исключение
+	
+	Если Отладка Тогда
+		Информация = ErrorDescription();
+	Иначе
+		Информация = BriefErrorDescription(ErrorInfo());
+	КонецЕсли;
+
+	Справка.ВывестиСообщениеИсключения(Информация);
+
+КонецПопытки;
+

src/en/cli/packagedef

@@ -11,3 +11,4 @@
     .ЗависитОт("oint")
     .ЗависитОт("cmdline")
     .ЗависитОт("coloratos")
+    .ИсполняемыйФайл("core/Classes/app.os", "oint");

src/ru/cli/packagedef

@@ -11,3 +11,4 @@
     .ЗависитОт("oint")
     .ЗависитОт("cmdline")
     .ЗависитОт("coloratos")
+    .ИсполняемыйФайл("core/Classes/app.os", "oint")