Много изменений по замечаниям.

Author: khorevaa

src/core/Классы/КомандаAll.os

@@ -60,7 +60,7 @@
 
 	КонецЕсли;
 
-	Контроллер = ЗагрузитьСценарий(ОбъединитьПути(КаталогRoot, "multi-controller.os"));
+	Контроллер = Новый КонтроллерПакетнойСинхронизации;
 
 	Пока Истина Цикл
 

src/multi-controller.os …лассы/КонтроллерПакетнойСинхронизации.ossrc/multi-controller.os renamed to src/core/Классы/КонтроллерПакетнойСинхронизации.os src/multi-controller.os renamed to src/core/Классы/КонтроллерПакетнойСинхронизации.os

@@ -6,13 +6,13 @@
 ////////////////////////////////////////////////////////////////////////////
 
 #Использовать cmdline
-#Использовать "core"
 
 Перем мПараметрыКоманды;
 Перем мДополнительныеПараметры;
 Перем мНастройки;
 Перем мФлагПринудительнойСинхронизации;
 
+
 ////////////////////////////////////////////////////////////////////////
 // Программный интерфейс
 
@@ -49,14 +49,16 @@
 
 Процедура ПрочитатьНастройкиИзФайлаXML(Знач ФайлНастроек)
 
-		Конфиг = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "xml-config.os"));
+		Конфиг = Новый ЧтениеКонфигаXMLПакетнойСинхронизации;
+		Конфиг.СоответствиеКлючамИПараметра = СоответствиеКлючамИПараметра();
 		мНастройки = Конфиг.ПрочитатьНастройкиИзФайла(ФайлНастроек);
 
 КонецПроцедуры
 
 Процедура ПрочитатьНастройкиИзФайлаJSON(Знач ФайлНастроек)
 
-		Конфиг = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "json-config.os"));
+		Конфиг = Новый ЧтениеКонфигаJSONПакетнойСинхронизации;
+		Конфиг.СоответствиеКлючамИПараметра = СоответствиеКлючамИПараметра();
 		мНастройки = Конфиг.ПрочитатьНастройкиИзФайла(ФайлНастроек);
 
 КонецПроцедуры
@@ -78,6 +80,10 @@
 КонецПроцедуры
 
 Функция ПреобразоватьЗначениеКБулево(ЗначениеПараметра)
+	Если ТипЗнч(ЗначениеПараметра) = Тип("Булево") Тогда
+		Возврат ЗначениеПараметра;
+	КонецЕсли;
+	
 	Если ЗначениеПараметра = "on" Тогда
 		Возврат Истина;
 	ИначеЕсли ЗначениеПараметра = "off" Тогда
@@ -127,3 +133,24 @@
 Функция ИмяФайлаБазыХранилища(Знач Каталог)
 	Возврат ОбъединитьПути(Каталог, "1cv8ddb.1CD");
 КонецФункции
+
+Функция СоответствиеКлючамИПараметра() Экспорт
+	
+	СоответствиеКлючамИПараметра = Новый Соответствие();
+	СоответствиеКлючамИПараметра.Вставить("git-local-path", "КаталогВыгрузки");
+	СоответствиеКлючамИПараметра.Вставить("git-remote", "GitURL");
+	СоответствиеКлючамИПараметра.Вставить("name", "Имя");
+	СоответствиеКлючамИПараметра.Вставить("v8-storage-dir", "КаталогХранилища1С");
+	СоответствиеКлючамИПараметра.Вставить("email-domain", "ДоменПочтыДляGit");
+	СоответствиеКлючамИПараметра.Вставить("v8-version", "ПутьКПлатформе83");
+	СоответствиеКлючамИПараметра.Вставить("git-executable", "ПутьGit");
+	СоответствиеКлючамИПараметра.Вставить("push-every-n-commits", "КоличествоКоммитовДоPush");
+	СоответствиеКлючамИПараметра.Вставить("check-authors", "ПроверитьАвторовХранилища");
+	СоответствиеКлючамИПараметра.Вставить("stop-if-empty-comment", "ПрерватьВыполнениеБезКомментарияКВерсии");
+	СоответствиеКлючамИПараметра.Вставить("auto-set-tags", "АвтоматическаяУстановкаТэговПоВерсиям");
+	СоответствиеКлючамИПараметра.Вставить("process-fatform-modules", "ПереименовыватьФайлМодуляОбычнойФормы");
+		
+	Возврат СоответствиеКлючамИПараметра;
+
+КонецФункции
+

