Merge pull request #34 from oscript-library/feature/install-localy

Установка пакетов в локальный каталог

Author: nixel2007

packagedef

@@ -1,6 +1,7 @@
 
 Описание.Имя("opm")
 		.Версия("0.8.0")
+		.ЗависитОт("fs", "0.3")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")
 		.ЗависитОт("tempfiles")

src/Классы/ДиспетчерКомандПриложения.os

@@ -51,6 +51,7 @@
 	Команда = Парсер.ОписаниеКоманды("install", "Выполнить установку. Если указано имя пакета, происходит установка из хаба или из файла. В обратном случае устанавливаются зависимости текущего пакета по файлу packagedef.");
 	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-all", "Установить все пакеты, зарегистрированные в хабе");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
+	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-l", "Установить пакеты в локальный каталог oscript_modules");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
@@ -72,14 +73,14 @@
 КонецПроцедуры
 
 Процедура ДобавитьКомандуConfig(Знач Парсер)
- 	Команда = Парсер.ОписаниеКоманды("config", "Задать пользовательские настройки");
- 	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "-proxyusedefault","Использовать ПроксиПоУмолчанию (системные настройки)");
- 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyserver", "Адрес прокси");
- 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyport", "Порт прокси");
- 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyuser", "Пользователь прокси ");
- 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxypass", "Пароль прокси");
- 	Парсер.ДобавитьКоманду(Команда);
- КонецПроцедуры
+	Команда = Парсер.ОписаниеКоманды("config", "Задать пользовательские настройки");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "-proxyusedefault","Использовать ПроксиПоУмолчанию (системные настройки)");
+	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyserver", "Адрес прокси");
+	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyport", "Порт прокси");
+	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyuser", "Пользователь прокси ");
+	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxypass", "Пароль прокси");
+	Парсер.ДобавитьКоманду(Команда);
+КонецПроцедуры
 
 Процедура ДобавитьКомандуList(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("list", "Вывести список пакетов");
@@ -95,7 +96,7 @@
 КонецПроцедуры
 
 Процедура ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
-
+	
 	ЗначенияПараметров = ПараметрыКоманды.ЗначенияПараметров;
 	Если ПараметрыКоманды.Команда = "build" Тогда
 		ВыполнитьСборку(ЗначенияПараметров["КаталогИсходников"], ЗначенияПараметров["-mf"], ЗначенияПараметров["-out"]);
@@ -114,19 +115,26 @@
 	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);	
 	ИначеЕсли ПараметрыКоманды.Команда = "list" Тогда
- 		ВывестиСписокПакетов(ЗначенияПараметров);		
+		ВывестиСписокПакетов(ЗначенияПараметров);		
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;
-
+	
 КонецПроцедуры
 
 /////////////////////////////////////////////////////////////////////////
 // Реализация команд
 
 Процедура УстановитьПакет(Знач ЗначенияПараметров) Экспорт
-
+	
 	Установщик = Новый УстановкаПакета;
+	
+	Если ЗначенияПараметров["-l"] Тогда
+		Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
+	Иначе
+		Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Глобально);
+	КонецЕсли;
+	
 	Если ЗначенияПараметров["-all"] Тогда
 		Установщик.УстановитьВсеПакетыИзОблака();
 	ИначеЕсли ЗначенияПараметров["-f"] = Неопределено И ЗначенияПараметров["ИмяПакета"] = Неопределено Тогда
@@ -136,32 +144,32 @@
 	Иначе
 		Установщик.УстановитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"]);
 	КонецЕсли;
-
+	
 КонецПроцедуры
 
 Процедура ВыполнитьСборку(Знач КаталогИсходников, Знач ФайлМанифеста, Знач ВыходнойКаталог) Экспорт
-
+	
 	Сборщик = Новый СборщикПакета();
 	Сборщик.СобратьПакет(КаталогИсходников, ФайлМанифеста, ВыходнойКаталог);
-
+	
 КонецПроцедуры
 
 Процедура ПодготовитьКаталогПроекта(Знач ВыходнойКаталог) Экспорт
-
+	
 	Сборщик = Новый СборщикПакета();
 	Сборщик.ПодготовитьКаталогПроекта(ВыходнойКаталог);
-
+	
 КонецПроцедуры
 
 Процедура ВыполнитьЗадачу(Знач ИмяЗадачи, Знач ПараметрыЗадачи) 
 
 	ИсполнительЗадач = Новый ИсполнительЗадач();
 	ИсполнительЗадач.ВыполнитьЗадачу(ИмяЗадачи, ПараметрыЗадачи);
-		
+	
 КонецПроцедуры
 
 Процедура ОбновитьПакет(Знач ЗначенияПараметров) Экспорт
-
+	
 	Установщик = Новый УстановкаПакета;
 	Если ЗначенияПараметров["-all"] Тогда
 		Установщик.ОбновитьУстановленныеПакеты();
@@ -170,14 +178,14 @@
 	Иначе
 		Установщик.ОбновитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"]);
 	КонецЕсли;
