Skip to content

compile-extensions-from-files #165

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

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

compile-extensions-from-files #165

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
68 changes: 66 additions & 2 deletions v8files-extractor.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -807,7 +807,11 @@
Если Рекурсивно Тогда
СобратьКаталог(ПутьКИсходникам, КаталогВыгрузки);
Иначе
СобратьФайл(ПутьКИсходникам, КаталогВыгрузки);
Если ЭтоПутьКИсходнымКодамРасширения(ПапкаИсходников) Тогда
СобратьРасширение(ПутьКИсходникам, КаталогВыгрузки);
Иначе
СобратьФайл(ПутьКИсходникам, КаталогВыгрузки);
КонецЕсли;
КонецЕсли;

КонецПроцедуры
Expand All @@ -826,7 +830,9 @@
Продолжить;
КонецЕсли;

Если ЭтоПутьКИсходнымКодамОбработок(Файл) Тогда
Если ЭтоПутьКИсходнымКодамРасширения(Файл) Тогда
СобратьРасширение(Файл.ПолноеИмя, КаталогВыгрузки);
ИначеЕсли ЭтоПутьКИсходнымКодамОбработок(Файл) Тогда
СобратьФайл(Файл.ПолноеИмя, КаталогВыгрузки);
Иначе
НовыйПутьВыгрузки = ОбъединитьПути(КаталогВыгрузки, Файл.Имя);
Expand Down Expand Up @@ -892,6 +898,51 @@

КонецФункции

Функция СобратьРасширение(Знач ПутьКИсходникам, Знач КаталогВыгрузки)

ПапкаИсходников = Новый Файл(ПутьКИсходникам);
ИмяПапки = ПапкаИсходников.Имя;

Лог.Информация("Собираю исходники <%1>", ПутьКИсходникам);

Конфигуратор = Новый УправлениеКонфигуратором();
Если ЗначениеЗаполнено(ВерсияПлатформы) Тогда
Конфигуратор.ИспользоватьВерсиюПлатформы(ВерсияПлатформы);
КонецЕсли;
Если КонтекстКонфигуратора = Неопределено Тогда
КаталогВременнойИБ = ВременныеФайлы.СоздатьКаталог();
Конфигуратор.КаталогСборки(КаталогВременнойИБ);
Иначе
Конфигуратор.ИспользоватьКонтекст(КонтекстКонфигуратора);
КонецЕсли;

УстановитьУровеньЛогаКонфигуратораРавнымУровнюПродукта();

ИмяРасширения = ИмяПапки;
ИмяФайлаОбъекта = ОбъединитьПути(ТекущийКаталог(), КаталогВыгрузки, ИмяПапки + ".cfe");

// Удалить расширения
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
Параметры.Добавить("/DeleteCfg");
Параметры.Добавить("-AllExtensions");
Конфигуратор.ВыполнитьКоманду(Параметры);

// Загрузить из файлов
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
Параметры.Добавить("/LoadConfigFromFiles """ + ПутьКИсходникам + """");
Параметры.Добавить("-Extension """ + ИмяРасширения + """");
Конфигуратор.ВыполнитьКоманду(Параметры);

// Сохранить в файл
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
Параметры.Добавить("/DumpCfg """ + ИмяФайлаОбъекта + """");
Параметры.Добавить("-Extension """ + ИмяРасширения + """");
Конфигуратор.ВыполнитьКоманду(Параметры);

Лог.Информация("Успешно собрано расширение "+ИмяРасширения);

КонецФункции

Функция ЭтоПутьКИсходнымКодамОбработок(ПапкаИсходников)

Если ИспользоватьКонфигуратор Тогда
Expand All @@ -904,6 +955,19 @@

КонецФункции

Функция ЭтоПутьКИсходнымКодамРасширения(ПапкаИсходников)

ПутьКФайлуКонфиг = ОбъединитьПути(ПапкаИсходников.ПолноеИмя, "Configuration.xml")
ПутьКФайлуДампИнфо = ОбъединитьПути(ПапкаИсходников.ПолноеИмя, "ConfigDumpInfo.xml")

ФайлРасширение = Новый Файл(ПутьКФайлуКонфиг);
ФайлРасширение2 = Новый Файл(ПутьКФайлуДампИнфо);
ЭтоРасширение = ФайлРасширение.Существует() И ФайлРасширение2.Существует();

Возврат ЭтоРасширение;

КонецФункции

Функция ЭтоПутьКТолстойФорме(ПутьКПапке)

ФайлМодуля = Новый Файл(ОбъединитьПути(ПутьКПапке, "module.bsl"));
Expand Down