Finish 0.9.1

# Conflicts:
#	src/core/Классы/cmd/КомандаПриложения.os

Author: khorevaa

features/.gitleep features/.gitkeepfeatures/.gitleep renamed to features/.gitkeep

@@ -60,7 +60,7 @@
 
 
 Описание.Имя("cli")
-        .Версия("0.9.0")
+        .Версия("0.9.1")
         .Автор("Khorev Aleksey")
         .АдресАвтора("khorevaa@gmail.com")
         .Описание("Данный пакет облегчает создание консольных приложений на Oscript")

packagedef

@@ -64,6 +64,9 @@
 
 	РефлекторПроверкиКоманд = Новый Рефлектор;
 
+	ДействиеПередВыполнением = Неопределено;
+	ДействиеПослеВыполнения = Неопределено;
+
 	УстановитьДействиеВыполнения(КлассРеализацииКоманды);
 	УстановитьДействиеПередВыполнением(КлассРеализацииКоманды);
 	УстановитьДействиеПослеВыполнения(КлассРеализацииКоманды);
@@ -98,6 +101,8 @@
 
 Функция ПередВыполнениемКоманды(Знач Команда) Экспорт
 
+	Лог.Отладка("Выполнение метода <ПередВыполнениемКоманды>");
+	Лог.Отладка("Необходимо вывести версию <%1>", Команда.Приложение.ФлагВерсия.Значение);
 	Если Команда.Приложение.ФлагВерсия.Значение Тогда
 
 		ВывестиВерсию();
@@ -107,6 +112,10 @@
 
 КонецФункции
 
+Функция ПослеВыполненияКоманды(Знач Команда) Экспорт
+
+КонецФункции
+
 Процедура ВывестиВерсию()
 
 	Сообщить(Приложение.ВерсияПриложения);
@@ -146,8 +155,14 @@
 	КонецЕсли;
 
 	Если КонечныйИндексКоманды = АргументыCLI.ВГраница() Тогда
+		
+		ДействиеПередВыполнением.Исполнить(ЭтотОбъект);
+		
 		Лог.Отладка("Выполняю полезную работу %1", Имя);
 		ДействиеВыполнения.Исполнить(ЭтотОбъект);
+		
+		ДействиеПослеВыполнения.Исполнить(ЭтотОбъект);
+		
 		Возврат;
 	КонецЕсли;
 
@@ -177,7 +192,7 @@
 
 	КонецЦикла;
 
-
+	
 	Если СтрНачинаетсяС(ПервыйАргумент,"-") Тогда
 		ВывестиСправку();
 		ВызватьИсключение "Не известна опция";
@@ -192,8 +207,8 @@
 
 Процедура УстановитьДействиеВыполнения(КлассРеализации, ИмяПроцедуры = "ВыполнитьКоманду") Экспорт
 
-	Если ПроверитьМетодВыполнитьКоманду(КлассРеализации) Тогда
-		ВызватьИсключение СтрШаблон("У класса <%1> не задан обязательный метод: ВыполнитьКоманду", КлассРеализации);
+	Если ПроверитьМетодВыполнитьКоманду(КлассРеализации, ИмяПроцедуры) Тогда
+		ВызватьИсключение СтрШаблон("У класса <%1> не задан обязательный метод <%2>", КлассРеализации, ИмяПроцедуры);
 	КонецЕсли;
 
 	ДействиеВыполнения = Делегаты.Создать(КлассРеализации, ИмяПроцедуры);
@@ -202,26 +217,34 @@
 
 Процедура УстановитьДействиеПередВыполнением(КлассРеализации, ИмяПроцедуры = "ПередВыполнениемКоманды") Экспорт
 
