Refactor dependency level tracking using parameters instead of class field

Co-authored-by: nixel2007 <1132840+nixel2007@users.noreply.github.com>

Author: Copilot

src/core/Классы/МенеджерУстановкиПакетов.os

@@ -18,7 +18,6 @@
 Перем УстанавливатьЗависимости;
 Перем УстанавливатьЗависимостиРазработчика;
 Перем СоздаватьФайлыЗапуска;
-Перем УровеньЗависимости;
 
 // BSLLS:NumberOfOptionalParams-off
 Процедура ПриСозданииОбъекта(Знач ВходящийРежимУстановкиПакетов = Неопределено,
@@ -64,7 +63,6 @@
 УстанавливатьЗависимостиРазработчика = Ложь;
 СоздаватьФайлыЗапуска = Истина;
 ИмяСервера = ВходящийИмяСервера;
-УровеньЗависимости = 0;
 КонецПроцедуры
 
 Процедура УстанавливатьЗависимости(Знач ПУстанавливатьЗависимости) Экспорт
@@ -79,10 +77,6 @@
 СоздаватьФайлыЗапуска = ПСоздаватьФайлыЗапуска;
 КонецПроцедуры
 
-Процедура УстановитьУровеньЗависимости(Знач Уровень) Экспорт
-УровеньЗависимости = Уровень;
-КонецПроцедуры
-
 Процедура УстановитьРежимУстановкиПакетов(Знач ЗначениеРежимУстановкиПакетов) Экспорт
 
 ТекущийРежимУстановкиПакетов = ЗначениеРежимУстановкиПакетов;
@@ -117,7 +111,7 @@
 
 КонецПроцедуры
 
-Процедура УстановитьПакетПоОписанию(Знач ЗависимостьПакета) Экспорт
+Процедура УстановитьПакетПоОписанию(Знач ЗависимостьПакета, Знач УровеньЗависимости = 0) Экспорт
 
 Если ЗависимостьПакета.ДляРазработки Тогда
 // Зависимости разработчика устанавливаются только на первом уровне (УровеньЗависимости = 0)
@@ -135,11 +129,11 @@
 КонецЕсли;
 КонецЕсли;
 
-УстановитьПакетПоИмениИВерсии(ЗависимостьПакета.ИмяПакета, ЗависимостьПакета.МинимальнаяВерсия, Истина);
+УстановитьПакетПоИмениИВерсии(ЗависимостьПакета.ИмяПакета, ЗависимостьПакета.МинимальнаяВерсия, Истина, УровеньЗависимости);
 
 КонецПроцедуры
 
-Процедура УстановитьПакетИзАрхива(Знач ФайлПакета, Знач ЭтоЗависимыйПакет = Ложь) Экспорт
+Процедура УстановитьПакетИзАрхива(Знач ФайлПакета, Знач ЭтоЗависимыйПакет = Ложь, Знач УровеньЗависимости = 0) Экспорт
 
 КаталогУстановки = ?(ЭтоЗависимыйПакет, КаталогУстановкиЗависимостей, ЦелевойКаталогУстановки);
 УстановкаПакета = Новый УстановкаПакета();
@@ -174,36 +168,23 @@
 Если УстанавливатьЗависимости Тогда
 // Тут надо корректно найти имя пакета в пути
 Если ФС.КаталогСуществует(ПутьККаталогуЛокальныхЗависимостей) Тогда
-РазрешитьЗависимостиПакетаЛокально(МанифестПакета, ПутьККаталогуЛокальныхЗависимостей);
+РазрешитьЗависимостиПакетаЛокально(МанифестПакета, ПутьККаталогуЛокальныхЗависимостей, УровеньЗависимости);
 Иначе
-РазрешитьЗависимостиПакета(МанифестПакета);
+РазрешитьЗависимостиПакета(МанифестПакета, УровеньЗависимости);
 КонецЕсли;
 
 КонецЕсли;
 
 КонецПроцедуры
 
-Процедура УстановитьПакетПоИмениИВерсии(Знач ИмяПакета, Знач ВерсияПакета, ЗНач ЭтоЗависимыйПакет = Ложь) Экспорт
+Процедура УстановитьПакетПоИмениИВерсии(Знач ИмяПакета, Знач ВерсияПакета, ЗНач ЭтоЗависимыйПакет = Ложь, Знач УровеньЗависимости = 0) Экспорт
 
-Если ЭтоЗависимыйПакет Тогда
-// Для зависимых пакетов увеличиваем уровень зависимости
-НовыйМенеджер = Новый МенеджерУстановкиПакетов(ТекущийРежимУстановкиПакетов, ЦелевойКаталогУстановки, КаталогУстановкиЗависимостей, ИмяСервера);
-НовыйМенеджер.УстанавливатьЗависимости(УстанавливатьЗависимости);
-НовыйМенеджер.СоздаватьФайлыЗапуска(СоздаватьФайлыЗапуска);
-// Для транзитивных зависимостей отключаем установку зависимостей разработчика
-НовыйМенеджер.УстанавливатьЗависимостиРазработчика(Ложь);
-НовыйМенеджер.УстановитьУровеньЗависимости(УровеньЗависимости + 1);
-
-ФайлПакета = РаботаСПакетами.ПолучитьПакет(ИмяПакета, ВерсияПакета, , ИмяСервера);
-НовыйМенеджер.УстановитьПакетИзАрхива(ФайлПакета, Ложь);
-Иначе
-ФайлПакета = РаботаСПакетами.ПолучитьПакет(ИмяПакета, ВерсияПакета, , ИмяСервера);
-УстановитьПакетИзАрхива(ФайлПакета, ЭтоЗависимыйПакет);
-КонецЕсли;
+ФайлПакета = РаботаСПакетами.ПолучитьПакет(ИмяПакета, ВерсияПакета, , ИмяСервера);
+УстановитьПакетИзАрхива(ФайлПакета, ЭтоЗависимыйПакет, УровеньЗависимости);
 
 КонецПроцедуры
 
-Процедура РазрешитьЗависимостиПакета(Знач Манифест) Экспорт
+Процедура РазрешитьЗависимостиПакета(Знач Манифест, Знач УровеньЗависимости = 0) Экспорт
 
 Зависимости = Манифест.Зависимости();
 Если Зависимости.Количество() = 0 Тогда
@@ -222,7 +203,7 @@
 
 // скачать
 // определить зависимости и так по кругу
-УстановитьПакетПоОписанию(Зависимость);
+УстановитьПакетПоОписанию(Зависимость, УровеньЗависимости + 1);
 УстановленныеПакеты.Обновить();
 
 Иначе
@@ -234,7 +215,7 @@
 
 КонецПроцедуры
 
-Процедура РазрешитьЗависимостиПакетаЛокально(Манифест, ПутьККаталогуЛокальныхЗависимостей)
+Процедура РазрешитьЗависимостиПакетаЛокально(Манифест, ПутьККаталогуЛокальныхЗависимостей, Знач УровеньЗависимости = 0)
 
 Зависимости = Манифест.Зависимости();
 Если Зависимости.Количество() = 0 Тогда
@@ -262,7 +243,7 @@
 
 Иначе
 
-УстановитьПакетПоОписанию(Зависимость);
+УстановитьПакетПоОписанию(Зависимость, УровеньЗависимости + 1);
 
 КонецЕсли;