Merge branch 'develop'

Author: EvilBeaver

.gitignore

@@ -1,2 +1,4 @@
 oscript_modules/
-test-reports/
+test-reports/
+
+*.ospx

packagedef

@@ -1,16 +1,42 @@
 
+Процедура ПередСборкой(Знач РабочийКаталог) Экспорт
+
+	УдалитьФайлы(ОбъединитьПути(РабочийКаталог, "oscript_modules"), "*.*");
+
+	СистемнаяИнформация = Новый СистемнаяИнформация;
+	ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
+	Если ЭтоWindows Тогда
+		ИмяУтилиты = "opm.bat";
+	Иначе
+		ИмяУтилиты = "opm";
+	КонецЕсли;
+
+	СтрокаЗапуска = СтрШаблон("%1 install -l", ИмяУтилиты);
+	Процесс = СоздатьПроцесс(СтрокаЗапуска, РабочийКаталог);
+	Процесс.Запустить();
+	Процесс.ОжидатьЗавершения();
+	
+	Если Процесс.КодВозврата <> 0 Тогда
+		ВызватьИсключение "Ошибка сборки пакета";
+	КонецЕсли;
+	
+КонецПроцедуры
+
 ПутьКСценариюКонстант = ОбъединитьПути(ТекущийСценарий().Каталог, "src", "Модули", "КонстантыOpm.os");
 Константы_ЛокальнаяВерсия = ЗагрузитьСценарий(ПутьКСценариюКонстант);
 
 Описание.Имя("opm")
 		.Версия(Константы_ЛокальнаяВерсия.ВерсияПродукта)
-		.ЗависитОт("fs", "0.3")
-		.ЗависитОт("asserts")
-		.ЗависитОт("logos")
-		.ЗависитОт("cmdline")
-		.ЗависитОт("tempfiles")
-		.ЗависитОт("1testrunner")
-		.ЗависитОт("gitrunner", "1.4.0")
+		.ВерсияСреды("1.0.19")
+		.ЗависитОт("fs", "0.4.1")
+		.ЗависитОт("asserts", "0.4.0")
+		.ЗависитОт("json", "1.0.1")
+		.ЗависитОт("fluent", "0.2.0")
+		.ЗависитОт("logos", "1.0.0")
+		.ЗависитОт("cmdline", "0.6.2")
+		.ЗависитОт("tempfiles", "0.2.2")
+		.ЗависитОт("gitrunner", "1.5.0")
 		.ВключитьФайл("src")
+		.ВключитьФайл("oscript_modules")
 		.ОпределяетКласс("ОписаниеПакета", "src/Классы/ОписаниеПакета.os")
 		.ИсполняемыйФайл("src/opm.os");		

src/Классы/Зеркало.os

@@ -1,5 +1,6 @@
 Перем СерверУдаленногоХранилища Экспорт;
 Перем ПутьВХранилище Экспорт;
+Перем Порт Экспорт;
 
 Перем Соединение;
 
@@ -9,15 +10,16 @@
 		Возврат Соединение;
 	КонецЕсли;
 
+	Порт = ?(Порт = Неопределено, 80, Порт);
 	НастройкиПрокси = НастройкиПриложенияOpm.Получить().Прокси;
 	Если НастройкиПрокси.ИспользоватьПрокси Тогда
 		Прокси = Новый ИнтернетПрокси(НастройкиПрокси.ПроксиПоУмолчанию);
 		Если Не НастройкиПрокси.ПроксиПоУмолчанию Тогда
 			Прокси.Установить("http",НастройкиПрокси.Сервер,НастройкиПрокси.Порт,НастройкиПрокси.Пользователь,НастройкиПрокси.Пароль,НастройкиПрокси.ИспользоватьАутентификациюОС);
 		КонецЕсли;	
-		Соединение = Новый HTTPСоединение(СерверУдаленногоХранилища,,,,Прокси);
+		Соединение = Новый HTTPСоединение(СерверУдаленногоХранилища, Порт,,,Прокси);
 	Иначе
-		Соединение = Новый HTTPСоединение(СерверУдаленногоХранилища);
+		Соединение = Новый HTTPСоединение(СерверУдаленногоХранилища, Порт);
 	КонецЕсли;
 
 	Возврат Соединение;

src/Классы/КомандаOpm_Install.os

@@ -6,6 +6,7 @@
 	ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Выполнить установку. Если указано имя пакета, происходит установка из хаба или из файла. В обратном случае устанавливаются зависимости текущего пакета по файлу packagedef.");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-all", "Установить все пакеты, зарегистрированные в хабе");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-f", "Указать файл из которого нужно установить пакет");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-dest", "Переопределить стандартный каталог в который устанавливаются пакеты");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-l", "Установить пакеты в локальный каталог oscript_modules");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
