Merge branch 'develop'

Author: EvilBeaver

.vscode/tasks.json

@@ -11,15 +11,14 @@
     "_runner": "terminal",
     "windows": {
         "command": "cmd",
-        "args": ["/c", "chcp 65001 ;"]
+        "args": ["/c", "chcp", "65001", ";"]
     },
     "linux": {
         "command": "sh",
         "args": ["-c"]
     },
     "isShellCommand": true,
     // "showOutput": "silent",
-    "_runner": "terminal",
     "tasks": [
         {
             "taskName": "Testing project",

packagedef

@@ -1,10 +1,10 @@
 
 Описание.Имя("logos")
-		.Версия("1.0.2")
+		.Версия("1.1")
 		.ЗависитОт("asserts", "0.4.0")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ВключитьФайл("lib.config")
-		.ВерсияСреды("1.0.17")
+		.ВерсияСреды("1.0.20")
 
 // vim: filetype=onescript

src/console-appender.os

@@ -4,9 +4,11 @@
 //
 //////////////////////////////////////////////////////////////////////////
 
-Процедура Вывести(Знач Сообщение) Экспорт
+Перем КартаСтатусовИУровней;
+
+Процедура Вывести(Знач Сообщение, УровеньСообщения) Экспорт
 
-	Сообщить(Сообщение);
+	Сообщить(Сообщение, КартаСтатусовИУровней[УровеньСообщения]);
 
 КонецПроцедуры
 
@@ -19,3 +21,10 @@
 Процедура УстановитьСвойство(Знач ИмяСвойства, Знач Значение) Экспорт
 
 КонецПроцедуры // УстановитьСвойство()
+
+КартаСтатусовИУровней = Новый Соответствие;
+КартаСтатусовИУровней.Вставить(УровниЛога.Отладка, СтатусСообщения.БезСтатуса);
+КартаСтатусовИУровней.Вставить(УровниЛога.Информация, СтатусСообщения.Обычное);
+КартаСтатусовИУровней.Вставить(УровниЛога.Предупреждение, СтатусСообщения.Внимание);
+КартаСтатусовИУровней.Вставить(УровниЛога.Ошибка, СтатусСообщения.Важное);
+КартаСтатусовИУровней.Вставить(УровниЛога.КритичнаяОшибка, СтатусСообщения.ОченьВажное);

src/file-appender.os

@@ -10,7 +10,7 @@
 	мФайлЛога = Новый ЗаписьТекста(Путь, Кодировка,,Добавлять);
 КонецПроцедуры
 
-Процедура Вывести(Знач Сообщение) Экспорт
+Процедура Вывести(Знач Сообщение, Знач УровеньСообщения) Экспорт
 	ПроверитьИнициализацию();
 	мФайлЛога.ЗаписатьСтроку(Сообщение);
 КонецПроцедуры
@@ -29,8 +29,8 @@
 	КонецЕсли;
 КонецПроцедуры // УстановитьСвойство()
 
-Функция ПроверитьИнициализацию()
+Процедура ПроверитьИнициализацию()
 	Если мФайлЛога = Неопределено Тогда
 		ВызватьИсключение "Не открыт файл лога";
 	КонецЕсли;
-КонецФункции
+КонецПроцедуры

src/log.os

@@ -68,12 +68,30 @@
 	НастройкаСпособаВывода = НоваяНастройкаСпособаВывода(НовыйУровень, ЗаданЯвно);
 	мУровниАппендеров[СпособВывода] = НастройкаСпособаВывода;
 
+	ПроверитьПоддержкуAPIВывести(СпособВывода, НастройкаСпособаВывода);
+
+КонецПроцедуры
+
+Процедура ПроверитьПоддержкуAPIВывести(СпособВывода, НастройкаСпособаВывода)
+	Рефлектор = Новый Рефлектор;
+	Методы = Рефлектор.ПолучитьТаблицуМетодов(СпособВывода);
+	МетодВывести = Методы.Найти("Вывести");
+	Если МетодВывести <> Неопределено Тогда
+		Если МетодВывести.КоличествоПараметров = 2 Тогда
+			НастройкаСпособаВывода.ВерсияAPI = 2;
+		Иначе
+			Сообщить("Число параметров:" + МетодВывести.КоличествоПараметров);
+			СпособВывода.Вывести("Метод Вывести должен иметь 2 параметра.
+			|В будущих версиях logos данный способ вывода перестанет работать.");
+		КонецЕсли;
+	КонецЕсли;
 КонецПроцедуры
 
 Процедура УдалитьСпособВывода(Знач СпособВывода) Экспорт
 
 	Для Сч = 0 По мСпособыВывода.Количество()-1 Цикл
 		Если мСпособыВывода[Сч] = СпособВывода Тогда
+			мУровниАппендеров.Удалить(СпособВывода);
 			СпособВывода.Закрыть();
 			мСпособыВывода.Удалить(Сч);
 			Прервать;
@@ -155,9 +173,14 @@
 	Если УровеньСообщения >= Уровень() Тогда
 		ВыводимоеСообщение = мРаскладкаСообщения.Форматировать(УровеньСообщения, Сообщение);
 		Для Каждого СпособВывода Из мСпособыВывода Цикл
-			УровеньСпособаВывода = мУровниАппендеров[СпособВывода].Уровень;
+			НастройкаАппендера = мУровниАппендеров[СпособВывода];
+			УровеньСпособаВывода = НастройкаАппендера.Уровень;
 			Если УровеньСпособаВывода = Неопределено Или УровеньСообщения >= УровеньСпособаВывода Тогда
-				СпособВывода.Вывести(ВыводимоеСообщение);
+				Если НастройкаАппендера.ВерсияAPI = 2 Тогда
+					СпособВывода.Вывести(ВыводимоеСообщение, УровеньСообщения);
+				Иначе
+					СпособВывода.Вывести(ВыводимоеСообщение);
+				КонецЕсли;
 			КонецЕсли;
 		КонецЦикла;
 	КонецЕсли;
@@ -210,13 +233,14 @@
 
 	ВыводПоУмолчанию = Новый ВыводЛогаВКонсоль();
 	мСпособыВывода.Добавить(ВыводПоУмолчанию);
-	мУровниАппендеров[ВыводПоУмолчанию] = НоваяНастройкаСпособаВывода(Уровень(), Ложь);
-
+	НастройкаСпособаВывода = НоваяНастройкаСпособаВывода(Уровень(), Ложь);
+	мУровниАппендеров[ВыводПоУмолчанию] = НастройкаСпособаВывода;
+	
 КонецПроцедуры
 
 Функция НоваяНастройкаСпособаВывода(Знач НовыйУровень, Знач ЗаданЯвно)
 
-	НастройкаСпособаВывода = Новый Структура("Уровень, ЗаданЯвно", НовыйУровень, ЗаданЯвно);
+	НастройкаСпособаВывода = Новый Структура("Уровень, ЗаданЯвно, ВерсияAPI", НовыйУровень, ЗаданЯвно, Неопределено);
 	Возврат НастройкаСпособаВывода;
 
 КонецФункции

tests/fixtures/appender-debug.os

@@ -7,7 +7,7 @@
 ////////////////////////////
 // Методы аппендера
 
-Процедура Вывести(Знач Сообщение) Экспорт
+Процедура Вывести(Знач Сообщение, Знач УровеньВывода) Экспорт
 	мСообщенияЛога.Добавить(Сообщение);
 КонецПроцедуры
 

tests/logos-test.os

@@ -247,7 +247,7 @@
 КонецПроцедуры
 
 Процедура ДобавитьСебяКакОбработчикаВывода(Знач НовыйУровень = Неопределено)
-
+	
 	мСообщенияЛога = Новый Массив;
 	Лог.ДобавитьСпособВывода(ЭтотОбъект, НовыйУровень);
 
@@ -467,7 +467,7 @@
 ////////////////////////////
 // Методы аппендера
 
-Процедура Вывести(Знач Сообщение) Экспорт
+Процедура Вывести(Знач Сообщение, УровеньСообщения) Экспорт
 	мСообщенияЛога.Добавить(Сообщение);
 КонецПроцедуры