src/json-config.os …тениеКонфигаJSONПакетнойСинхронизации.ossrc/json-config.os renamed to src/core/Классы/ЧтениеКонфигаJSONПакетнойСинхронизации.os src/json-config.os renamed to src/core/Классы/ЧтениеКонфигаJSONПакетнойСинхронизации.os

@@ -2,6 +2,7 @@
 #Использовать json
 
 Перем мНастройки;
+Перем СоответствиеКлючамИПараметра Экспорт;
 
 Функция ПрочитатьФайл(Знач ИмяФайла)
 	ФайлСуществующий = Новый Файл(ИмяФайла);
@@ -29,19 +30,12 @@
 	ГлобальныеНастройки = ВсеНастройки["global"];
 
 	Для Каждого КлючИЗначение Из ГлобальныеНастройки Цикл
+		Ключ = СоответствиеКлючамИПараметра[КлючИЗначение.Ключ];
 
-		Если КлючИЗначение.Ключ = "email-domain" Тогда
-			Ключ = "ДоменПочтыДляGit";
-		ИначеЕсли КлючИЗначение.Ключ = "v8-version" Тогда
-			Ключ = "ПутьКПлатформе83";
-		ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда
-			Ключ = "ПутьGit";
-		Иначе
-			ВызватьИсключение НекорректнаяСтруктураНастроек();
+		Если НЕ Ключ = Неопределено Тогда
+				мНастройки.Вставить(Ключ, КлючИЗначение.Значение);
 		КонецЕсли;
 
-		мНастройки.Вставить(Ключ, КлючИЗначение.Значение);
-
 	КонецЦикла;
 
 	мНастройки.Вставить("Репозитарии", Новый Массив);
@@ -53,9 +47,8 @@
 		ПрочитатьНастройкиРепозитория(Репозиторий);
 
 	КонецЦикла;
-
-
-	Возврат мНастройки;	
+	
+	Возврат мНастройки;
 
 КонецФункции
 
@@ -74,48 +67,20 @@
 
 КонецФункции // ВырезатьКомментарииИзТекстаJSON()
 
-Процедура ПрочитатьНастройкиРепозитория(ЭлементМассива)
+Процедура ПрочитатьНастройкиРепозитория(Знач СтруктураНастроекРепозитория )
 
 	Репо = Новый Структура;
 
 	мНастройки.Репозитарии.Добавить(Репо);
 
-	Для Каждого КлючИЗначение Из ЭлементМассива Цикл
-						
-		Если КлючИЗначение.Ключ = "name" Тогда
-			Ключ = "Имя";
-		ИначеЕсли КлючИЗначение.Ключ = "git-local-path" Тогда
-			Ключ = "КаталогВыгрузки";
-		ИначеЕсли КлючИЗначение.Ключ = "git-remote" Тогда
-			Ключ = "GitURL";
-		ИначеЕсли КлючИЗначение.Ключ = "v8-storage-dir" Тогда
-			Ключ = "КаталогХранилища1С";
-		ИначеЕсли КлючИЗначение.Ключ = "email-domain" Тогда
-			Ключ = "ДоменПочтыДляGit";
-		ИначеЕсли КлючИЗначение.Ключ = "v8-version" Тогда
-			Ключ = "ПутьКПлатформе83";
-		ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда
-			Ключ = "ПутьGit";
-		ИначеЕсли КлючИЗначение.Ключ = "push-every-n-commits" Тогда
-			Ключ = "КоличествоКоммитовДоPush";
-		ИначеЕсли КлючИЗначение.Ключ = "check-authors" Тогда
-			Ключ = "ПроверитьАвторовХранилища";
-		ИначеЕсли КлючИЗначение.Ключ = "stop-if-empty-comment" Тогда
-			Ключ = "ПрерватьВыполнениеБезКомментарияКВерсии";
-		ИначеЕсли КлючИЗначение.Ключ = "auto-set-tags" Тогда
-			Ключ = "АвтоматическаяУстановкаТэговПоВерсиям";
-		ИначеЕсли КлючИЗначение.Ключ = "process-fatform-modules" Тогда
-			Ключ = "ПереименовыватьФайлМодуляОбычнойФормы";
-		Иначе
-			ВызватьИсключение НекорректнаяСтруктураНастроек();
-		КонецЕсли;
-		
-		Если ПустаяСтрока(КлючИЗначение.Значение) и мНастройки.Свойство(Ключ) Тогда
-			КлючИЗначение.Значение = мНастройки[Ключ];
+	Для Каждого КлючИЗначение Из СтруктураНастроекРепозитория Цикл
+
+		Ключ = СоответствиеКлючамИПараметра[КлючИЗначение.Ключ];
+			
+		Если НЕ Ключ = Неопределено Тогда
+			Репо.Вставить(Ключ, КлючИЗначение.Значение);
 		КонецЕсли;
 
