Совместимость: плагин КомандныйФайл: новые шаги ОткрытьФайл и ЗакрытьФайл вместо Открыть и Закрыть

Портированы шаги плагина КомандныйФайл на УФ

Author: artbear

lib/CF/83xdd/DataProcessors/xddTestsConvertIntoRebornFormat/Ext/ObjectModule.bsl

@@ -133,7 +133,7 @@
 
 	ИмяКаталогаИсходниковФайла = ФайлТеста.ИмяБезРасширения;
 
-	Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+	Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 	КомандныйФайл.Добавить("cd /d " + ИмяКаталогаСборки);
 	КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -unpack """ + ФайлТеста.ПолноеИмя + """ " + ИмяКаталогаИсходниковФайла + " > "+ИмяКаталогаИсходниковФайла+".unpack.log");
 	КодВозврата = КомандныйФайл.ВыполнитьКоманду();
@@ -144,13 +144,13 @@
 	Для Каждого БинарныйФайл Из Файлы Цикл
 		ИмяФайлаИсходников = БинарныйФайл.Имя + ".txt";
 
-		Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+		Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 		КомандныйФайл.Добавить("cd /d " + БинарныйФайл.Путь);
 		КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -undeflate " + БинарныйФайл.Имя + " " + ИмяФайлаИсходников + " > "+БинарныйФайл.ИмяБезРасширения+".unpack.log");
 		КодВозврата = КомандныйФайл.ВыполнитьКоманду();
 		Ожидаем.Что(КодВозврата, "КодВозврата -undeflate "+БинарныйФайл.Имя).Равно(0);
 
-		Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+		Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 		КомандныйФайл.Добавить("cd /d " + БинарныйФайл.Путь);
 		КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -unpack " + ИмяФайлаИсходников + " " + БинарныйФайл.ИмяБезРасширения + " > "+БинарныйФайл.ИмяБезРасширения+".unpack.log");
 		КодВозврата = КомандныйФайл.ВыполнитьКоманду();
@@ -236,7 +236,7 @@
 	НовыйФайлВерсий = Новый Файл(ВременныеФайлы.НовоеИмяФайла("txt"));
 	ЗаписатьТекстВФайл(НовыйФайлВерсий, "{1,0}");
 
-	Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+	Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 	КомандныйФайл.Добавить("cd /d " + ИмяКаталогаСборки+"/"+ИсходныйФайл.ИмяБезРасширения);
 	КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -deflate " + НовыйФайлВерсий.ПолноеИмя + " versions.data >> versions.data.pack.log");
 
@@ -248,7 +248,7 @@
 	УдалитьФайлы(ФайлТеста.ПолноеИмя);
 	Ожидаем.Что(ФайлТеста.Существует(), "исходный файл теста не удалось удалить "+ФайлТеста.ПолноеИмя).ЭтоЛожь();
 
-	Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+	Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 	КомандныйФайл.Добавить("cd /d " + ИмяКаталогаСборки+"/"+ФайлТеста.ИмяБезРасширения);
 	Для Каждого ОписаниеИсходника Из МассивОписанийФайловМодулей Цикл
 		РазобранныйФайл = ОписаниеИсходника.Файл;

plugins/КомандныйФайл/КомандныйФайл/Ext/ObjectModule.bsl

@@ -21,7 +21,9 @@
 КонецПроцедуры
 // } Plugin interface
 
-Функция Открыть(Знач Путь = "") Экспорт
+//{ API
+
+Функция ОткрытьФайл(Знач Путь = "") Экспорт
 
 	Если ПустаяСтрока(Путь) Тогда
 		мПуть = ПолучитьИмяВременногоФайла(".bat");
@@ -43,7 +45,7 @@
 
 Функция ВыполнитьКоманду() Экспорт
 
-	Закрыть();
+	ЗакрытьФайл();
 
 	ПутьПакетногоФайла = мПуть;
 
@@ -56,7 +58,7 @@
 
 КонецФункции
 
-Функция Закрыть() Экспорт
+Функция ЗакрытьФайл() Экспорт
 
 	Если мЗаписьТекста <> Неопределено Тогда
 		мЗаписьТекста.Закрыть();
@@ -67,8 +69,14 @@
 
 КонецФункции
 
+//}
+
+//{ helpers
+
 Процедура ПроверитьЧтоФайлОткрыт()
 	Если мЗаписьТекста = Неопределено Тогда
-		Открыть();
+		ОткрытьФайл();
 	КонецЕсли;
 КонецПроцедуры
+
+//}

plugins/КомандныйФайл/КомандныйФайл/Forms/Форма/Ext/Form/Module.bsl

@@ -1,4 +1,8 @@
-
+&НаКлиенте
+Перем мЗаписьТекста;
+&НаКлиенте
+Перем мПуть;
+
 // { Plugin interface
 &НаКлиенте
 Функция ОписаниеПлагина(ВозможныеТипыПлагинов) Экспорт
@@ -17,3 +21,68 @@
 	Возврат РеквизитФормыВЗначение("Объект");
 КонецФункции
 // } Helpers
