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);
+КонецПопытки;