feat: Наблюдение за состоянием родительского процесса (#13)

Author: Stivo182

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

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

src/cmd/Классы/КонтроллерРодительскогоПроцесса.os

@@ -0,0 +1,52 @@
+Перем _ОжиданиеМеждуПроверками; // Число
+Перем _ФоновоеЗадание; // ФоновоеЗадание, Неопределено
+
+&Желудь
+Процедура ПриСозданииОбъекта()
+	_ОжиданиеМеждуПроверками = 5000;
+КонецПроцедуры
+
+#Область ПрограммныйИнтерфейс
+
+// Запускает фоновое наблюдение за процессом с указанным идентификатором.
+// Если процесс завершается, текущий процесс также будет автоматически завершен.
+//
+// Параметры:
+//  PID - Число - Идентификатор процесса, за которым необходимо наблюдать
+Процедура НачатьНаблюдение(PID) Экспорт
+
+	Если Не _ФоновоеЗадание = Неопределено 
+		И _ФоновоеЗадание.Состояние = СостояниеФоновогоЗадания.Активно Тогда
+		ВызватьИсключение "Наблюдение за родительским процессом уже запущено";
+	КонецЕсли;
+
+	ПараметрыМетода = Новый Массив();
+	ПараметрыМетода.Добавить(PID);
+
+	_ФоновоеЗадание = ФоновыеЗадания.Выполнить(ЭтотОбъект, "ПериодическаяПроверкаПроцесса", ПараметрыМетода);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Процедура ПериодическаяПроверкаПроцесса(PID) Экспорт
+
+	Пока Истина Цикл
+		ЗавершитьЕслиПроцессОтсутствует(PID);
+		Приостановить(_ОжиданиеМеждуПроверками);
+	КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ЗавершитьЕслиПроцессОтсутствует(PID)
+			
+	Процесс = НайтиПроцессПоИдентификатору(PID);
+	Если Процесс = Неопределено Тогда
+		ТекущийПроцесс().Завершить();
+	КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти

src/core/Классы/HttpBin.os

@@ -35,6 +35,8 @@
 	СтрокаКоманды.Добавить(_ИмяХоста);
 	СтрокаКоманды.Добавить("--port");
 	СтрокаКоманды.Добавить(Формат(_Порт, "ЧГ="));
+	СтрокаКоманды.Добавить("--parrent-pid");
+	СтрокаКоманды.Добавить(Формат(ТекущийПроцесс().Идентификатор, "ЧГ="));
 	СтрокаКоманды = СтрСоединить(СтрокаКоманды, " ");
 
 	_Процесс = СоздатьПроцесс(СтрокаКоманды, РабочийКаталог, , , , ПеременныеСреды());