-
+	
 КонецПроцедуры
 
 Процедура СоздатьСкриптЗапуска(Знач ИмяСкрипта, Знач Каталог, Знач ИмяФайлаЗапуска) Экспорт
 	Если ИмяСкрипта = Неопределено Тогда
 		ВызватьИсключение "Не указано имя файла скрипта";
 	КонецЕсли;
-
+	
 	ФайлСкрипта = Новый Файл(ИмяСкрипта);
 	ПолноеИмяСкрипта = ФайлСкрипта.ПолноеИмя;
 	Если Не ФайлСкрипта.Существует() Тогда
@@ -188,15 +196,15 @@
 			ПолноеИмяСкрипта = ФайлСкрипта.ПолноеИмя;
 		КонецЕсли;
 	КонецЕсли;
-
+	
 	Если Не ФайлСкрипта.ЭтоФайл() Тогда
 		ВызватьИсключение "Указанный скрипт """ + ПолноеИмяСкрипта + """ не является файлом";
 	КонецЕсли;
-
+	
 	Если Каталог = Неопределено Тогда
 		Каталог = КаталогПрограммы();
 	КонецЕсли;
-
+	
 	ФайлКаталога = Новый Файл(Каталог);
 	Каталог = ФайлКаталога.ПолноеИмя;
 	Если ФайлКаталога.Существует() Тогда
@@ -209,34 +217,34 @@
 			ВызватьИсключение "Не удалось создать каталог """ + Каталог + """";
 		КонецЕсли;
 	КонецЕсли;
-
+	
 	ИмяСкриптаЗапуска = ?(ИмяФайлаЗапуска = Неопределено, ФайлСкрипта.ИмяБезРасширения, ИмяФайлаЗапуска);
 	Установщик = Новый УстановкаПакета;
 	Установщик.СоздатьСкриптЗапуска(ИмяСкриптаЗапуска, ПолноеИмяСкрипта, Каталог);
-
+	
 КонецПроцедуры
 
 Процедура ВывестиСписокПакетов(Знач ЗначенияПараметров)
 
 	ТихийРежим = ЗначенияПараметров["-q"];
-
+	
 	Если ЗначенияПараметров["-remote"] Тогда
 		ТекстСообщения  = СтрШаблон("Пакеты в хабе:");		
 		КэшПакетовВХабе = Новый КэшПакетовХаба();	
 		УстановленныеПакеты =  КэшПакетовВХабе.ПолучитьПакетыХаба();	
 	Иначе	
-	
+		
 		ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");
 		ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);		
-	
+		
 		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
 		УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
 	КонецЕсли;
-
+	
 	Если НЕ ТихийРежим Тогда
-			Сообщить(ТекстСообщения);
+		Сообщить(ТекстСообщения);
 	КонецЕсли;
-
+	
 	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
 		СтрокаСообщения = УстановленныйПакет.Ключ;
 		Если ТипЗнч(УстановленныйПакет.Значение) = Тип("ОписаниеПакета") Тогда
@@ -257,14 +265,14 @@
 КонецПроцедуры
 
 Процедура ВывестиСправкуПоКомандам() Экспорт
-
+	
 	Парсер = Новый ПарсерАргументовКоманднойСтроки;
 	ДобавитьОписанияКоманд(Парсер);
-
+	
 	ВозможныеКоманды = Парсер.СправкаВозможныеКоманды();
 	Сообщить("OneScript Package Manager
 	|Возможные команды:");
-
+	
 	МаксШирина = 0;
 	Поле = "               ";
 	Для Каждого Команда Из ВозможныеКоманды Цикл
@@ -273,27 +281,27 @@
 			МаксШирина = ТекШирина;
 		КонецЕсли;
 	КонецЦикла;
-
+	
 	Для Каждого Команда Из ВозможныеКоманды Цикл
 		Сообщить(" " + Лев(Команда.Команда + Поле, МаксШирина + 2) + "- " + Команда.Пояснение);
 	КонецЦикла;
-
+	
 	Сообщить("Наберите opm help <команда>, чтобы вывести справку по команде");
-
+	
 КонецПроцедуры
 
 Процедура ВывестиСправкуПоКоманде(Знач ИмяКоманды)
-
+	
 	Парсер = Новый ПарсерАргументовКоманднойСтроки;
 	ДобавитьОписанияКоманд(Парсер);
-
+	
 	ВозможныеКоманды = Парсер.СправкаВозможныеКоманды();
 	ОписаниеКоманды = ВозможныеКоманды.Найти(ИмяКоманды, "Команда");
 	Если ОписаниеКоманды = Неопределено Тогда
 		Сообщить("Команда отсуствует: " + ИмяКоманды);
 		Возврат;
 	КонецЕсли;
-
+	
 	Сообщить("" + ОписаниеКоманды.Команда + " - " + ОписаниеКоманды.Пояснение);
 	Сообщить("Параметры:");
 	Для Каждого СтрПараметр Из ОписаниеКоманды.Параметры Цикл
@@ -303,7 +311,7 @@
 			Сообщить(СтрШаблон(" %1 - %2", СтрПараметр.Имя, СтрПараметр.Пояснение));
 		КонецЕсли;
 	КонецЦикла;
-
+	
 КонецПроцедуры
 
 /////////////////////////////////////////////////////////////////////