Merge pull request #8 from alehinsasha/master

#7: Добавил, по аналогии с module, возможность переименования файлов …

Author: khorevaa

src/Классы/unpackForm.os

@@ -6,7 +6,8 @@
 Перем Обработчик;
 Перем КомандыПлагина;
 
-Перем ВыполнятьПереименование;
+Перем ВыполнятьПереименованиеModule;
+Перем ВыполнятьПереименованиеForm;
 
 #Область Интерфейс_плагина
 
@@ -71,7 +72,8 @@
 Процедура ПриАктивизации(СтандартныйОбработчик) Экспорт
 
 	Обработчик = СтандартныйОбработчик;
-	ВыполнятьПереименование = Ложь;
+	ВыполнятьПереименованиеModule = Ложь;
+	ВыполнятьПереименованиеForm = Ложь;
 
 КонецПроцедуры
 
@@ -88,11 +90,16 @@
 						.Флаг()
 						.ВОкружении("GITSYNC_RENAME_MODULE");
 
+	КлассРеализации.Опция("F rename-form", Ложь, "[*unpackForm] переименование form -> form.txt")
+						.Флаг()
+						.ВОкружении("GITSYNC_RENAME_FORM");
+
 КонецПроцедуры
 
 Процедура ПриПолученииПараметров(ПараметрыКоманды) Экспорт
 
-	ВыполнятьПереименование = ПараметрыКоманды.Параметр("rename-module", Ложь);
+	ВыполнятьПереименованиеModule = ПараметрыКоманды.Параметр("rename-module", Ложь);
+	ВыполнятьПереименованиеForm = ПараметрыКоманды.Параметр("rename-form", Ложь);
 
 КонецПроцедуры
 
@@ -133,10 +140,14 @@
 	dllРаспаковать(ФайлРаспаковки, КаталогРаспаковки);
 	ВыполнитьСборкуМусора(); // см. камент к процедуре dllРаспаковать
 
-	Если ВыполнятьПереименование Тогда
+	Если ВыполнятьПереименованиеModule Тогда
 		ПереименованиеModule(КаталогРаспаковки);
 	КонецЕсли;
 
+	Если ВыполнятьПереименованиеForm Тогда
+		ПереименованиеForm(КаталогРаспаковки);
+	КонецЕсли;
+
 КонецПроцедуры
 
 Процедура ПереименованиеModule(КаталогРаспаковки)
@@ -154,6 +165,21 @@
 
 КонецПроцедуры
 
+Процедура ПереименованиеForm(КаталогРаспаковки)
+
+	Для Каждого ФайлФормы Из НайтиФайлы(КаталогРаспаковки, "form", Истина) Цикл
+
+		СтароеИмяФайла = ФайлФормы.ПолноеИмя;
+		НовоеИмяФайла = ОбъединитьПути(ФайлФормы.Путь, "form.txt");
+		
+		Лог.Отладка("Конвертирую наименование файла <%1> --> <%2>", СтароеИмяФайла, НовоеИмяФайла);
+		КопироватьФайл(СтароеИмяФайла, НовоеИмяФайла);
+		УдалитьФайлы(СтароеИмяФайла);
+		
+	КонецЦикла;
+
+КонецПроцедуры
+
 Процедура Инициализация()
 
 	ВерсияПлагина = "1.0.0";