-		Репо.Вставить(Ключ, КлючИЗначение.Значение);
-		
 	КонецЦикла;
 
 	Для Каждого ГлобальнаяНастройка Из мНастройки Цикл
@@ -138,6 +103,6 @@
 
 КонецПроцедуры
 
-Функция НекорректнаяСтруктураНастроек()
+Функция СтрокаНекорректнаяСтруктураНастроек()
 	Возврат "Некорректная структура файла настроек";
 КонецФункции

src/xml-config.os …ЧтениеКонфигаXMLПакетнойСинхронизации.ossrc/xml-config.os renamed to src/core/Классы/ЧтениеКонфигаXMLПакетнойСинхронизации.os src/xml-config.os renamed to src/core/Классы/ЧтениеКонфигаXMLПакетнойСинхронизации.os

@@ -1,5 +1,6 @@
 
 Перем мНастройки;
+перем СоответствиеКлючамИПараметра Экспорт;
 
 Функция ПрочитатьНастройкиИзФайла(Знач ФайлНастроек) Экспорт
 
@@ -10,7 +11,7 @@
 	Попытка
 		Чтение.ПерейтиКСодержимому();
 		Если Чтение.ЛокальноеИмя <> "gitsync-options" Тогда
-			ВызватьИсключение "Неверная структура файла настроек";
+			ВызватьИсключение СтрокаНекорректнаяСтруктураНастроек();
 		КонецЕсли;
 
 		Чтение.Прочитать();
@@ -34,17 +35,14 @@
 	Пока Не (Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента и Чтение.ЛокальноеИмя = "global") Цикл
 		КлючИЗначение = ПрочитатьОпцию(Чтение);
 
-		Если КлючИЗначение.Ключ = "email-domain" Тогда
-			Ключ = "ДоменПочтыДляGit";
-		ИначеЕсли КлючИЗначение.Ключ = "v8-version" Тогда
-			Ключ = "ПутьКПлатформе83";
-		ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда
-			Ключ = "ПутьGit";
+		Ключ = СоответствиеКлючамИПараметра[КлючИЗначение.Ключ];
+		
+		Если НЕ Ключ = Неопределено Тогда
+			мНастройки.Вставить(Ключ, КлючИЗначение.Значение);
 		Иначе
-			ВызватьИсключение НекорректнаяСтруктураНастроек();
+			ВызватьИсключение СтрокаНекорректнаяСтруктураНастроек();
 		КонецЕсли;
 
-		мНастройки.Вставить(Ключ, КлючИЗначение.Значение);
 
 	КонецЦикла;
 
@@ -56,7 +54,7 @@
 	мНастройки.Вставить("Репозитарии", Новый Массив);
 
 	Если Чтение.ЛокальноеИмя <> "repositories" Тогда
-		ВызватьИсключение НекорректнаяСтруктураНастроек();
+		ВызватьИсключение СтрокаНекорректнаяСтруктураНастроек();
 	КонецЕсли;
 
 	Чтение.Прочитать();
@@ -82,30 +80,12 @@
 
 		КлючИЗначение = ПрочитатьОпцию(Чтение);
 
