Merge pull request #57 from Khorevaa/feature/ref-app

Рефакторинг под app-template #52

Author: EvilBeaver

.gitignore

@@ -1 +1,2 @@
 oscript_modules/
+test-reports/

packagedef

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

src/opm.os

@@ -1,61 +1,73 @@
-/////////////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////////////
 //
 // OneScript Package Manager
 // Установщик пакетов для OneScript
 // Выполняется, как os-приложение в командной строке:
 //
 // opm install my-package.ospx
 //
-/////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////
+//
+// CLI-интерфейс для oscript-app
+// 
+///////////////////////////////////////////////////////////////////////
 
 #Использовать cmdline
-#Использовать logos
-
 #Использовать "."
 
 Перем Лог;
 
-Процедура ВыполнитьКоманду(Знач Аргументы)
-	
-	ОбработкаКоманд = СоздатьОбработчикКоманд();
-	Парсер = Новый ПарсерАргументовКоманднойСтроки();
-	
-	ОбработкаКоманд.ДобавитьОписанияКоманд(Парсер);
-	
-	ПараметрыКоманды = Парсер.РазобратьКоманду(Аргументы);
-	Если ПараметрыКоманды = Неопределено Тогда
-		ВывестиСправкуПоКомандам(ОбработкаКоманд);
-		ЗавершитьРаботу(1);
-	КонецЕсли;
-	
-	Попытка
-		ОбработкаКоманд.ВыполнитьКоманду(ПараметрыКоманды);
-	Исключение
-		Лог.Отладка(ОписаниеОшибки());
-		Лог.Информация(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
-		ЗавершитьРаботу(1);
-	КонецПопытки;
-	
-КонецПроцедуры
+/////////////////////////////////////////////////////////////////////////////////////////
 
-Процедура ВывестиСправкуПоКомандам(Знач ОбработкаКоманд)
-	
-	ОбработкаКоманд.ВывестиСправкуПоКомандам();
-	
-КонецПроцедуры
+Функция ПолучитьПарсерКоманднойСтроки()
+    
+    Парсер = Новый ПарсерАргументовКоманднойСтроки();
+    
+    МенеджерКомандПриложенияOpm.ЗарегистрироватьКоманды(Парсер);
+    
+    Возврат Парсер;
+    
+КонецФункции
 
-/////////////////////////////////////////////////////////////////////////
-// Вспомогательные функции
+Функция ПолезнаяРабота()
+    ПараметрыЗапуска = РазобратьАргументыКоманднойСтроки();
+    Если ПараметрыЗапуска = Неопределено или ПараметрыЗапуска.Количество() = 0 Тогда
+        Лог.Ошибка("Некорректные аргументы командной строки");
+        МенеджерКомандПриложенияOpm.ПоказатьСправкуПоКомандам();
+        Возврат 1;
+    КонецЕсли;
+	
+	НастройкиПриложенияOpm.УстановитьФайлНастроек(ОбъединитьПути(СтартовыйСценарий().Каталог, "opm.cfg"));
 
-Функция СоздатьОбработчикКоманд()
-	Возврат Новый ДиспетчерКомандПриложения();
+    Если ТипЗнч(ПараметрыЗапуска) = Тип("Структура") Тогда
+        // это команда
+        Команда            = ПараметрыЗапуска.Команда;
+        ЗначенияПараметров = ПараметрыЗапуска.ЗначенияПараметров;
+    ИначеЕсли ЗначениеЗаполнено(ПараметрыСистемыOpm.ИмяКомандыПоУмолчанию()) Тогда
+        // это команда по-умолчанию
+        Команда            = ПараметрыСистемыOpm.ИмяКомандыПоУмолчанию();
+        ЗначенияПараметров = ПараметрыЗапуска;
+    Иначе
+        ВызватьИсключение "Некорректно настроено имя команды по-умолчанию.";
+    КонецЕсли;
+    
+    Возврат МенеджерКомандПриложенияOpm.ВыполнитьКоманду(Команда, ЗначенияПараметров);
+    
 КонецФункции
 
+Функция РазобратьАргументыКоманднойСтроки()
+    Парсер = ПолучитьПарсерКоманднойСтроки();
+    Возврат Парсер.Разобрать(АргументыКоманднойСтроки);
+КонецФункции
 
 /////////////////////////////////////////////////////////////////////////
-// Точка входа
 
-Лог = Логирование.ПолучитьЛог(Константы.ИмяЛога);
-НастройкиПриложения.УстановитьФайлНастроек(ОбъединитьПути(СтартовыйСценарий().Каталог, "opm.cfg"));
+Лог = Логирование.ПолучитьЛог(ПараметрыСистемыOpm.ИмяЛогаСистемы());
+МенеджерКомандПриложенияOpm.РегистраторКоманд(ПараметрыСистемыOpm);
 
-ВыполнитьКоманду(АргументыКоманднойСтроки);
+Попытка
+    ЗавершитьРаботу(ПолезнаяРабота());
+Исключение
+    Лог.КритичнаяОшибка(ОписаниеОшибки());
+    ЗавершитьРаботу(255);
+КонецПопытки;