@@ -27,9 +28,18 @@
 	Установщик = Новый УстановкаПакета;
 
 	Если ЗначенияПараметров["-l"] Тогда
+		Если ЗначениеЗаполнено(ЗначенияПараметров["-dest"]) Тогда
+			Лог = Логирование.ПолучитьЛог(ПараметрыСистемыOpm.ИмяЛогаСистемы());
+			Лог.Предупреждение("При локальной установке параметр -dest игнорируется");
+		КонецЕсли;
 		Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
 	Иначе
 		Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Глобально);
+
+		Если ЗначениеЗаполнено(ЗначенияПараметров["-dest"]) Тогда
+			Установщик.УстановитьЦелевойКаталог(ЗначенияПараметров["-dest"]);
+		КонецЕсли;
+
 	КонецЕсли;
 
 	Если ЗначенияПараметров["-all"] Тогда

src/Классы/КомандаOpm_List.os

@@ -36,7 +36,7 @@
 		ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");
 		ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);		
 
-		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
+		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов(ПутьККаталогуПакетов);
 		УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
 	КонецЕсли;
 
@@ -46,9 +46,13 @@
 
 	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
 		СтрокаСообщения = УстановленныйПакет.Ключ;
-		Если ТипЗнч(УстановленныйПакет.Значение) = Тип("ОписаниеПакета") Тогда
-			ОписаниеПакета = УстановленныйПакет.Значение;
-			СтрокаСообщения = СтрокаСообщения + "@" + ОписаниеПакета.Свойства().Версия;
+		Если ТипЗнч(УстановленныйПакет.Значение) = Тип("Структура") Тогда
+			ОписаниеПакета = УстановленныйПакет.Значение.МетаданныеПакета;
+			Если ТипЗнч(ОписаниеПакета) = Тип("Булево") Тогда
+				// @deprecated
+			Иначе
+				СтрокаСообщения = СтрокаСообщения + "@" + ОписаниеПакета.Свойства().Версия;
+			КонецЕсли;		
 		КонецЕсли;
 		Сообщить(СтрокаСообщения);
 	КонецЦикла;

src/Классы/КэшПакетовХаба.os

@@ -7,25 +7,14 @@
 
 Процедура Обновить() Экспорт
 
+	ПакетыХаба = Новый Соответствие;
 	УстановкаПакета = Новый Установкапакета();
-	Ответ  = Зеркала.ПолучитьРесурс("list.txt");
-
-	Если Ответ = Неопределено Тогда
-		ТекстИсключения = СтрШаблон("Ошибка подключения");
-		ВызватьИсключение ТекстИсключения;
-	КонецЕсли;
+	Репо = Новый Репо();
+	СоответствиеПакетов = Репо.ПолучитьПакеты();
+	Для каждого КлючЗначение из СоответствиеПакетов Цикл
+		ПакетыХаба.Вставить(КлючЗначение.Ключ, Истина);
+	КонецЦикла;
 
-	ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
-	Ответ.Закрыть();
-		
-	ПакетыХаба = Новый Соответствие;
-	ТекстовыйДокумент  = Новый ТекстовыйДокумент;
-	ТекстовыйДокумент.УстановитьТекст(ТекстОтвета);
-	КоличествоПакетовВХабе = ТекстовыйДокумент.КоличествоСтрок();
-	Для НомерСтроки = 1 По КоличествоПакетовВХабе Цикл
-		ПакетыХаба.Вставить(СокрЛП(ТекстовыйДокумент.ПолучитьСтроку(НомерСтроки)), Истина);
-	КонецЦикла;		
-
 КонецПроцедуры
 
 Функция ЭтоПакетХаба(Знач ИмяПакета) Экспорт

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

@@ -1,4 +1,5 @@
 
+#Использовать fs
 #Использовать logos
 
 Перем Лог;
@@ -8,19 +9,20 @@
 
 Перем УстановленныеПакеты;
 
-Функция ПакетУстановлен(Знач ОписаниеЗависимости) Экспорт
+Функция ПакетУстановлен(Знач ОписаниеЗависимости, Знач КаталогПоискаБиблиотек = "") Экспорт
 
 	Перем УстановленныеПакеты;
 	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
+	
+	ДанныеПакета = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета);
+	ПакетУстановлен = ДанныеПакета <> Неопределено;
+	Если ПакетУстановлен И НЕ ПустаяСтрока(КаталогПоискаБиблиотек) Тогда
+		КаталогБиблиотекПакета = Новый Файл(ОбъединитьПути(ДанныеПакета.КаталогПакета, "..")).ПолноеИмя;
+		ПакетУстановлен = КаталогБиблиотекПакета = КаталогПоискаБиблиотек;
+	КонецЕсли;
 
