1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2024-12-27 02:43:54 +02:00
Code Issues Releases Activity

Main build (Jenkins)

Browse Source
This commit is contained in:
Vitaly the Alpaca (bot) 2024-12-15 15:19:03 +03:00
parent 0522ace68d
commit 3ef4fe6903
12 changed files with 5906 additions and 5806 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11372
service/dictionaries/en.json
View File

File diff suppressed because it is too large Load Diff

2
src/en/OInt/core/Modules/OPI_Dropbox.os
View File

@ -867,7 +867,7 @@ Function UploadLargeFile(Val Token, Val File, Val Path, Val Mode)
KBytes = 1024;
MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte));
OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
RunGarbageCollection();
FreeObject(CurrentData);

2
src/en/OInt/core/Modules/OPI_GoogleDrive.os
View File

@ -674,7 +674,7 @@ Function UploadFileInParts(Val Binary, Val UploadURL)
KBytes = 1024;
MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte));
OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
RunGarbageCollection();
FreeObject(CurrentData);

4
src/en/OInt/core/Modules/OPI_S3.os
View File

@ -1718,7 +1718,7 @@ Function GetObjectInChunks(Val BasicData
KBytes = 1024;
MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte));
OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
RunGarbageCollection();
FreeObject(InterimResult);
@ -1831,7 +1831,7 @@ Function UploadObjectInParts(Val Name
KBytes = 1024;
MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(BytesRead, TotalSize, "MB", MByte));
OPI_Tools.ProgressInformation(BytesRead, TotalSize, "MB", MByte);
RunGarbageCollection();
FreeObject(CurrentData);

58
src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os
View File

@ -36,6 +36,7 @@
//@skip-check module-structure-top-region
//@skip-check module-structure-method-in-regions
//@skip-check wrong-string-literal-content
//@skip-check use-non-recommended-method
#Region Internal
@ -889,7 +890,11 @@ Function IsOneScript() Export
EndFunction
Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export
Procedure ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export
If Not IsOneScript() Then
Return;
EndIf;
Whole = 100;
Current = Round(Current / Divider, 2);
@ -900,11 +905,26 @@ Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1)
StrTotal = NumberToString(Total);
StrPercentage = NumberToString(Percent);
Information = StrCurrent + "/" + StrTotal + " " + Unit + " ( " + StrPercentage + "% )";
Progress = "Progress [" + StrPercentage + "%" + "] ▐";
Information = "▌ " + StrCurrent + "/" + StrTotal + " " + Unit;
Return Information;
// Progress bat
BarLength = 30;
Counter = 0;
Buffer = "";
EndFunction
Indicator = Int(Current / Total * BarLength);
WHile Counter < BarLength Loop
Buffer = Buffer + ?(Counter < Indicator, "█", " ");
Counter = Counter + 1;
EndDo;
WriteOnCurrentLine(Progress, , True);
WriteOnCurrentLine(Buffer , "Green");
WriteOnCurrentLine(Information);
EndProcedure
#EndRegion
@ -1281,6 +1301,36 @@ Procedure XMLInitialProcessing(XML)
EndProcedure
Procedure WriteOnCurrentLine(Val Text, Val Color = "", Val ToStart = False) Export
If Not IsOneScript() Then
Console = Undefined;
ConsoleColor = New Map;
EndIf;
Encoding = Console.OutputEncoding;
OutputStream = Console.OpenStandardOutput();
OutputWriting = New DataWriter(OutputStream, Encoding);
If Not ValueIsFilled(Color) Then
Color = ConsoleColor.White;
EndIf;
If TypeOf(Color) = Type("String") Then
Console.TextColor = ConsoleColor[Color];
Else
Console.TextColor = Color;
EndIf;
If ToStart Then
Escape = Chars.CR;
OutputWriting.WriteChars(Escape);
EndIf;
OutputWriting.WriteChars(Text);
EndProcedure
Function ExecuteRequestWithBody(Val URL, Val View, Val Parameters = "", Val AdditionalHeaders = "", Val JSON = True,
Val FullResponse = False, Val ResponseFile = Undefined)

6
src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl
View File

@ -865,9 +865,9 @@ Function UploadLargeFile(Val Token, Val File, Val Path, Val Mode)
CurrentPosition = NextPosition;
// !OInt KB = 1024;
// !OInt MB = KB * KB;
// !OInt Message(OPI_Tools.ProgressInfo(CurrentPosition, TotalSize, "MB", MB));
KBytes = 1024;
MByte = KBytes * KBytes;
OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection();
// !OInt FreeObject(CurrentData);

