Merge pull request #2236 from alkoleft/feature/2235

Feature/2235

compile.sh

@@ -0,0 +1,7 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+
+oscript ./lib/packages.os download
+oscript ./tools/onescript/ZipTemplates.os
+oscript ./tools/onescript/Compile.os ./

decompile.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+
+oscript ./tools/onescript/Decompile.os ./ CheckDif

tools/onescript/Compile.os

@@ -13,65 +13,6 @@
 	Sleep(5000);
 КонецПроцедуры 
 
-// Перемещаят найденные по маскам файлы с сохранением пути.
-//
-// Параметры:
-//  КаталогКуда - Строка - Путь к каталогу в который переносятся файлы;
-//  КаталогиОткуда 		 - Массив - Пути к каталогам в которых осуществляется поиск файлов;
-//  МассивМасок 		 - Массив - Маски, по которым осуществляется поиск файлов.
-//
-// Взято из https://infostart.ru/public/537028/
-Процедура ПереместитьФайлыВКаталог(КаталогКуда, КаталогиОткуда, МассивМасок)
-
- 	Для Каждого КаталогПоиска Из КаталогиОткуда Цикл
-		КаталогПоискаОбъект = Новый Файл(КаталогПоиска);
-		Если НЕ КаталогПоискаОбъект.Существует() Тогда
-			Лог.Ошибка(НСтр("ru='Каталог не найден.';en='Folder not found.'"));
-			Продолжить;
-		КонецЕсли;
-
-		Для Каждого Маска Из МассивМасок Цикл
-
-			МассивФайлов = НайтиФайлы(КаталогПоиска, Маска, Истина); 
-			Для Каждого НайденныйФайл Из МассивФайлов Цикл
-
-				НовыйПуть = СтрЗаменить(НайденныйФайл.Путь, КаталогПоиска, КаталогКуда);
-				НовоеИмя = НайденныйФайл.Имя; 			
-
-				Если НЕ ОбеспечитьКаталог(НовыйПуть) Тогда 
-					Продолжить; 
-				КонецЕсли;
-
-				Если НайденныйФайл.ЭтоКаталог() Тогда
-					Продолжить;
-				КонецЕсли;	 
-
-
-				ИмяФайлаДляПеремещения = ОбъединитьПути(НовыйПуть, НовоеИмя);
-				УдалитьФайлы(ИмяФайлаДляПеремещения);
-
-				Попытка
-					ПереместитьФайл(НайденныйФайл.ПолноеИмя,ИмяФайлаДляПеремещения);
-				Исключение
-					Лог.Ошибка(СтрШаблон(НСтр("ru='Не удалось переместить файл:
-|%1';en='Failed to move file:
-|%1'"), ОписаниеОшибки()));
-					Продолжить;
-				КонецПопытки;
-
-				ФайлНаДиске = Новый Файл(ОбъединитьПути(НовыйПуть, НовоеИмя));
-			    Если НЕ ФайлНаДиске.Существует() Тогда
-					Лог.Ошибка(НСтр("ru='Не удалось корректно переместить файл.';en='Failed to correctly move the file.'"));
-					Продолжить;
-			    КонецЕсли;
-			КонецЦикла;	
-
-		КонецЦикла;	
-
-  	КонецЦикла;	
-
-КонецПроцедуры
-
 // Проверяет наличия каталога и в случае его отсутствия создает новый.
 //
 // Параметры:
@@ -406,6 +347,7 @@
 
 Лог = Логирование.ПолучитьЛог("vb.compile.log");
 Лог.УстановитьУровень(УровниЛога.Отладка);
+Лог.Информация("Сбора артефактов");
 
 МинимальнаяВерсияПлатформы = "8.3.17";
 ОшибкаОтсутствияМинимальнойВерсииПлатформы = "!!!Необходимо установить платформу " + МинимальнаяВерсияПлатформы;