-	ПакетУстановлен = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета) <> Неопределено;
+	ПутьКФайлуМетаданных = ПолучитьПутьКФайлуМетаданныхБиблиотеки(ОписаниеЗависимости.ИмяПакета);
 
-	КаталогБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
-	ПутьКФайлуМетаданных = ОбъединитьПути(
-		КаталогБиблиотек,
-		ОписаниеЗависимости.ИмяПакета,
-		КонстантыOpm.ИмяФайлаМетаданныхПакета
-	);
 	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
 	Если ФайлМетаданных.Существует() Тогда	
 		МетаОписаниеПакета = ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);
@@ -33,17 +35,19 @@
 
 	УстановленаКорректнаяВерсия = ОписаниеЗависимости.МинимальнаяВерсия = Неопределено
 		ИЛИ РаботаСВерсиями.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия) >= 0;
+		
+	Лог.Отладка("Пакет установлен: " + ПакетУстановлен);
 	Лог.Отладка("Установлена корректная версия: " + УстановленаКорректнаяВерсия);
 	Возврат ПакетУстановлен И УстановленаКорректнаяВерсия;
 
 КонецФункции
 
 Процедура Обновить() Экспорт
 
+	УстановленныеПакеты = Новый Соответствие;
 	Для Каждого КаталогБиблиотек Из МассивКаталоговПоискаБиблиотек Цикл
 
 		Лог.Отладка("КаталогБиблиотек " + КаталогБиблиотек);
-		УстановленныеПакеты = Новый Соответствие;
 
 		НайденныеФайлы = НайтиФайлы(КаталогБиблиотек, ПолучитьМаскуВсеФайлы());
 		Для Каждого ФайлКаталога Из НайденныеФайлы Цикл
@@ -81,7 +85,8 @@
 	);
 
 	МассивКаталоговПоискаБиблиотек.Добавить(КаталогСистемныхБиблиотек);
-	
+	ДобавитьКаталогБиблиотек("./" + КонстантыOpm.ЛокальныйКаталогУстановкиПакетов);
+
 КонецПроцедуры
 
 // Добавляет каталог в список, по которому выполняется поиск библиотек
@@ -102,7 +107,11 @@
 		МетаОписаниеПакета = Истина;
 	КонецЕсли;
 
-	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, МетаОписаниеПакета);
+	СтруктураДанных = Новый Структура();
+	СтруктураДанных.Вставить("МетаданныеПакета", МетаОписаниеПакета);
+	СтруктураДанных.Вставить("КаталогПакета", ФайлКаталога.ПолноеИмя);
+
+	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, СтруктураДанных);
 
 КонецПроцедуры
 
@@ -125,4 +134,42 @@
 
 КонецФункции
 
-Инициализация();
+Функция ПолучитьПутьКФайлуМетаданныхБиблиотеки(ИмяПакета) Экспорт
+
+	ПутьКФайлуМетаданных = "";
+	Для Каждого КаталогБиблиотек Из МассивКаталоговПоискаБиблиотек Цикл
+		ВремПутьКФайлуМетаданных = ОбъединитьПути(
+			КаталогБиблиотек,
+			ИмяПакета,
+			КонстантыOpm.ИмяФайлаМетаданныхПакета
+		);
+
+		Лог.Отладка(Новый Файл(ВремПутьКФайлуМетаданных).ПолноеИмя);
+		Если ФС.ФайлСуществует(ВремПутьКФайлуМетаданных) Тогда
+			ПутьКФайлуМетаданных = ВремПутьКФайлуМетаданных;
+		КонецЕсли;
+	КонецЦикла;
+	
+	Возврат ПутьКФайлуМетаданных;
+	
+КонецФункции
+
+Процедура ПриСозданииОбъекта(КаталогПоискаБиблиотек = "")
+	
+	Лог = Логирование.ПолучитьЛог("oscript.app.opm");
+	МассивКаталоговПоискаБиблиотек = Новый Массив;
+	
+	Если ЗначениеЗаполнено(КаталогПоискаБиблиотек) Тогда
+		МассивКаталоговПоискаБиблиотек.Добавить(КаталогПоискаБиблиотек);
+	Иначе
+		КаталогСистемныхБиблиотек = ОбъединитьПути(
+			КаталогПрограммы(),
+			ПолучитьЗначениеСистемнойНастройки("lib.system")
+		);
+
+		МассивКаталоговПоискаБиблиотек.Добавить(КаталогСистемныхБиблиотек);
+		ДобавитьКаталогБиблиотек("./" + КонстантыOpm.ЛокальныйКаталогУстановкиПакетов);
+	КонецЕсли;
+
+КонецПроцедуры
+