1
0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-07-17 01:42:25 +02:00

Main build (Jenkins)

This commit is contained in:
Vitaly the Alpaca (bot)
2025-07-12 20:14:00 +03:00
parent 18ff246b67
commit 1915d4e4aa
7 changed files with 8363 additions and 8429 deletions

File diff suppressed because it is too large Load Diff

View File

@ -578,9 +578,9 @@ Function ExecuteTestCLI(Val Library, Val Method, Val Options, Val Record = True)
If OPI_Tools.IsWindows() Then If OPI_Tools.IsWindows() Then
If OPI_Tools.IsOneScript() Then If OPI_Tools.IsOneScript() Then
Oint = "oint";
Else
Oint = """C:\Program Files (x86)\OInt\bin\oint.bat"""; Oint = """C:\Program Files (x86)\OInt\bin\oint.bat""";
Else
Oint = """C:\Program Files\OneScript\bin\oint.bat""";
EndIf; EndIf;
Else Else

View File

@ -578,9 +578,9 @@ Function ExecuteTestCLI(Val Library, Val Method, Val Options, Val Record = True)
If OPI_Tools.IsWindows() Then If OPI_Tools.IsWindows() Then
If OPI_Tools.IsOneScript() Then If OPI_Tools.IsOneScript() Then
Oint = "oint";
Else
Oint = """C:\Program Files (x86)\OInt\bin\oint.bat"""; Oint = """C:\Program Files (x86)\OInt\bin\oint.bat""";
Else
Oint = """C:\Program Files\OneScript\bin\oint.bat""";
EndIf; EndIf;
Else Else

View File

@ -135,7 +135,7 @@ Function GetProcessingResult(Val Command, Val Parameters)
Help.DisplayParameterHelp(MethodParameters); Help.DisplayParameterHelp(MethodParameters);
EndIf; EndIf;
ExecutionStructure = OPIObject.FormMethodCallString(Parameters, Command, Method, "OPIObject"); ExecutionStructure = OPIObject.FormMethodCallString(Parameters, Command, Method);
If ExecutionStructure["Error"] Then If ExecutionStructure["Error"] Then
Help.DisplayExceptionMessage(ExecutionStructure["Result"], OutputFile); Help.DisplayExceptionMessage(ExecutionStructure["Result"], OutputFile);

View File

