fix: Нормализация пути к контроллерам. Установка тек. кталога.

Author: Stivo182

src/cmd/main.os

@@ -1,10 +1,14 @@
 #Использовать autumn
 #Использовать autumn-cli
+#Использовать fs
 #Использовать "."
 #Использовать "../internal"
 
 ПодключательКастомныхКонтроллеров = Новый ПодключательКастомныхКонтроллеров();
 ПодключательКастомныхКонтроллеров.НайтиИПодключить();
 
+ТекущийКаталог = ФС.НормализоватьПуть(ОбъединитьПути(ТекущийСценарий().Каталог, "../.."));
+УстановитьТекущийКаталог(ТекущийКаталог);
+
 Поделка = Новый Поделка;
 Поделка.ЗапуститьПриложение();

src/core/Классы/HttpBin.os

@@ -207,7 +207,7 @@
 //   ЭтотОбъект - Для возможности цепочки вызовов
 //
 Функция УстановитьРасположениеКонтроллеров(Расположение) Экспорт
-	_РасположениеКонтроллеров = Расположение;
+	_РасположениеКонтроллеров = ФС.НормализоватьПуть(Расположение);
 	Возврат ЭтотОбъект;
 КонецФункции
 

src/internal/Классы/ПодключательКастомныхКонтроллеров.os

@@ -10,12 +10,14 @@
 
 	Для Каждого ПолноеИмя Из МассивФайлов Цикл
 
-		Если ФС.КаталогСуществует(ПолноеИмя) Тогда
-			ПодключитьИзКаталога(ПолноеИмя);
-		ИначеЕсли ФС.ФайлСуществует(ПолноеИмя) Тогда
-			Подключить(ПолноеИмя);
+		Путь = ФС.НормализоватьПуть(ПолноеИмя);
+
+		Если ФС.КаталогСуществует(Путь) Тогда
+			ПодключитьИзКаталога(Путь);
+		ИначеЕсли ФС.ФайлСуществует(Путь) Тогда
+			Подключить(Путь);
 		Иначе
-			ВызватьИсключение СтрШаблон("Не удалось подключить контроллер '%1': файл не существует", ПолноеИмя);
+			ВызватьИсключение СтрШаблон("Не удалось подключить контроллер '%1': файл или каталог не существует", ПолноеИмя);
 		КонецЕсли;
 
 	КонецЦикла;