Рефакторинг для дальнейшей допилки под либу

packagedef

@@ -22,7 +22,7 @@
 
 КонецПроцедуры
 
-ПутьКСценариюКонстант = ОбъединитьПути(ТекущийСценарий().Каталог, "src", "Модули", "КонстантыOpm.os");
+ПутьКСценариюКонстант = ОбъединитьПути(ТекущийСценарий().Каталог, "src/core", "Модули", "КонстантыOpm.os");
 Константы_ЛокальнаяВерсия = ЗагрузитьСценарий(ПутьКСценариюКонстант);
 
 Описание.Имя("opm")

src/opm.os → src/cmd/opm.os

@@ -13,6 +13,7 @@
 ///////////////////////////////////////////////////////////////////////
 
 #Использовать cmdline
+#Использовать "../core"
 #Использовать "."
 
 Перем Лог;

src/Классы/ИсполнительЗадач.os → src/cmd/Классы/ИсполнительЗадач.os

@@ -1,4 +1,5 @@
 #Использовать logos
+#Использовать "../../core"
 
 Перем Лог;
 

src/Классы/КомандаOpm_Config.os → src/cmd/Классы/КомандаOpm_Config.os

@@ -20,6 +20,10 @@
 //   ПараметрыКоманды - Соответствие ключей командной строки и их значений
 //
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
-    НастройкиПриложенияOpm.СохранитьНастройки(ПараметрыКоманды);	
+
+	ПараметрыПриложенияOpm.ЗаполнитьНастройкиИзПараметров(ПараметрыКоманды);
+    ПараметрыПриложенияOpm.СохранитьТекущиеНастройки();	
+
 	Возврат 0;
+
 КонецФункции

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

@@ -25,31 +25,32 @@
 
 Процедура УстановитьПакет(Знач ЗначенияПараметров) Экспорт
 
-	Установщик = Новый УстановкаПакета;
+	РежимУстановки = РежимУстановкиПакетов.Глобально;
+
+	Если ЗначенияПараметров["-l"] = Истина Тогда
+		РежимУстановки = РежимУстановкиПакетов.Локально;
+	КонецЕсли;
 
-	Если ЗначенияПараметров["-l"] Тогда
-		Если ЗначениеЗаполнено(ЗначенияПараметров["-dest"]) Тогда
-			Лог = Логирование.ПолучитьЛог(ПараметрыСистемыOpm.ИмяЛогаСистемы());
-			Лог.Предупреждение("При локальной установке параметр -dest игнорируется");
-		КонецЕсли;
-		Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
-	Иначе
-		Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Глобально);
+	ЦелевойКаталог = Неопределено;
 
-		Если ЗначениеЗаполнено(ЗначенияПараметров["-dest"]) Тогда
-			Установщик.УстановитьЦелевойКаталог(ЗначенияПараметров["-dest"]);
-		КонецЕсли;
+	Если ЗначениеЗаполнено(ЗначенияПараметров["-dest"]) Тогда
+		ЦелевойКаталог = ЗначенияПараметров["-dest"];
+	КонецЕсли;
 
+	Если РежимУстановки = РежимУстановкиПакетов.Локально Тогда
+		Лог = Логирование.ПолучитьЛог(ПараметрыСистемыOpm.ИмяЛогаСистемы());
+		Лог.Предупреждение("При локальной установке параметр -dest игнорируется");
+		ЦелевойКаталог = Неопределено;
 	КонецЕсли;
-	
+
 	Если ЗначенияПараметров["-all"] Тогда
-		Установщик.УстановитьВсеПакетыИзОблака();
+		РаботаСПакетами.УстановитьВсеПакетыИзОблака(РежимУстановки, ЦелевойКаталог);
 	ИначеЕсли ЗначенияПараметров["-f"] = Неопределено И ЗначенияПараметров["ИмяПакета"] = Неопределено Тогда
-		Установщик.УстановитьПакетыПоОписаниюПакета();
+		РаботаСПакетами.УстановитьПакетыПоОписаниюПакета(РежимУстановки, ЦелевойКаталог);
 	ИначеЕсли ЗначенияПараметров["-f"] <> Неопределено Тогда
-		Установщик.УстановитьПакетИзАрхива(ЗначенияПараметров["-f"]);
+		РаботаСПакетами.УстановитьПакетИзФайла(ЗначенияПараметров["-f"], РежимУстановки, ЦелевойКаталог);
 	Иначе
-		Установщик.УстановитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"]);
+		РаботаСПакетами.УстановитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"], РежимУстановки, ЦелевойКаталог);
 	КонецЕсли;
 
 КонецПроцедуры

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

@@ -29,8 +29,8 @@
 
 	Если ЗначенияПараметров["-remote"] Тогда
 		ТекстСообщения  = СтрШаблон("Пакеты в хабе:");		
-		КэшПакетовВХабе = Новый КэшПакетовХаба();	
-		УстановленныеПакеты =  КэшПакетовВХабе.ПолучитьПакетыХаба();	
+		МенеджерПолучения = Новый МенеджерПолученияПакетов();
+		УстановленныеПакеты = МенеджерПолучения.ПолучитьДоступныеПакеты();
 	Иначе	
 
 		ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");

src/Классы/КомандаOpm_Update.os → src/cmd/Классы/КомандаOpm_Update.os

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