Merge pull request #98 from khorevaa/feature/ref

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

Author: nixel2007

packagedef

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

src/opm.os src/cmd/opm.ossrc/opm.os renamed to src/cmd/opm.os

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

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

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

src/Классы/КомандаOpm_App.os src/cmd/Классы/КомандаOpm_App.ossrc/Классы/КомандаOpm_App.os renamed to src/cmd/Классы/КомандаOpm_App.os

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

src/Классы/КомандаOpm_Build.os src/cmd/Классы/КомандаOpm_Build.ossrc/Классы/КомандаOpm_Build.os renamed to src/cmd/Классы/КомандаOpm_Build.os

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

src/Классы/КомандаOpm_Config.os src/cmd/Классы/КомандаOpm_Config.ossrc/Классы/КомандаOpm_Config.os renamed to src/cmd/Классы/КомандаOpm_Config.os

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