|
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