You've already forked OpenIntegrations
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:
16704
service/dictionaries/en.json
vendored
16704
service/dictionaries/en.json
vendored
File diff suppressed because it is too large
Load Diff
@ -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
|
||||||
|
@ -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
|
||||||
|
2
src/en/cli/core/Classes/app.os
vendored
2
src/en/cli/core/Classes/app.os
vendored
@ -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);
|
||||||
|
42
src/en/cli/data/Classes/LibraryComposition.os
vendored
42
src/en/cli/data/Classes/LibraryComposition.os
vendored
@ -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
|
@ -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""";
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Иначе
|
Иначе
|
||||||
|
@ -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
|
Reference in New Issue
Block a user