feat: Запуск сервиса отдельным процессом (#12)

Author: Stivo182

README.md

@@ -69,7 +69,7 @@ _test.os:_
 
 ### Swagger UI
 
-На стартовой странице сервиса (адрес по умолчанию: `http://127.0.0.1:3334`) доступна визуальная документация API, а также возможность отправки запросов и получения ответов.
+На стартовой странице сервиса (адрес по умолчанию: `http://127.0.0.1:3333`) доступна визуальная документация API, а также возможность отправки запросов и получения ответов.
 
 ## Совместимость <a name="compatibility"></a>
 
@@ -105,7 +105,7 @@ _test.os:_
 
 ### Класс `HttpBin`
 
-Сервис по умолчанию запускается по адресу `127.0.0.1:3334` в фоновом режиме и с ожиданием завершения запуска сервиса.</br>
+Сервис по умолчанию запускается по адресу `127.0.0.1:3333` в фоновом режиме и с ожиданием завершения запуска сервиса.</br>
 Класс реализован с текучим интерфейсом.
 
 | Метод | Описание |

autumn-properties.json

@@ -4,10 +4,5 @@
       "КаталогиСФайлами": {
         "/static": "./src/app/view/static"
       }
-  },
-  "cli": {
-      "ИмяПриложения": "httpbin",
-      "ПолноеИмяПриложения": "Cервис тестирования HTTP клиента",
-      "ВерсияПриложения": "1.3.0"
   }
 }

packagedef

@@ -16,6 +16,8 @@
     .ЗависитОт("winow", "0.11.0")
     .ЗависитОт("compressor", "1.0.2")
     .ЗависитОт("1connector", "2.3.3")
+    .ЗависитОт("packageinfo", "1.1.1")
+    .ЗависитОт("fs", "1.2.0")
     .РазработкаЗависитОт("1testrunner")
     .РазработкаЗависитОт("asserts")
     .РазработкаЗависитОт("coverage")

src/app/HttpBin_ОсновнойКонтрол.os src/app/ОсновнойКонтрол.ossrc/app/HttpBin_ОсновнойКонтрол.os renamed to src/app/ОсновнойКонтрол.os

@@ -1,7 +1,7 @@
 #Использовать "../internal"
 #Использовать 1connector
 
-Перем Помощник; // см. ПомощникПодготовкиОтветов
+Перем Помощник; // ПомощникПодготовкиОтветов
 Перем КаталогШаблонов; // Строка
 
 #Область ТочкиМаршрута

src/cmd/main.os

@@ -1,14 +1,7 @@
 #Использовать autumn
 #Использовать autumn-cli
+#Использовать winow
 #Использовать "."
-#Использовать "../core"
-
-Процедура УстановитьКорневойКаталог()
-	ТекущийКаталог = Новый Файл(ОбъединитьПути(ТекущийСценарий().Каталог, "../..")).ПолноеИмя;
-	УстановитьТекущийКаталог(ТекущийКаталог);
-КонецПроцедуры
-
-УстановитьКорневойКаталог();
 
 Поделка = Новый Поделка;
 Поделка.ЗапуститьПриложение();

src/cmd/Классы/HttpBin_КомандаЗапустить.os

@@ -0,0 +1,36 @@
+// BSLLS:UsingHardcodeNetworkAddress-off
+
+&Опция(Имя = "h host", Описание = "Имя хоста / IP адрес сервиса")
+&ТСтрока
+&ПоУмолчанию("127.0.0.1")
+Перем _Хост; // Строка
+
+&Опция(Имя = "p port", Описание = "Порт сервиса")
+&ТЧисло
+&ПоУмолчанию(3333)
+Перем _Порт; // Число
+
+&Пластилин("Настройки")
+Перем _НастройкиВебСервера; // НастройкиВебСервера - см. winow
+
+&Пластилин("ЗапускательВебПриложения")
+Перем _ЗапускательВебПриложения; // ЗапускательВебПриложения - см. winow
+
+&КомандаПриложения(Имя = "run", Описание = "Запуск сервиса")
+Процедура ПриСозданииОбъекта()
+КонецПроцедуры
+
+&ВыполнениеКоманды
+Процедура Запустить() Экспорт
+
+	_НастройкиВебСервера.РазмерБуфера = 0;
+	_НастройкиВебСервера.ИмяХоста = _Хост;
+	_НастройкиВебСервера.Порт = _Порт;
+
+	Если ПолучитьПеременнуюСреды("HTTPBIN_IS_TEST_MODE") = "true" Тогда
+		_НастройкиВебСервера.ЗадержкаПередЧтениемСокета = 400;
+	КонецЕсли;
+
+	_ЗапускательВебПриложения.Запустить();
+
+КонецПроцедуры

src/cmd/Классы/КомандаЗапустить.os

@@ -0,0 +1,22 @@
+#Использовать packageinfo
+
+Перем _ИнформацияОПакете; // ИнформацияОПакете - см. packageinfo
+
+&Желудь("ОписаниеКонсольногоПриложения")
+&Верховный
+Процедура ПриСозданииОбъекта()
+	ПолноеИмяФайла = ОбъединитьПути(ТекущийСценарий().Каталог, "../../..", "packagedef"); 
+	_ИнформацияОПакете = Новый ИнформацияОПакете(ПолноеИмяФайла);
+КонецПроцедуры
+
+Функция ИмяПриложения() Экспорт
+	Возврат _ИнформацияОПакете.Имя();
+КонецФункции
+
+Функция ПолноеИмяПриложения() Экспорт
+	Возврат _ИнформацияОПакете.Описание();
+КонецФункции
+
+Функция ВерсияПриложения() Экспорт
+	Возврат _ИнформацияОПакете.Версия();
+КонецФункции