Merge pull request #67 from dmpas/feature/issue66-install-l

Fix #66: локальная установка в локальный каталог.

Author: nixel2007

src/Классы/КэшУстановленныхПакетов.os

@@ -3,10 +3,16 @@
 
 Перем Лог;
 
+// Массив каталогов в порядке возрастания приоритета
+Перем МассивКаталоговПоискаБиблиотек;
+
 Перем УстановленныеПакеты;
 
 Функция ПакетУстановлен(Знач ОписаниеЗависимости) Экспорт
 
+Перем УстановленныеПакеты;
+УстановленныеПакеты = ПолучитьУстановленныеПакеты();
+
 ПакетУстановлен = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета) <> Неопределено;
 
 КаталогБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
@@ -34,32 +40,57 @@
 
 Процедура Обновить() Экспорт
 
-КаталогБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
-Лог.Отладка("КаталогБиблиотек " + КаталогБиблиотек);
-УстановленныеПакеты = Новый Соответствие;
-
-НайденныеФайлы = НайтиФайлы(КаталогБиблиотек, ПолучитьМаскуВсеФайлы());
-Для Каждого ФайлКаталога Из НайденныеФайлы Цикл
-Если ФайлКаталога.ЭтоКаталог() Тогда
-ДобавитьУстановленныйПакет(ФайлКаталога);
-КонецЕсли;
+Для Каждого КаталогБиблиотек Из МассивКаталоговПоискаБиблиотек Цикл
+
+Лог.Отладка("КаталогБиблиотек " + КаталогБиблиотек);
+УстановленныеПакеты = Новый Соответствие;
+
+НайденныеФайлы = НайтиФайлы(КаталогБиблиотек, ПолучитьМаскуВсеФайлы());
+Для Каждого ФайлКаталога Из НайденныеФайлы Цикл
+Если ФайлКаталога.ЭтоКаталог() Тогда
+
+// ДобавитьУстановленныйПакет заменит уже добавленный пакет при совпадении имён
+// Соответственно, более поздние каталоги будут иметь приоритет
+ДобавитьУстановленныйПакет(ФайлКаталога);
+
+КонецЕсли;
+КонецЦикла;
+
 КонецЦикла;
 
 КонецПроцедуры
 
 Функция ПолучитьУстановленныеПакеты() Экспорт
+
+Если УстановленныеПакеты = Неопределено Тогда
+Обновить();
+КонецЕсли;
+
 Возврат УстановленныеПакеты;
+
 КонецФункции
 
 Процедура Инициализация()
 
 Лог = Логирование.ПолучитьЛог("oscript.app.opm");
-//Лог.УстановитьУровень(УровниЛога.Отладка);
-
-Обновить();
+МассивКаталоговПоискаБиблиотек = Новый Массив;
+
+КаталогСистемныхБиблиотек = ОбъединитьПути(
+КаталогПрограммы(),
+ПолучитьЗначениеСистемнойНастройки("lib.system")
+);
+
+МассивКаталоговПоискаБиблиотек.Добавить(КаталогСистемныхБиблиотек);
 
 КонецПроцедуры
 
+// Добавляет каталог в список, по которому выполняется поиск библиотек
+Процедура ДобавитьКаталогБиблиотек(Знач Каталог) Экспорт
+
+МассивКаталоговПоискаБиблиотек.Добавить(Каталог);
+
+КонецПроцедуры
+
 Процедура ДобавитьУстановленныйПакет(Знач ФайлКаталога)
 
 ПутьКФайлуМетаданных = ОбъединитьПути(ФайлКаталога.ПолноеИмя, КонстантыOpm.ИмяФайлаМетаданныхПакета);

src/Классы/УстановкаПакета.os

@@ -7,6 +7,7 @@
 Перем мЗависимостиВРаботе;
 Перем ЭтоWindows;
 Перем мРежимУстановкиПакетов;
+Перем КэшУстановленныхПакетов;
 
 Процедура УстановитьПакетИзАрхива(Знач ФайлАрхива) Экспорт
 
@@ -137,7 +138,7 @@
 КонецПроцедуры
 
 Процедура ОбновитьУстановленныеПакеты() Экспорт
-КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов;
+КэшУстановленныхПакетов = ПолучитьУстановленныеПакеты();
 УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
 Для Каждого КлючИЗначение Из УстановленныеПакеты Цикл
 ОбновитьПакетИзОблака(КлючИЗначение.Ключ);
@@ -197,7 +198,26 @@
 КонецПроцедуры
 
 Функция ПолучитьУстановленныеПакеты()
-Возврат Новый КэшУстановленныхПакетов();
+
+Если КэшУстановленныхПакетов = Неопределено Тогда
+
+КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
+
+Если мРежимУстановкиПакетов = РежимУстановкиПакетов.Локально Тогда
+
+ПутьККаталогуЛокальнойУстановки = ОбъединитьПути(
+ТекущийКаталог(),
+КонстантыOpm.ЛокальныйКаталогУстановкиПакетов
+);
+
+КэшУстановленныхПакетов.ДобавитьКаталогБиблиотек(ПутьККаталогуЛокальнойУстановки);
+
+КонецЕсли;
+
+КонецЕсли;
+
+Возврат КэшУстановленныхПакетов;
+
 КонецФункции
 
 Процедура СкачатьИУстановитьПакетПоОписанию(Знач ОписаниеПакета)