9
9
Перем юТест ;
10
10
Перем Распаковщик ;
11
11
Перем Лог ;
12
+ Перем ЭтоWindows ;
12
13
13
14
Процедура Инициализация ()
14
15
129
130
130
131
Распаковщик.РазложитьМодули1СПоПапкамСогласноИерархииМетаданных(КаталогПлоскойВыгрузки, КаталогИерархическойВыгрузки, РежимВыгрузкиФайлов.Плоский);
131
132
132
- ФайлПереименований = Новый Файл(КаталогИерархическойВыгрузки + "\ renames.txt" );
133
+ ФайлПереименований = Новый Файл(ОбъединитьПути( КаталогИерархическойВыгрузки, " renames.txt") );
133
134
Утверждения.ПроверитьИстину(ФайлПереименований.Существует(), "Не удалось разложим модули 1С по иерархии - не существует файл <" + ФайлПереименований.ПолноеИмя+ ">" );
134
135
135
136
МассивФайлов = НайтиФайлы (КаталогИерархическойВыгрузки, "*.*" );
355
356
ИмяФайлаЛогаГит = ВременныеФайлы.НовоеИмяФайла("txt" );
356
357
357
358
Батник = Новый КомандныйФайл;
358
- Батник.ДобавитьКоманду("cd /d " + ОбернутьВКавычки(КаталогИсходников));
359
+ Батник.ДобавитьКоманду(СтрШаблон ( "cd %1 %2" ,? (ЭтоWindows , "/d" , "" ) , ОбернутьВКавычки(КаталогИсходников) ));
359
360
Батник.ДобавитьКоманду("git log --pretty=oneline >" + ОбернутьВКавычки(ИмяФайлаЛогаГит));
360
361
361
362
КодВозврата = Батник.Исполнить();
426
427
ВременныйРепо = ВыполнитьКлонированиеТестовогоРепо();
427
428
428
429
СоздатьФайлАвторовГит_ДляТестов(ВременныйРепо.ЛокальныйРепозиторий);
429
- Утверждения.ПроверитьИстину(Новый Файл(ВременныйРепо.ЛокальныйРепозиторий+ "\ AUTHORS" ).Существует());
430
+ Утверждения.ПроверитьИстину(Новый Файл(ОбъединитьПути( ВременныйРепо.ЛокальныйРепозиторий, " AUTHORS") ).Существует());
430
431
431
432
Распаковщик.ВыполнитьКоммитГит(ВременныйРепо.ЛокальныйРепозиторий, "test commit" , "Администратор <admin@localhost>" );
432
433
440
441
ВременныйРепо = ВыполнитьКлонированиеТестовогоРепо();
441
442
442
443
СоздатьФайлАвторовГит_ДляТестов(ВременныйРепо.ЛокальныйРепозиторий);
443
- Утверждения.ПроверитьИстину(Новый Файл(ВременныйРепо.ЛокальныйРепозиторий+ "\ AUTHORS" ).Существует());
444
+ Утверждения.ПроверитьИстину(Новый Файл(ОбъединитьПути( ВременныйРепо.ЛокальныйРепозиторий, " AUTHORS") ).Существует());
444
445
445
446
Распаковщик.ВыполнитьКоммитГит(ВременныйРепо.ЛокальныйРепозиторий, "test commit" , "Администратор <admin@localhost>" );
446
447
472
473
ФайлЛога = ВременныеФайлы.СоздатьФайл("log" );
473
474
Батник = Новый КомандныйФайл();
474
475
Батник.Создать();
475
- Батник.ДобавитьКоманду("chcp 1251 > nul" );
476
- Батник.ДобавитьКоманду(СтроковыеФункции.ПодставитьПараметрыВСтроку("cd /d "" %1"" " , ЛокальныйКаталог));
476
+ Если ЭтоWindows Тогда
477
+ Батник.ДобавитьКоманду("chcp 1251 > nul" );
478
+ КонецЕсли ;
479
+ Батник.ДобавитьКоманду(СтрШаблон ("cd %1 "" %2"" " ,? (ЭтоWindows, "/d" , "" ), ЛокальныйКаталог));
477
480
478
481
ПараметрыКоманды = Новый Массив;
479
482
ПараметрыКоманды.Добавить("git clone" );
480
483
ПараметрыКоманды.Добавить(URLРепозитария);
481
- ПараметрыКоманды.Добавить(ОбернутьВКавычки("%CD%" ));
484
+ ПараметрыКоманды.Добавить(ОбернутьВКавычки(ЛокальныйКаталог ));
482
485
ПараметрыКоманды.Добавить(СуффиксПеренаправленияВывода(ФайлЛога, Истина ));
483
486
484
487
КоманднаяСтрока = СобратьКоманднуюСтроку(ПараметрыКоманды);
485
488
Лог.Отладка("Командная строка git clone:" + Символы.ПС + КоманднаяСтрока);
486
489
Батник.ДобавитьКоманду(КоманднаяСтрока);
487
- Батник.ДобавитьКоманду("exit /b %ERRORLEVEL%" );
490
+ Если Не ЭтоWindows Тогда
491
+ Батник.ДобавитьКоманду("exit $#" );
492
+ Иначе
493
+ Батник.ДобавитьКоманду("exit /b %ERRORLEVEL%" );
494
+ КонецЕсли ;
488
495
489
496
РезультатКлонирования = Батник.Исполнить();
490
497
// вывод всех сообщений от Git
537
544
КонецПроцедуры
538
545
539
546
//////////////////////////////////////////////////////////////////////////////
547
+ СистемнаяИнформация = Новый СистемнаяИнформация;
548
+ ЭтоWindows = Найти (НРег (СистемнаяИнформация.ВерсияОС), "windows" ) > 0 ;
540
549
541
550
Инициализация();
0 commit comments