Skip to content

Commit

Permalink
Исправил определение относительных путей на linux
Browse files Browse the repository at this point in the history
  • Loading branch information
Shenja Sosna committed Jun 25, 2016
1 parent 86b9c0d commit a212b63
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 4 deletions.
1 change: 1 addition & 0 deletions .gitattributes
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
*.bsl eol=crlf
11 changes: 7 additions & 4 deletions tools/runner.os
Original file line number Diff line number Diff line change
Expand Up @@ -768,6 +768,10 @@

Файлы = НайтиФайлы(ПутьКаталога, ПолучитьМаскуВсеФайлы());
Для Каждого Файл из Файлы Цикл
Если Лев(Файл.Имя,4) = ".git" Тогда
Продолжить;
КонецЕсли;

Если Файл.ЭтоКаталог() Тогда
Если Лев(Файл.Имя,4) = ".git" Тогда
Продолжить;
Expand Down Expand Up @@ -796,11 +800,9 @@

ОтносительныйПутьКаталогаФайла = ПолучитьОтносительныйПутьФайла(КаталогКорень, Файл.ПолноеИмя);
Лог.Отладка("ОтносительныйПутьКаталогаФайла <"+ОтносительныйПутьКаталогаФайла+">");

ПутьФайлаИсходников = ОбъединитьПути(КаталогВыгрузки, ОтносительныйПутьКаталогаФайла);
Лог.Отладка("ПутьФайлаИсходников <"+ПутьФайлаИсходников+">");


ФайлНовый = Новый Файл(ПутьФайлаИсходников);
КаталогНовый = Новый Файл(ФайлНовый.Путь);
Если НЕ КаталогНовый.Существует() Тогда
Expand Down Expand Up @@ -883,12 +885,13 @@
ФайлКорень = Новый Файл(КаталогКорень);
ФайлВнутреннийКаталог = Новый Файл(ВнутреннийКаталог);
Рез = СтрЗаменить(ФайлВнутреннийКаталог.ПолноеИмя, ФайлКорень.ПолноеИмя, "");
Если Лев(Рез, 1) = "\" Тогда
Если Найти("\/", Лев(Рез, 1)) > 0 Тогда
Рез = Сред(Рез, 2);
КонецЕсли;
Если Прав(Рез, 1) = "\" Тогда
Если Найти("\/", Прав(Рез, 1)) > 0 Тогда
Рез = Лев(Рез, СтрДлина(Рез)-1);
КонецЕсли;

Возврат Рез;
КонецФункции

Expand Down

0 comments on commit a212b63

Please sign in to comment.