-	Если ПроверитьМетодПередВыполнениемКоманды(КлассРеализации) Тогда
-
+	Лог.Отладка("Установка метода: перед выполнением класс <%1> имя процедуры <%2>", КлассРеализации, ИмяПроцедуры);
+	
+	Если НЕ ПроверитьМетодПередВыполнениемКоманды(КлассРеализации, ИмяПроцедуры) Тогда
+		Лог.Отладка(" >> метод %2 у класс <%1> найден", КлассРеализации, ИмяПроцедуры);
+	
 		ДействиеПередВыполнением = Делегаты.Создать(КлассРеализации, ИмяПроцедуры);
 
 	ИначеЕсли ДействиеПередВыполнением = Неопределено Тогда
 
+		Лог.Отладка("Установлен метод перед выполнением в текущий класс");
 		ДействиеПередВыполнением = Делегаты.Создать(ЭтотОбъект, ИмяПроцедуры);
-
 	КонецЕсли;
 
 КонецПроцедуры
 
-Процедура УстановитьДействиеПослеВыполнения(КлассРеализации, ИмяПроцедуры = "ПослеВыполнениемКоманды") Экспорт
+Процедура УстановитьДействиеПослеВыполнения(КлассРеализации, ИмяПроцедуры = "ПослеВыполненияКоманды") Экспорт
 
-	Если ПроверитьМетодПослеВыполнениемКоманды(КлассРеализации) Тогда
+	Лог.Отладка("Установка метода: после выполнением класс <%1> имя процедуры <%2>", КлассРеализации, ИмяПроцедуры);
 
+	Если НЕ ПроверитьМетодПослеВыполнениемКоманды(КлассРеализации, ИмяПроцедуры) Тогда
+
+		Лог.Отладка(" >> метод %2 у класс <%1> найден", КлассРеализации, ИмяПроцедуры);
+	
 		ДействиеПослеВыполнения = Делегаты.Создать(КлассРеализации, ИмяПроцедуры);
 
-	ИначеЕсли ДействиеПередВыполнением = Неопределено Тогда
+	ИначеЕсли ДействиеПослеВыполнения = Неопределено Тогда
 
+		Лог.Отладка("Установлен метод после выполнением в текущий класс");
 		ДействиеПослеВыполнения = Делегаты.Создать(ЭтотОбъект, ИмяПроцедуры);
 
 	КонецЕсли;
@@ -629,7 +652,7 @@
 
 Функция ВыполнитьОписаниеКоманды(КлассКоманды, Подкоманда)
 
-	Если Не ПроверитьМетодОписаниеКоманды(КлассКоманды) Тогда
+	Если ПроверитьМетодОписаниеКоманды(КлассКоманды) Тогда
 		Возврат Подкоманда;
 	КонецЕсли;
 
@@ -644,27 +667,27 @@
 КонецФункции
 
 
-Функция ПроверитьМетодВыполнитьКоманду(ПроверяемыйКласс)
+Функция ПроверитьМетодВыполнитьКоманду(ПроверяемыйКласс, ИмяПроцедуры)
 
-	Возврат ПроверитьМетодКласса(ПроверяемыйКласс, "ВыполнитьКоманду", 1, Ложь);
+	Возврат НЕ ПроверитьМетодКласса(ПроверяемыйКласс, ИмяПроцедуры , 1, Ложь);
 
 КонецФункции
 
-Функция ПроверитьМетодПередВыполнениемКоманды(ПроверяемыйКласс)
+Функция ПроверитьМетодПередВыполнениемКоманды(ПроверяемыйКласс, ИмяПроцедуры)
 
-	Возврат ПроверитьМетодКласса(ПроверяемыйКласс, "ПередВыполнениемКоманды", 1, Ложь);
+	Возврат НЕ ПроверитьМетодКласса(ПроверяемыйКласс, ИмяПроцедуры, 1, Ложь);
 
 КонецФункции
 
-Функция ПроверитьМетодПослеВыполнениемКоманды(ПроверяемыйКласс)
+Функция ПроверитьМетодПослеВыполнениемКоманды(ПроверяемыйКласс, ИмяПроцедуры)
 
