Merge pull request #111 from khorevaa/feature/install-depends

Установка зависимостей пакета из каталога `oscript_modules`

Author: nixel2007

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

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