Механизм локальной установки зависимостей

Author: khorevaa

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

@@ -114,9 +114,17 @@
 	КонецПопытки;
 
 	МанифестПакета = УстановкаПакета.ПолучитьМанифестПакета();
-	
+	ИмяПакета = МанифестПакета.Имя;
+
+	ПолныйПутьККаталогуУстановки = Новый Файл(КаталогУстановки).ПолноеИмя;
+	ИмяКаталогаЛокальныхЗависимостей = КонстантыOpm.ЛокальныйКаталогУстановкиПакетов;
+
+	ПутьККаталогуЛокальныхЗависимостей = ОбъединитьПути(ПолныйПутьККаталогуУстановки, ИмяПакета, ИмяКаталогаЛокальныхЗависимостей);
+
 	// Тут надо корректно найти имя пакета в пути
-	Если НЕ ФС.КаталогСуществует(ОбъединитьПути(Новый Файл(КаталогУстановки).ПолноеИмя, КонстантыOpm.ЛокальныйКаталогУстановкиПакетов)) Тогда
+	Если ФС.КаталогСуществует(ПутьККаталогуЛокальныхЗависимостей) Тогда
+		РазрешитьЗависимостиПакетаЛокально(МанифестПакета, ПутьККаталогуЛокальныхЗависимостей);
+	Иначе
 		РазрешитьЗависимостиПакета(МанифестПакета);
 	КонецЕсли;
 
@@ -156,6 +164,42 @@
 
 КонецПроцедуры
 
+Процедура РазрешитьЗависимостиПакетаЛокально(Манифест, ПутьККаталогуЛокальныхЗависимостей)
+	
+	Зависимости = Манифест.Зависимости();
+	Если Зависимости.Количество() = 0 Тогда
+		Возврат;
+	КонецЕсли;
+	
+	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
+
+	Для Каждого Зависимость Из Зависимости Цикл
+		Лог.Информация("Устанавливаю зависимость: <%1> из каталога локальных зависимостей", Зависимость.ИмяПакета);
+
+		Если УстановленныеПакеты.ПакетУстановлен(Зависимость, КаталогУстановкиЗависимостей) Тогда
+			Лог.Информация("<%1> уже установлен. Пропускаем.", Зависимость.ИмяПакета);
+			Продолжить;
+		КонецЕсли;
+		
+		ПутьККаталогуПакетаЗависимостиИсточник = ОбъединитьПути(ПутьККаталогуЛокальныхЗависимостей, Зависимость.ИмяПакета);
+
+		Если ФС.КаталогСуществует(ПутьККаталогуПакетаЗависимостиИсточник) Тогда
+
+			ПутьККаталогуПакетаЗависимостиПриемник = ОбъединитьПути(КаталогУстановкиЗависимостей, Зависимость.ИмяПакета);
+			ФС.КопироватьСодержимоеКаталога(ПутьККаталогуПакетаЗависимостиИсточник, ПутьККаталогуПакетаЗависимостиПриемник);
+		
+		Иначе
+
+			УстановитьПакетПоОписанию(Зависимость);
+		
+		КонецЕсли;
+
+		УстановленныеПакеты.Обновить();
+
+	КонецЦикла;
+
+КонецПроцедуры
+
 Функция ПолучитьУстановленныеПакеты()
 
 	КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов(КаталогУстановкиЗависимостей);