-	Возврат ПроверитьМетодКласса(ПроверяемыйКласс, "ПослеВыполнениемКоманды", 1, Ложь);
+	Возврат НЕ ПроверитьМетодКласса(ПроверяемыйКласс, ИмяПроцедуры, 1, Ложь);
 
 КонецФункции
 
 Функция ПроверитьМетодОписаниеКоманды(ПроверяемыйКласс)
 
-	Возврат ПроверитьМетодКласса(ПроверяемыйКласс, "ОписаниеКоманды", 1, Ложь);
+	Возврат НЕ ПроверитьМетодКласса(ПроверяемыйКласс, "ОписаниеКоманды", 1, Ложь);
 
 КонецФункции
 
@@ -694,22 +717,24 @@
 	Знач ТребуемоеКоличествоПараметров = 0,
 	Знач ЭтоФункция = Ложь)
 
-
 	ЕстьМетод = РефлекторПроверкиКоманд.МетодСуществует(ПроверяемыйКласс, ИмяМетода);
-
+	Лог.Отладка("Проверяемый метод <%1> найден: %2", ИмяМетода, ЕстьМетод);
 	Если Не ЕстьМетод Тогда
 		Возврат Ложь;
 	КонецЕсли;
 
 	ТаблицаМетодов = РефлекторПроверкиКоманд.ПолучитьТаблицуМетодов(ПроверяемыйКласс);
+
 	СтрокаМетода = ТаблицаМетодов.Найти(ИмяМетода, "Имя");
+	Лог.Отладка("Поиск строки в таблице методов класса <%1> найдена: %2, общее количество методов класса: %3", ПроверяемыйКласс, НЕ СтрокаМетода = Неопределено, ТаблицаМетодов.Количество());
 	Если СтрокаМетода = Неопределено Тогда
 		Возврат Ложь;
 	КонецЕсли;
 
 	ПроверкаНаФункцию = ЭтоФункция = СтрокаМетода.ЭтоФункция;
 	ПроверкаНаКоличествоПараметров = ТребуемоеКоличествоПараметров = СтрокаМетода.КоличествоПараметров;
-
+	
+	Лог.Отладка("Проверяемый метод <%1> корректен: %2", ИмяМетода, ПроверкаНаФункцию И ПроверкаНаКоличествоПараметров);
 	Возврат ПроверкаНаФункцию
 		И ПроверкаНаКоличествоПараметров;
 

src/core/Классы/cmd/КомандаПриложения.os

@@ -11,11 +11,16 @@
 
 Перем ТипОпцииКоманды;
 
-Процедура ПриСозданииОбъекта(Знач Наименование, Знач Описание)
+Процедура ПриСозданииОбъекта(Знач Наименование, Знач Описание, Знач КлассРеализацииОсновныйКоманды = Неопределено)
 
 	НаименованиеПриложения = Наименование;
 	ОписаниеПриложения = Описание;
-	Команда = Новый КомандаПриложения(Наименование, Описание, ЭтотОбъект, ЭтотОбъект);
+
+	Если КлассРеализацииОсновныйКоманды = Неопределено Тогда
+		КлассРеализацииОсновныйКоманды = ЭтотОбъект;
+	КонецЕсли;
+
+	Команда = Новый КомандаПриложения(Наименование, Описание, КлассРеализацииОсновныйКоманды, ЭтотОбъект);
 
 	ТипОпцииКоманды = Новый Структура;
 	ТипОпцииКоманды.Вставить("Опция", "Опция");
@@ -65,6 +70,14 @@
 
 КонецФункции
 
+Процедура ВыполнитьКоманду(Знач Команда) Экспорт
+
+	Сообщить("Не корректное использование"+ Символы.ПС);
+	Команда.ВывестиСправку();
+	ЗавершитьРаботу(1);
+
+КонецПроцедуры
+
 Функция Аргумент(Имя, Значение = "", Описание = "") Экспорт
 
 	НовыйАргумент = Новый АргументКоманды(Имя, Значение, Описание);