+
+//{ API
+
+&НаКлиенте
+Функция ОткрытьФайл(Знач Путь = "") Экспорт
+	
+	Если ПустаяСтрока(Путь) Тогда
+		мПуть = ПолучитьИмяВременногоФайла(".bat");
+		//мПуть = ВременныеФайлы.НовоеИмяФайла(".bat");
+	Иначе
+		мПуть = Путь;
+	КонецЕсли;
+	
+	мЗаписьТекста = Новый ЗаписьТекста(мПуть, "cp866");
+	
+	Возврат мПуть;
+	
+КонецФункции
+
+&НаКлиенте
+Процедура Добавить(Знач Команда) Экспорт
+	ПроверитьЧтоФайлОткрыт();
+	мЗаписьТекста.ЗаписатьСтроку(Команда);
+КонецПроцедуры
+
+&НаКлиенте
+Функция ВыполнитьКоманду() Экспорт
+	
+	ЗакрытьФайл();
+	
+	ПутьПакетногоФайла = мПуть;
+	
+	СтрокаЗапуска = "cmd.exe /C """ + ПутьПакетногоФайла + """";
+	
+	КодВозврата = "";
+	ЗапуститьПриложение(СтрокаЗапуска,, Истина, КодВозврата);
+	
+	Возврат КодВозврата;
+
+КонецФункции
+
+&НаКлиенте
+Функция ЗакрытьФайл() Экспорт
+	
+	Если мЗаписьТекста <> Неопределено Тогда
+		мЗаписьТекста.Закрыть();
+		мЗаписьТекста = Неопределено;
+	КонецЕсли;
+	
+	Возврат мПуть;
+	
+КонецФункции
+
+//}
+
+//{ helpers
+
+&НаКлиенте
+Процедура ПроверитьЧтоФайлОткрыт()
+	Если мЗаписьТекста = Неопределено Тогда
+		ОткрытьФайл();
+	КонецЕсли;
+КонецПроцедуры
+
+//}

tools/epf/utils/xddTestsConvertIntoRebornFormat/xddTestsConvertIntoRebornFormat/Ext/ObjectModule.bsl

@@ -130,7 +130,7 @@
 
 	ИмяКаталогаИсходниковФайла = ФайлТеста.ИмяБезРасширения;
 
-	Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+	Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 	КомандныйФайл.Добавить("cd /d " + ИмяКаталогаСборки);
 	КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -unpack """ + ФайлТеста.ПолноеИмя + """ " + ИмяКаталогаИсходниковФайла + " > "+ИмяКаталогаИсходниковФайла+".unpack.log");
 	КодВозврата = КомандныйФайл.ВыполнитьКоманду();
@@ -141,13 +141,13 @@
 	Для Каждого БинарныйФайл Из Файлы Цикл
 		ИмяФайлаИсходников = БинарныйФайл.Имя + ".txt";
 
-		Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+		Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 		КомандныйФайл.Добавить("cd /d " + БинарныйФайл.Путь);
 		КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -undeflate " + БинарныйФайл.Имя + " " + ИмяФайлаИсходников + " > "+БинарныйФайл.ИмяБезРасширения+".unpack.log");
 		КодВозврата = КомандныйФайл.ВыполнитьКоманду();
 		Ожидаем.Что(КодВозврата, "КодВозврата -undeflate "+БинарныйФайл.Имя).Равно(0);
 
-		Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+		Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 		КомандныйФайл.Добавить("cd /d " + БинарныйФайл.Путь);
 		КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -unpack " + ИмяФайлаИсходников + " " + БинарныйФайл.ИмяБезРасширения + " > "+БинарныйФайл.ИмяБезРасширения+".unpack.log");
 		КодВозврата = КомандныйФайл.ВыполнитьКоманду();
@@ -233,7 +233,7 @@
 	НовыйФайлВерсий = Новый Файл(ВременныеФайлы.НовоеИмяФайла("txt"));
 	ЗаписатьТекстВФайл(НовыйФайлВерсий, "{1,0}");
 
-	Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+	Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 	КомандныйФайл.Добавить("cd /d " + ИмяКаталогаСборки+"/"+ИсходныйФайл.ИмяБезРасширения);
 	КомандныйФайл.Добавить(ФайлУтилиты.ПолноеИмя + " -deflate " + НовыйФайлВерсий.ПолноеИмя + " versions.data >> versions.data.pack.log");
 
@@ -245,7 +245,7 @@
 	УдалитьФайлы(ФайлТеста.ПолноеИмя);
 	Ожидаем.Что(ФайлТеста.Существует(), "исходный файл теста не удалось удалить "+ФайлТеста.ПолноеИмя).ЭтоЛожь();
 
-	Файл = КомандныйФайл.Открыть(ВременныеФайлы.НовоеИмяФайла("bat"));
+	Файл = КомандныйФайл.ОткрытьФайл(ВременныеФайлы.НовоеИмяФайла("bat"));
 	КомандныйФайл.Добавить("cd /d " + ИмяКаталогаСборки+"/"+ФайлТеста.ИмяБезРасширения);
 	Для Каждого ОписаниеИсходника Из МассивОписанийФайловМодулей Цикл
 		РазобранныйФайл = ОписаниеИсходника.Файл;