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

Author: khorevaa

.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,60 +1,87 @@
-/////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////
 //
-// OneScript Package Manager
-// Установщик пакетов для OneScript
-// Выполняется, как os-приложение в командной строке:
+// CLI-интерфейс для oscript-app
+// 
+//The MIT License (MIT)
+// 
+// Copyright (c) 2016 Andrei Ovsiankin
+// 
+// Permission is hereby granted, free of charge, to any person obtaining a copy
+// of this software and associated documentation files (the "Software"), to deal
+// in the Software without restriction, including without limitation the rights
+// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+// copies of the Software, and to permit persons to whom the Software is
+// furnished to do so, subject to the following conditions:
+// 
+// The above copyright notice and this permission notice shall be included in all
+// copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+// SOFTWARE.
 //
-// opm install my-package.ospx
-//
-/////////////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////////
 
 #Использовать cmdline
-#Использовать logos
-
 #Использовать "."
 
 Перем Лог;
 
-Процедура ВыполнитьКоманду(Знач Аргументы)
-	
-	ОбработкаКоманд = СоздатьОбработчикКоманд();
-	Парсер = Новый ПарсерАргументовКоманднойСтроки();
-	
-	ОбработкаКоманд.ДобавитьОписанияКоманд(Парсер);
-	
-	ПараметрыКоманды = Парсер.РазобратьКоманду(Аргументы);
-	Если ПараметрыКоманды = Неопределено Тогда
-		ВывестиСправкуПоКомандам(ОбработкаКоманд);
-		ЗавершитьРаботу(1);
-	КонецЕсли;
-	
-	Попытка
-		ОбработкаКоманд.ВыполнитьКоманду(ПараметрыКоманды);
-	Исключение
-		Лог.Отладка(ОписаниеОшибки());
-		Лог.Информация(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
-		ЗавершитьРаботу(1);
-	КонецПопытки;
-	
-КонецПроцедуры
+/////////////////////////////////////////////////////////////////////////////////////////
 
-Процедура ВывестиСправкуПоКомандам(Знач ОбработкаКоманд)
-	
-	ОбработкаКоманд.ВывестиСправкуПоКомандам();
+Функция ПолучитьПарсерКоманднойСтроки()
+    
+    Парсер = Новый ПарсерАргументовКоманднойСтроки();
+    
+    МенеджерКомандПриложенияOpm.ЗарегистрироватьКоманды(Парсер);
+    
+    Возврат Парсер;
+    
+КонецФункции
+
+Функция ПолезнаяРабота()
+    ПараметрыЗапуска = РазобратьАргументыКоманднойСтроки();
+    Если ПараметрыЗапуска = Неопределено или ПараметрыЗапуска.Количество() = 0 Тогда
+        Лог.Ошибка("Некорректные аргументы командной строки");
+        МенеджерКомандПриложенияOpm.ПоказатьСправкуПоКомандам();
+        Возврат 1;
+    КонецЕсли;
 
-КонецПроцедуры
+	НастройкиПриложенияOpm.УстановитьФайлНастроек(ОбъединитьПути(СтартовыйСценарий().Каталог, "opm.cfg"));
 
-/////////////////////////////////////////////////////////////////////////
-// Вспомогательные функции
+    Если ТипЗнч(ПараметрыЗапуска) = Тип("Структура") Тогда
+        // это команда
+        Команда            = ПараметрыЗапуска.Команда;
+        ЗначенияПараметров = ПараметрыЗапуска.ЗначенияПараметров;
+    ИначеЕсли ЗначениеЗаполнено(ПараметрыСистемыOpm.ИмяКомандыПоУмолчанию()) Тогда
+        // это команда по-умолчанию
+        Команда            = ПараметрыСистемыOpm.ИмяКомандыПоУмолчанию();
+        ЗначенияПараметров = ПараметрыЗапуска;
+    Иначе
+        ВызватьИсключение "Некорректно настроено имя команды по-умолчанию.";
+    КонецЕсли;
+    
+    Возврат МенеджерКомандПриложенияOpm.ВыполнитьКоманду(Команда, ЗначенияПараметров);
+    
+КонецФункции
 
-Функция СоздатьОбработчикКоманд()
-	Возврат Новый ДиспетчерКомандПриложения();
+Функция РазобратьАргументыКоманднойСтроки()
+    Парсер = ПолучитьПарсерКоманднойСтроки();
+    Возврат Парсер.Разобрать(АргументыКоманднойСтроки);
 КонецФункции
 
 /////////////////////////////////////////////////////////////////////////
-// Точка входа
 
-Лог = Логирование.ПолучитьЛог(Константы.ИмяЛога);
+Лог = Логирование.ПолучитьЛог(ПараметрыСистемыOpm.ИмяЛогаСистемы());
+МенеджерКомандПриложенияOpm.РегистраторКоманд(ПараметрыСистемыOpm);
 
-НастройкиПриложения.УстановитьФайлНастроек(ОбъединитьПути(СтартовыйСценарий().Каталог, "opm.cfg"));
-ВыполнитьКоманду(АргументыКоманднойСтроки);
+Попытка
+    ЗавершитьРаботу(ПолезнаяРабота());
+Исключение
+    Лог.КритичнаяОшибка(ОписаниеОшибки());
+    ЗавершитьРаботу(255);
+КонецПопытки;