6
src/en/OPI/src/CommonModules/OPI_GoogleDrive/Module.bsl
View File

@ -672,9 +672,9 @@ Function UploadFileInParts(Val Binary, Val UploadURL)
Return CheckResult;
EndIf;
// !OInt KB = 1024;
// !OInt MB = KB * KB;
// !OInt Message(OPI_Tools.ProgressInfo(CurrentPosition, TotalSize, "MB", MB));
KBytes = 1024;
MByte = KBytes * KBytes;
OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection();
// !OInt FreeObject(CurrentData);

12
src/en/OPI/src/CommonModules/OPI_S3/Module.bsl
View File

@ -1716,9 +1716,9 @@ Function GetObjectInChunks(Val BasicData
InterimResult = GetFullObject(BasicData, SourceHeader);
FileWriter.Write(InterimResult);
// !OInt KB = 1024;
// !OInt MB = KB * KB;
// !OInt Message(OPI_Tools.ProgressInfo(CurrentPosition, TotalSize, "MB", MB));
KBytes = 1024;
MByte = KBytes * KBytes;
OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection();
// !OInt FreeObject(InterimResult);
@ -1829,9 +1829,9 @@ Function UploadObjectInParts(Val Name
TagsArray.Add(ETag);
// !OInt KB = 1024;
// !OInt MB = KB * KB;
// !OInt Message(OPI_Tools.ProgressInfo(BytesRead, TotalSize, "MB", MB));
KBytes = 1024;
MByte = KBytes * KBytes;
OPI_Tools.ProgressInformation(BytesRead, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection();
// !OInt FreeObject(CurrentData);

58
src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl
View File

@ -36,6 +36,7 @@
//@skip-check module-structure-top-region
//@skip-check module-structure-method-in-regions
//@skip-check wrong-string-literal-content
//@skip-check use-non-recommended-method
#Region Internal
@ -889,7 +890,11 @@ Function IsOneScript() Export
EndFunction
Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export
Procedure ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export
If Not IsOneScript() Then
Return;
EndIf;
Whole = 100;
Current = Round(Current / Divider, 2);
@ -900,11 +905,26 @@ Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1)
StrTotal = NumberToString(Total);
StrPercentage = NumberToString(Percent);
Information = StrCurrent + "/" + StrTotal + " " + Unit + " ( " + StrPercentage + "% )";
Progress = "Progress [" + StrPercentage + "%" + "] ▐";
Information = "▌ " + StrCurrent + "/" + StrTotal + " " + Unit;
Return Information;
// Progress bat
BarLength = 30;
Counter = 0;
Buffer = "";
EndFunction
Indicator = Int(Current / Total * BarLength);
WHile Counter < BarLength Loop
Buffer = Buffer + ?(Counter < Indicator, "█", " ");
Counter = Counter + 1;
EndDo;
WriteOnCurrentLine(Progress, , True);
WriteOnCurrentLine(Buffer , "Green");
WriteOnCurrentLine(Information);
EndProcedure
#EndRegion
@ -1281,6 +1301,36 @@ Procedure XMLInitialProcessing(XML)
EndProcedure
Procedure WriteOnCurrentLine(Val Text, Val Color = "", Val ToStart = False) Export
If Not IsOneScript() Then
Console = Undefined;
ConsoleColor = New Map;
EndIf;
Encoding = Console.OutputEncoding;
OutputStream = Console.OpenStandardOutput();
OutputWriting = New DataWriter(OutputStream, Encoding);
If Not ValueIsFilled(Color) Then
Color = ConsoleColor.White;
EndIf;
If TypeOf(Color) = Type("String") Then
Console.TextColor = ConsoleColor[Color];
Else
Console.TextColor = Color;
EndIf;
If ToStart Then
Escape = Chars.CR;
OutputWriting.WriteChars(Escape);
EndIf;
OutputWriting.WriteChars(Text);
EndProcedure
Function ExecuteRequestWithBody(Val URL, Val View, Val Parameters = "", Val AdditionalHeaders = "", Val JSON = True,
Val FullResponse = False, Val ResponseFile = Undefined)

4
src/ru/OInt/tools/Modules/OPI_ПолучениеДанныхТестов.os
View File

@ -2060,9 +2060,9 @@
КонецФункции
Функция ПолучитьОбщийМодуль(Знач Имя)
Модуль = Вычислить(Имя);
Возврат Модуль;
КонецФункции

94
src/ru/OInt/tools/Modules/internal/Modules/OPI_Инструменты.os
View File

@ -892,10 +892,10 @@
Процедура ИнформацияОПрогрессе(Знач Текущее, Знач Всего, Знач ЕдИзм, Знач Делитель = 1) Экспорт
Если Не ЭтоOneScript() Тогда
Возврат;
КонецЕсли;
Если Не ЭтоOneScript() Тогда
Возврат;
КонецЕсли;
Целое = 100;
Текущее = Окр(Текущее / Делитель, 2);
Всего = Окр(Всего / Делитель, 2);
@ -907,23 +907,23 @@
Прогресс = "Прогресс [" + СтрПроцент + "%" + "] ▐";
Информация = "▌ " + СтрТекущее + "/" + СтрВсего + " " + ЕдИзм;
// Прогресс бар
ДлинаПолоски = 30;
Счетчик = 0;
Буфер = "";
Показатель = Цел(Текущее / Всего * ДлинаПолоски);
Пока Счетчик < ДлинаПолоски Цикл
Буфер = Буфер + ?(Счетчик < Показатель, "█", " ");
Счетчик = Счетчик + 1;
КонецЦикла;
ВывестиТекстВТекущуюСтроку(Прогресс, , Истина);
ВывестиТекстВТекущуюСтроку(Буфер, "Зеленый");
ВывестиТекстВТекущуюСтроку(Информация);
ДлинаПолоски = 30;
Счетчик = 0;
Буфер = "";
Показатель = Цел(Текущее / Всего * ДлинаПолоски);
Пока Счетчик < ДлинаПолоски Цикл
Буфер = Буфер + ?(Счетчик < Показатель, "█", " ");
Счетчик = Счетчик + 1;
КонецЦикла;
ВывестиТекстВТекущуюСтроку(Прогресс, , Истина);
ВывестиТекстВТекущуюСтроку(Буфер , "Зеленый");
ВывестиТекстВТекущуюСтроку(Информация);
КонецПроцедуры
#КонецОбласти
@ -1302,33 +1302,33 @@
КонецПроцедуры
Процедура ВывестиТекстВТекущуюСтроку(Знач Текст, Знач Цвет = "", Знач ВНачало = Ложь) Экспорт
Если Не ЭтоOneScript() Тогда
Консоль = Неопределено;
ЦветКонсоли = Новый Соответствие;
КонецЕсли;
Кодировка = Консоль.КодировкаВыходногоПотока;
ПотовкВывода = Консоль.ОткрытьСтандартныйПотокВывода();
ЗаписьВывода = Новый ЗаписьДанных(ПотовкВывода, Кодировка);
Если НЕ ЗначениеЗаполнено(Цвет) Тогда
Цвет = ЦветКонсоли.Белый;
КонецЕсли;
Если ТипЗнч(Цвет) = Тип("Строка") Тогда
Консоль.ЦветТекста = ЦветКонсоли[Цвет];
Иначе
Консоль.ЦветТекста = Цвет;
КонецЕсли;
Если ВНачало Тогда
Ескейп = Символы.ВК;
ЗаписьВывода.ЗаписатьСимволы(Ескейп);
КонецЕсли;
ЗаписьВывода.ЗаписатьСимволы(Текст);
Если Не ЭтоOneScript() Тогда
Консоль = Неопределено;
ЦветКонсоли = Новый Соответствие;
КонецЕсли;
Кодировка = Консоль.КодировкаВыходногоПотока;
ПотокВывода = Консоль.ОткрытьСтандартныйПотокВывода();
ЗаписьВывода = Новый ЗаписьДанных(ПотокВывода, Кодировка);
Если Не ЗначениеЗаполнено(Цвет) Тогда
Цвет = ЦветКонсоли.Белый;
КонецЕсли;
Если ТипЗнч(Цвет) = Тип("Строка") Тогда
Консоль.ЦветТекста = ЦветКонсоли[Цвет];
Иначе
Консоль.ЦветТекста = Цвет;
КонецЕсли;
Если ВНачало Тогда
Ескейп = Символы.ВК;
ЗаписьВывода.ЗаписатьСимволы(Ескейп);
КонецЕсли;
ЗаписьВывода.ЗаписатьСимволы(Текст);
КонецПроцедуры
Функция ВыполнитьЗапросСТелом(Знач URL, Знач Вид, Знач Параметры = "", Знач ДопЗаголовки = "", Знач JSON = Истина,

94
src/ru/OPI/src/CommonModules/OPI_Инструменты/Module.bsl
View File

@ -892,10 +892,10 @@
Процедура ИнформацияОПрогрессе(Знач Текущее, Знач Всего, Знач ЕдИзм, Знач Делитель = 1) Экспорт
Если Не ЭтоOneScript() Тогда
Возврат;
КонецЕсли;
Если Не ЭтоOneScript() Тогда
Возврат;
КонецЕсли;
Целое = 100;
Текущее = Окр(Текущее / Делитель, 2);
Всего = Окр(Всего / Делитель, 2);
@ -907,23 +907,23 @@
Прогресс = "Прогресс [" + СтрПроцент + "%" + "] ▐";
Информация = "▌ " + СтрТекущее + "/" + СтрВсего + " " + ЕдИзм;
// Прогресс бар
ДлинаПолоски = 30;
Счетчик = 0;
Буфер = "";
Показатель = Цел(Текущее / Всего * ДлинаПолоски);
Пока Счетчик < ДлинаПолоски Цикл
Буфер = Буфер + ?(Счетчик < Показатель, "█", " ");
Счетчик = Счетчик + 1;
КонецЦикла;
ВывестиТекстВТекущуюСтроку(Прогресс, , Истина);
ВывестиТекстВТекущуюСтроку(Буфер, "Зеленый");
ВывестиТекстВТекущуюСтроку(Информация);
ДлинаПолоски = 30;
Счетчик = 0;
Буфер = "";
Показатель = Цел(Текущее / Всего * ДлинаПолоски);
Пока Счетчик < ДлинаПолоски Цикл
Буфер = Буфер + ?(Счетчик < Показатель, "█", " ");
Счетчик = Счетчик + 1;
КонецЦикла;
ВывестиТекстВТекущуюСтроку(Прогресс, , Истина);
ВывестиТекстВТекущуюСтроку(Буфер , "Зеленый");
ВывестиТекстВТекущуюСтроку(Информация);
КонецПроцедуры
#КонецОбласти
@ -1302,33 +1302,33 @@
КонецПроцедуры
Процедура ВывестиТекстВТекущуюСтроку(Знач Текст, Знач Цвет = "", Знач ВНачало = Ложь) Экспорт
Если Не ЭтоOneScript() Тогда
Консоль = Неопределено;
ЦветКонсоли = Новый Соответствие;
КонецЕсли;
Кодировка = Консоль.КодировкаВыходногоПотока;
ПотокВывода = Консоль.ОткрытьСтандартныйПотокВывода();
ЗаписьВывода = Новый ЗаписьДанных(ПотокВывода, Кодировка);
Если Не ЗначениеЗаполнено(Цвет) Тогда
Цвет = ЦветКонсоли.Белый;
КонецЕсли;
Если ТипЗнч(Цвет) = Тип("Строка") Тогда
Консоль.ЦветТекста = ЦветКонсоли[Цвет];
Иначе
Консоль.ЦветТекста = Цвет;
КонецЕсли;
Если ВНачало Тогда
Ескейп = Символы.ВК;
ЗаписьВывода.ЗаписатьСимволы(Ескейп);
КонецЕсли;
ЗаписьВывода.ЗаписатьСимволы(Текст);
Если Не ЭтоOneScript() Тогда
Консоль = Неопределено;
ЦветКонсоли = Новый Соответствие;
КонецЕсли;
Кодировка = Консоль.КодировкаВыходногоПотока;
ПотокВывода = Консоль.ОткрытьСтандартныйПотокВывода();
ЗаписьВывода = Новый ЗаписьДанных(ПотокВывода, Кодировка);
Если Не ЗначениеЗаполнено(Цвет) Тогда
Цвет = ЦветКонсоли.Белый;
КонецЕсли;
Если ТипЗнч(Цвет) = Тип("Строка") Тогда
Консоль.ЦветТекста = ЦветКонсоли[Цвет];
Иначе
Консоль.ЦветТекста = Цвет;
КонецЕсли;
Если ВНачало Тогда
Ескейп = Символы.ВК;
ЗаписьВывода.ЗаписатьСимволы(Ескейп);
КонецЕсли;
ЗаписьВывода.ЗаписатьСимволы(Текст);
КонецПроцедуры
Функция ВыполнитьЗапросСТелом(Знач URL, Знач Вид, Знач Параметры = "", Знач ДопЗаголовки = "", Знач JSON = Истина,