Merge branch 'release/v1.8.1'

Author: nixel2007

packagedef

@@ -1,13 +1,13 @@
 
 Описание.Имя("v8runner")
-		.Версия("1.8.0")
+		.Версия("1.8.1")
 		.ВерсияСреды("1.0.19")
 		.ЗависитОт("asserts", "1.3.0")
 		.ЗависитОт("fs", "1.0.0")
 		.ЗависитОт("logos", "1.3.0")
 		.ЗависитОт("tempfiles", "1.0.0")
 		.ЗависитОт("strings", "0.4.1")
-		.ЗависитОт("v8find", "0.1.5")
+		.ЗависитОт("v8find", "0.2.0")
 		.ЗависитОт("1commands", "1.5.0")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")

src/v8runner.os

@@ -1599,6 +1599,49 @@
 
 КонецФункции
 
+// Функция - Возвращает путь к каталогу с конфигурационными файлами 1С 
+//
+// Параметры:
+//  ПутьКПлатформе1С     - Строка - Полный путь к платформе 1С, 
+//                 					например, C:\Program Files\1cv8\8.3.17.1386\bin\1cv8.exe
+//  ПутьКОбщимНастройкам - Булево - Если требуется получить путь к каталогу с общими настройками - Истина.
+//									Если путь к каталогу определенной версии - Ложь, по умолчанию - Истина.	
+//
+// Возвращаемое значение:
+//   Строка - Полный пути к каталогу содержащему конфигурационные файлы платформы, например, C:\Program Files\1cv8\conf
+//
+Функция КаталогКонфигурационныхФайлов1С(Знач ПутьКПлатформе1С = "", Знач ПутьКОбщимНастройкам = Истина) Экспорт
+	
+	Лог.Отладка("КаталогКонфигурационныхФайлов1С: Путь платформы 1С <"+ ПутьКПлатформе1С + ">");
+	Если ПутьКПлатформе1С = "" Тогда
+		ПутьКПлатформе1С = ПутьКПлатформе1С();
+		Лог.Отладка("КаталогКонфигурационныхФайлов1С: вычислили Путь платформы 1С <"+ ПутьКПлатформе1С + ">");
+	КонецЕсли;
+
+	КаталогНаДиске = Новый Файл(ПутьКПлатформе1С);
+	Если Не КаталогНаДиске.Существует() Тогда
+		ВызватьИсключение "Не существует установленной платформы 1С по пути: " + ПутьКПлатформе1С;
+	КонецЕсли;	
+
+	ВерсияПлатформы = "";
+	ШаблонВерсии = Новый РегулярноеВыражение("8(\.\d+){3}");
+	ВсеСовпадения = ШаблонВерсии.НайтиСовпадения(ПутьКПлатформе1С);
+	Если ВсеСовпадения.Количество() <> 0 Тогда
+		ВерсияПлатформы = ВсеСовпадения[ВсеСовпадения.Количество()-1].Значение;
+	КонецЕсли;
+
+	ВидПути = ?(ПутьКОбщимНастройкам, "(Общий)", "(Для текущей версии)");
+	Если ПутьКОбщимНастройкам Тогда
+		КаталогКонфигурационныхФайлов1С = СтрЗаменить(ПутьКПлатформе1С, "\" + ВерсияПлатформы + "\bin\1cv8.exe", "\conf");
+	Иначе
+		КаталогКонфигурационныхФайлов1С = СтрЗаменить(ПутьКПлатформе1С, "\1cv8.exe", "\conf");
+	КонецЕсли;	
+	Лог.Отладка("КаталогКонфигурационныхФайлов1С: получили путь конфигурационных файлов 1С " + ВидПути + " <" + КаталогКонфигурационныхФайлов1С + ">");
+
+	Возврат КаталогКонфигурационныхФайлов1С;
+
+КонецФункции
+
 //  Установка файла для вывода служебных сообщений. Если задан параметр ОчищатьФайл=Ложь, файл не очищается.
 //
 // Параметры:
@@ -2145,8 +2188,13 @@
 	мКонтекстКоманды.Вставить("КодЯзыка", "");
 	мКонтекстКоманды.Вставить("КодЯзыкаСеанса", "");
 
-
-	ПутьКПлатформе1С(ПолучитьПутьКВерсииПлатформы("8.3", РазрядностьПлатформы.x64x86));
+	Лог.Отладка("Ищу платформу " + ВерсияПлатформы);
+	ПутьКПлатформе1С(ПолучитьПутьКВерсииПлатформы(ВерсияПлатформы, РазрядностьПлатформы.x64x86));
+	Если Не ПустаяСтрока(мПутьКПлатформе1С) Тогда
+		Лог.Отладка("Использую платформу " + мПутьКПлатформе1С);
+	Иначе
+		Лог.Ошибка("Не найдена платформа " + ВерсияПлатформы);
+	КонецЕсли;
 
 	мОчищатьФайлИнформации = Истина;
 	мФайлИнформацииВнешний = Ложь;