-		Если КлючИЗначение.Ключ = "git-local-path" Тогда
-			Ключ = "КаталогВыгрузки";
-		ИначеЕсли КлючИЗначение.Ключ = "git-remote" Тогда
-			Ключ = "GitURL";
-		ИначеЕсли КлючИЗначение.Ключ = "v8-storage-dir" Тогда
-			Ключ = "КаталогХранилища1С";
-		ИначеЕсли КлючИЗначение.Ключ = "email-domain" Тогда
-			Ключ = "ДоменПочтыДляGit";
-		ИначеЕсли КлючИЗначение.Ключ = "v8-version" Тогда
-			Ключ = "ПутьКПлатформе83";
-		ИначеЕсли КлючИЗначение.Ключ = "git-executable" Тогда
-			Ключ = "ПутьGit";
-		ИначеЕсли КлючИЗначение.Ключ = "push-every-n-commits" Тогда
-			Ключ = "КоличествоКоммитовДоPush";
-		ИначеЕсли КлючИЗначение.Ключ = "check-authors" Тогда
-			Ключ = "ПроверитьАвторовХранилища";
-		ИначеЕсли КлючИЗначение.Ключ = "stop-if-empty-comment" Тогда
-			Ключ = "ПрерватьВыполнениеБезКомментарияКВерсии";
-		ИначеЕсли КлючИЗначение.Ключ = "auto-set-tags" Тогда
-			Ключ = "АвтоматическаяУстановкаТэговПоВерсиям";
-		ИначеЕсли КлючИЗначение.Ключ = "process-fatform-modules" Тогда
-			Ключ = "ПереименовыватьФайлМодуляОбычнойФормы";
+		Ключ = СоответствиеКлючамИПараметра[КлючИЗначение.Ключ];
+		
+		Если НЕ Ключ = Неопределено Тогда
+			Репо.Вставить(Ключ, КлючИЗначение.Значение);
 		Иначе
-			ВызватьИсключение НекорректнаяСтруктураНастроек();
+			ВызватьИсключение СтрокаНекорректнаяСтруктураНастроек();
 		КонецЕсли;
 
 		Если ПустаяСтрока(КлючИЗначение.Значение) и мНастройки.Свойство(Ключ) Тогда
@@ -133,7 +113,7 @@
 	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
 		Значение = "";
 	Иначе
-		ВызватьИсключение НекорректнаяСтруктураНастроек();
+		ВызватьИсключение СтрокаНекорректнаяСтруктураНастроек();
 	КонецЕсли;
 
 	Чтение.Прочитать();
@@ -142,6 +122,6 @@
 
 КонецФункции
 
-Функция НекорректнаяСтруктураНастроек()
+Функция СтрокаНекорректнаяСтруктураНастроек()
 	Возврат "Некорректная структура файла настроек";
 КонецФункции

tests/multi-controller-xml.os

@@ -8,6 +8,7 @@
 
 Перем мНастройки;
 Перем мПараметрыВызоваПакетногоСинхронизатора;
+Перем Контроллер;
 
 Функция ПолучитьСписокТестов(Тесты) Экспорт
 	юТест = Тесты;
@@ -26,11 +27,9 @@
 
 Процедура Инициализация()
 
-	ПодключитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "../src/xml-config.os"), "ЧтениеКонфигаXML");
-	ПодключитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "../src/json-config.os"), "ЧтениеКонфигаJSON");
-	
 	Лог = Логирование.ПолучитьЛог("oscript.app.gitsync");
 	Лог.УстановитьУровень(УровниЛога.Отладка);
+	Контроллер = Новый КонтроллерПакетнойСинхронизации
 
 КонецПроцедуры
 
@@ -39,14 +38,17 @@
 
 Функция ПрочитатьТестовыеНастройки()
 	ФайлНастроек = КаталогFixtures() + "/config.xml";
-	ЧтениеКонфига = Новый ЧтениеКонфигаXML();
+	ЧтениеКонфига = Новый ЧтениеКонфигаXMLПакетнойСинхронизации();
+	ЧтениеКонфига.СоответствиеКлючамИПараметра = Контроллер.СоответствиеКлючамИПараметра();
 	мНастройки = ЧтениеКонфига.ПрочитатьНастройкиИзФайла(ФайлНастроек);
 	Возврат мНастройки;
 КонецФункции
 
 Функция ПрочитатьТестовыеНастройкиJSON()
 	ФайлНастроек = КаталогFixtures() + "/config.json";
-	ЧтениеКонфига = Новый ЧтениеКонфигаJSON();
+	ЧтениеКонфига = Новый ЧтениеКонфигаJSONПакетнойСинхронизации();
+	ЧтениеКонфига.СоответствиеКлючамИПараметра = Контроллер.СоответствиеКлючамИПараметра();
+	
 	мНастройки = ЧтениеКонфига.ПрочитатьНастройкиИзФайла(ФайлНастроек);
 	Возврат мНастройки;
 КонецФункции