Skip to content

Commit

Permalink
#3 Поддержка относительных имен
Browse files Browse the repository at this point in the history
  • Loading branch information
Artem Sharipov authored and theshadowco committed May 13, 2024
1 parent f5d8590 commit 3683f91
Show file tree
Hide file tree
Showing 2 changed files with 25 additions and 0 deletions.
13 changes: 13 additions & 0 deletions src/Классы/КомандаАнализОбъектов.os
Original file line number Diff line number Diff line change
Expand Up @@ -51,6 +51,19 @@

КонецЕсли;

РаздлительПути = ПолучитьРазделительПути();
РодительПуть = ?(СтрЗаканчиваетсяНа(РодительПуть, РаздлительПути),
РодительПуть, РодительПуть + РаздлительПути);
ПоставкаПуть = ?(СтрЗаканчиваетсяНа(ПоставкаПуть, РаздлительПути),
ПоставкаПуть, ПоставкаПуть + РаздлительПути);

// Превращение относительных путей в абсолютные
РодительПуть = Новый Файл(РодительПуть).ПолноеИмя;
ПоставкаПуть = Новый Файл(ПоставкаПуть).ПолноеИмя;
Если СтрНачинаетсяС(ФайлРезультатИмя, ".") Тогда
ФайлРезультатИмя = Новый Файл(ФайлРезультатИмя).ПолноеИмя;
КонецЕсли;

Лог.Информация("Получаем результат сравнения");
РезультатСравнения = АнализаторОбъектов.ВыполнитьСравнениеОбъектов(РодительПуть, ПоставкаПуть, Лог);

Expand Down
12 changes: 12 additions & 0 deletions src/Классы/КомандаСравнение.os
Original file line number Diff line number Diff line change
Expand Up @@ -53,10 +53,22 @@
КонецЕсли;

РаздлительПути = ПолучитьРазделительПути();
РодительПуть = ?(СтрЗаканчиваетсяНа(РодительПуть, РаздлительПути),
РодительПуть, РодительПуть + РаздлительПути);
ПоставкаПуть = ?(СтрЗаканчиваетсяНа(ПоставкаПуть, РаздлительПути),
ПоставкаПуть, ПоставкаПуть + РаздлительПути);
РасширениеПуть = ?(СтрЗаканчиваетсяНа(РасширениеПуть, РаздлительПути),
РасширениеПуть, РасширениеПуть + РаздлительПути);

ФайлРезультатИмя = ПараметрыКоманды["ФайлРезультат"];

// Превращение относительных путей в абсолютные
РодительПуть = Новый Файл(РодительПуть).ПолноеИмя;
ПоставкаПуть = Новый Файл(ПоставкаПуть).ПолноеИмя;
РасширениеПуть = Новый Файл(РасширениеПуть).ПолноеИмя;
Если СтрНачинаетсяС(ФайлРезультатИмя, ".") Тогда
ФайлРезультатИмя = Новый Файл(ФайлРезультатИмя).ПолноеИмя;
КонецЕсли;

Лог.Информация("Получаем результат сравнения");
РезультатСравнения = РезультатСравненияРасширения.ПолучитьРезультатСравнения(
Expand Down

0 comments on commit 3683f91

Please sign in to comment.