Skip to content

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

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Sep 11, 2018
Merged

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

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
34 changes: 30 additions & 4 deletions src/Классы/unpackForm.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,8 @@
Перем Обработчик;
Перем КомандыПлагина;

Перем ВыполнятьПереименование;
Перем ВыполнятьПереименованиеModule;
Перем ВыполнятьПереименованиеForm;

#Область Интерфейс_плагина

Expand Down Expand Up @@ -71,7 +72,8 @@
Процедура ПриАктивизации(СтандартныйОбработчик) Экспорт

Обработчик = СтандартныйОбработчик;
ВыполнятьПереименование = Ложь;
ВыполнятьПереименованиеModule = Ложь;
ВыполнятьПереименованиеForm = Ложь;

КонецПроцедуры

Expand All @@ -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", Ложь);

КонецПроцедуры

Expand Down Expand Up @@ -133,10 +140,14 @@
dllРаспаковать(ФайлРаспаковки, КаталогРаспаковки);
ВыполнитьСборкуМусора(); // см. камент к процедуре dllРаспаковать

Если ВыполнятьПереименование Тогда
Если ВыполнятьПереименованиеModule Тогда
ПереименованиеModule(КаталогРаспаковки);
КонецЕсли;

Если ВыполнятьПереименованиеForm Тогда
ПереименованиеForm(КаталогРаспаковки);
КонецЕсли;

КонецПроцедуры

Процедура ПереименованиеModule(КаталогРаспаковки)
Expand All @@ -154,6 +165,21 @@

КонецПроцедуры

Процедура ПереименованиеForm(КаталогРаспаковки)

Для Каждого ФайлФормы Из НайтиФайлы(КаталогРаспаковки, "form", Истина) Цикл

СтароеИмяФайла = ФайлФормы.ПолноеИмя;
НовоеИмяФайла = ОбъединитьПути(ФайлФормы.Путь, "form.txt");

Лог.Отладка("Конвертирую наименование файла <%1> --> <%2>", СтароеИмяФайла, НовоеИмяФайла);
КопироватьФайл(СтароеИмяФайла, НовоеИмяФайла);
УдалитьФайлы(СтароеИмяФайла);

КонецЦикла;

КонецПроцедуры

Процедура Инициализация()

ВерсияПлагина = "1.0.0";
Expand Down