|
136 | 136 | КодВозврата = 1;
|
137 | 137 | КонецПопытки;
|
138 | 138 |
|
139 |
| - Лог.Отладка("Очищаем каталог временной ИБ"); |
| 139 | + Лог.Отладка("Очищаем временные файлы"); |
140 | 140 | Попытка
|
141 | 141 | ВременныеФайлы.Удалить();
|
142 | 142 | Исключение
|
|
330 | 330 | Лог.Отладка("ПутьКаталогаИсходников <%1>", ПутьКаталогаИсходников);
|
331 | 331 | ПапкаИсходников = Новый Файл(ПутьКаталогаИсходников);
|
332 | 332 |
|
333 |
| - ОбеспечитьПустойКаталог(ПапкаИсходников); |
334 |
| - |
335 | 333 | КонецЕсли;
|
336 | 334 |
|
337 | 335 | Если ВРег(Файл.Расширение) = ".CFE" Тогда
|
|
388 | 386 | Конфигуратор.ВыполнитьКоманду(Параметры);
|
389 | 387 | Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
|
390 | 388 |
|
391 |
| - Лог.Отладка("Разбор расширения '%1' в исходники в каталог '%2'", ИмяРасширения, ПапкаИсходников.ПолноеИмя); |
| 389 | + ВременнаяПапкаИсходников = ВременныеФайлы.СоздатьКаталог(); |
| 390 | + |
| 391 | + Лог.Отладка("Разбор расширения '%1' в исходники в каталог '%2'", ИмяРасширения, ВременнаяПапкаИсходников); |
392 | 392 | Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
|
393 | 393 |
|
394 |
| - Параметры.Добавить("/DumpConfigToFiles """ + ПапкаИсходников.ПолноеИмя + """"); |
| 394 | + Параметры.Добавить("/DumpConfigToFiles """ + ВременнаяПапкаИсходников + """"); |
395 | 395 | Параметры.Добавить("-Extension """ + ИмяРасширения + """");
|
396 | 396 | Конфигуратор.ВыполнитьКоманду(Параметры);
|
397 | 397 | Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
|
398 | 398 |
|
| 399 | + Если НайтиФайлы(ВременнаяПапкаИсходников, "*").Количество() = 0 Тогда |
| 400 | + ВызватьИсключение СтрШаблон("Не удалось разобрать на исходники %1", Файл.ПолноеИмя); |
| 401 | + КонецЕсли; |
| 402 | + |
| 403 | + ОбеспечитьПустойКаталог(ПапкаИсходников); |
| 404 | + |
| 405 | + Лог.Отладка("Копируем исходники из временного каталога в целевой: " + ПапкаИсходников.ПолноеИмя); |
| 406 | + КопироватьСодержимоеКаталога(ВременнаяПапкаИсходников, ПапкаИсходников.ПолноеИмя); |
| 407 | + |
399 | 408 | КонецПроцедуры
|
400 | 409 |
|
401 | 410 | Процедура ЗапуститьРаспаковкуОбработки(Знач Файл, Знач ПапкаИсходников)
|
|
415 | 424 |
|
416 | 425 | ЛогКонфигуратора = Логирование.ПолучитьЛог("oscript.lib.v8runner");
|
417 | 426 | ЛогКонфигуратора.УстановитьУровень(Лог.Уровень());
|
418 |
| - |
| 427 | + |
419 | 428 |
|
420 | 429 | ЭтоМакет = ВРег(Файл.Расширение) = ".MXL";
|
| 430 | + ВременнаяПапкаИсходников = ВременныеФайлы.СоздатьКаталог(); |
421 | 431 |
|
422 | 432 | Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
|
423 | 433 | Если НЕ ЭтоМакет И ИспользоватьКонфигуратор Тогда
|
424 | 434 |
|
425 | 435 | КоманднаяСтрокаРаспаковки = СтрШаблон("/DumpExternalDataProcessorOrReportToFiles ""%1\%2.xml"" ""%3""",
|
426 |
| - ПапкаИсходников.ПолноеИмя, Файл.ИмяБезРасширения, Файл.ПолноеИмя); |
| 436 | + ВременнаяПапкаИсходников, Файл.ИмяБезРасширения, Файл.ПолноеИмя); |
427 | 437 |
|
428 | 438 | Лог.Отладка("Командная строка распаковки: " + КоманднаяСтрокаРаспаковки);
|
429 | 439 |
|
|
441 | 451 | .ЭтоИстина();
|
442 | 452 |
|
443 | 453 | КоманднаяСтрокаV8Reader = СтрШаблон("/C""decompile;pathtocf;%1;pathout;%2;convert-mxl2txt;ЗавершитьРаботуПосле;""",
|
444 |
| - Файл.ПолноеИмя, ?(ЭтоМакет, Файл.Путь, ПапкаИсходников.ПолноеИмя)); |
| 454 | + Файл.ПолноеИмя, ?(ЭтоМакет, Файл.Путь, ВременнаяПапкаИсходников)); |
445 | 455 |
|
446 | 456 | Лог.Отладка("Командная строка V8Reader: " + КоманднаяСтрокаV8Reader);
|
447 | 457 |
|
|
454 | 464 | Конфигуратор.ВыполнитьКоманду(Параметры);
|
455 | 465 | Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
|
456 | 466 |
|
| 467 | + Если Не ЭтоМакет Тогда |
| 468 | + Если НайтиФайлы(ВременнаяПапкаИсходников, "*").Количество() = 0 Тогда |
| 469 | + ВызватьИсключение СтрШаблон("Не удалось разобрать на исходники %1", Файл.ПолноеИмя); |
| 470 | + КонецЕсли; |
| 471 | + ОбеспечитьПустойКаталог(ПапкаИсходников); |
| 472 | + Лог.Отладка("Копируем исходники из временного каталога в целевой: " + ПапкаИсходников.ПолноеИмя); |
| 473 | + КопироватьСодержимоеКаталога(ВременнаяПапкаИсходников, ПапкаИсходников.ПолноеИмя); |
| 474 | + КонецЕсли; |
| 475 | + |
457 | 476 | КонецПроцедуры
|
458 | 477 |
|
459 | 478 | Процедура УстановитьУровеньЛогаКонфигуратораРавнымУровнюПродукта()
|
|
0 commit comments