@ -119,11 +119,10 @@ Function GetFullComposition() Export
EndFunction EndFunction
Function FormMethodCallString(Val PassedParameters, Val Command, Val Method, Val CurrentObjectName = "") Export Function FormMethodCallString(Val PassedParameters, Val Command, Val Method) Export
Module = GetCommandModuleMapping().Get(Command); Module = GetCommandModuleMapping().Get(Command);
IndexObject = GetIndexData(Command); IndexObject = GetIndexData(Command);
CurrentObjectName = ?(ValueIsFilled(CurrentObjectName), CurrentObjectName + ".", "");
If Not ValueIsFilled(Module) Then If Not ValueIsFilled(Module) Then
Return New Structure("Error,Result", True, "Command"); Return New Structure("Error,Result", True, "Command");
@ -159,8 +158,7 @@ Function FormMethodCallString(Val PassedParameters, Val Command, Val Method, Val
If RequiresProcessingOfEscapeSequences(ParameterName, ParameterValue) Then If RequiresProcessingOfEscapeSequences(ParameterName, ParameterValue) Then
ExecutionText = ExecutionText ExecutionText = ExecutionText
+ Chars.LF + Chars.LF
+ CurrentObjectName + "OPI_Tools.ReplaceEscapeSequences(" + ParameterName + ");";
+ "ReplaceEscapeSequences(" + ParameterName + ");";
EndIf; EndIf;
CallString = CallString + ParameterName + ", "; CallString = CallString + ParameterName + ", ";
@ -210,34 +208,6 @@ Function RequiresProcessingOfEscapeSequences(Val ParameterName, Val ParameterVal
EndFunction EndFunction
Procedure ReplaceEscapeSequences(Text) Export
Text = String(Text);
CharacterMapping = GetEscapeSequencesMap();
For Each Symbol In CharacterMapping Do
Text = StrReplace(Text, Symbol.Key, Symbol.Value);
Text = StrReplace(Text, "\" + Symbol.Value, Symbol.Key);
EndDo;
EndProcedure
Function GetEscapeSequencesMap()
CharacterMapping = New Map;
CharacterMapping.Insert("\n" , Chars.LF);
CharacterMapping.Insert("\r" , Chars.CR);
CharacterMapping.Insert("\f" , Chars.FF);
CharacterMapping.Insert("\v" , Chars.VTab);
Return CharacterMapping;
EndFunction
#Region Alternate #Region Alternate
Procedure ИнициализироватьОсновныеСписки() Export Procedure ИнициализироватьОсновныеСписки() Export
@ -260,16 +230,12 @@ Function ПолучитьПолныйСостав() Export
Return GetFullComposition(); Return GetFullComposition();
EndFunction EndFunction
Function СформироватьСтрокуВызоваМетода(Val ПереданныеПараметры, Val Команда, Val Метод, Val ИмяТекущегоОбъекта = "") Export Function СформироватьСтрокуВызоваМетода(Val ПереданныеПараметры, Val Команда, Val Метод) Export
Return FormMethodCallString(ПереданныеПараметры, Команда, Метод, ИмяТекущегоОбъекта); Return FormMethodCallString(ПереданныеПараметры, Команда, Метод);
EndFunction EndFunction
Procedure ДополнитьКэшСостава(Val Библиотека, Val ТаблицаПараметров, Команда = "") Export Procedure ДополнитьКэшСостава(Val Библиотека, Val ТаблицаПараметров, Команда = "") Export
CompleteCompositionCache(Библиотека, ТаблицаПараметров, Команда); CompleteCompositionCache(Библиотека, ТаблицаПараметров, Команда);
EndProcedure EndProcedure
Procedure ЗаменитьУправляющиеПоследовательности(Текст) Export
ReplaceEscapeSequences(Текст);
EndProcedure
#EndRegion #EndRegion

View File

@ -578,9 +578,9 @@
Если OPI_Инструменты.ЭтоWindows() Тогда Если OPI_Инструменты.ЭтоWindows() Тогда
Если OPI_Инструменты.ЭтоOneScript() Тогда Если OPI_Инструменты.ЭтоOneScript() Тогда
Oint = "oint";
Иначе
Oint = """C:\Program Files (x86)\OInt\bin\oint.bat"""; Oint = """C:\Program Files (x86)\OInt\bin\oint.bat""";
Иначе
Oint = """C:\Program Files\OneScript\bin\oint.bat""";
КонецЕсли; КонецЕсли;
Иначе Иначе

View File

@ -208,34 +208,6 @@
КонецФункции КонецФункции
Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт
Текст = Строка(Текст);
СоответствиеСимволов = ПолучитьСоответствиеУправляющихПоследовательностей();
Для Каждого Символ Из СоответствиеСимволов Цикл
Текст = СтрЗаменить(Текст, Символ.Ключ, Символ.Значение);
Текст = СтрЗаменить(Текст, "\" + Символ.Значение, Символ.Ключ);
КонецЦикла;
КонецПроцедуры
Функция ПолучитьСоответствиеУправляющихПоследовательностей()
СоответствиеСимволов = Новый Соответствие;
СоответствиеСимволов.Вставить("\n" , Символы.ПС);
СоответствиеСимволов.Вставить("\r" , Символы.ВК);
СоответствиеСимволов.Вставить("\f" , Символы.ПФ);
СоответствиеСимволов.Вставить("\v" , Символы.ВТаб);
Возврат СоответствиеСимволов;
КонецФункции
#Region Alternate #Region Alternate
Procedure InitializeCommonLists() Export Procedure InitializeCommonLists() Export
@ -266,8 +238,4 @@ Procedure CompleteCompositionCache(Val Library, Val ParametersTable, Command = "
ДополнитьКэшСостава(Library, ParametersTable, Command); ДополнитьКэшСостава(Library, ParametersTable, Command);
EndProcedure EndProcedure
Procedure ReplaceEscapeSequences(Text) Export
ЗаменитьУправляющиеПоследовательности(Text);
EndProcedure
#EndRegion #EndRegion