Main build (Jenkins)

src/en/OInt/tests/Modules/Coverage_ЗапускВсехТестов.os

@@ -26,4 +26,11 @@ EndDo;
 
 
 
+#EndRegion
+
+
+#Region Alternate
+
+
+
 #EndRegion

src/en/cli/data/Classes/LibraryComposition.os

@@ -187,10 +187,4 @@ Function СформироватьСтрокуВызоваМетода(Val Пер
 	Return FormMethodCallString(ПереданныеПараметры, Команда, Метод);
 EndFunction
 
-#EndRegion
-
-#Region Alternate
-
-
-
 #EndRegion

src/en/cli/env/Classes/CommandLineArgumentParser.os

@@ -1,4 +1,4 @@
-Var mParams;
+Var mParams;
 Var mPositionParams;
 
 Var mCommands;
@@ -431,3 +431,88 @@ Function AddCollectionParamToTable(Val Table, Val Name, Val Explanation)
 EndFunction
 
 Init();
+
+
+#Region Alternate
+
+Function ДобавитьПараметр(Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddParameter(ИмяПараметра, Пояснение);
+EndFunction
+
+Function ДобавитьИменованныйПараметр(Val ИмяПараметра, Val Пояснение = "", Val Глобальный = False) Export
+	Return AddNamedParam(ИмяПараметра, Пояснение, Глобальный);
+EndFunction
+
+Function ДобавитьПараметрФлаг(Val ИмяПараметра, Val Пояснение = "", Val Глобальный = False) Export
+	Return AddFlagParam(ИмяПараметра, Пояснение, Глобальный);
+EndFunction
+
+Function ДобавитьПараметрКоллекция(Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddCollectionParam(ИмяПараметра, Пояснение);
+EndFunction
+
+Function ОписаниеКоманды(Val ИмяКоманды, Val Пояснение = "") Export
+	Return CommandDescription(ИмяКоманды, Пояснение);
+EndFunction
+
+Procedure ДобавитьКоманду(Val ОписаниеКоманды) Export
+	AddCommand(ОписаниеКоманды);
+EndProcedure
+
+Function ПолучитьКоманду(Val ИмяКоманды) Export
+	Return GetCommand(ИмяКоманды);
+EndFunction
+
+Function ДобавитьПозиционныйПараметрКоманды(Val ОписаниеКоманды, Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddPositionalCommandParameter(ОписаниеКоманды, ИмяПараметра, Пояснение);
+EndFunction
+
+Function ДобавитьИменованныйПараметрКоманды(Val ОписаниеКоманды, Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddNamedCommandParameter(ОписаниеКоманды, ИмяПараметра, Пояснение);
+EndFunction
+
+Function ДобавитьПараметрФлагКоманды(Val ОписаниеКоманды, Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddCommandFlagParameter(ОписаниеКоманды, ИмяПараметра, Пояснение);
+EndFunction
+
+Function ДобавитьПараметрКоллекцияКоманды(Val ОписаниеКоманды, Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddCommandCollectionParam(ОписаниеКоманды, ИмяПараметра, Пояснение);
+EndFunction
+
+Function ДобавитьИменованныйПараметрКоллекцияКоманды(Val ОписаниеКоманды, Val ИмяПараметра, Val Пояснение = "") Export
+	Return AddNamedCommandCollectionParam(ОписаниеКоманды, ИмяПараметра, Пояснение);
+EndFunction
+
+Function РазобратьКоманду(Val МассивПараметров) Export
+	Return ParseCommand(МассивПараметров);
+EndFunction
+
+Function Разобрать(Val ВходнойМассивПараметров) Export
+	Return Parse(ВходнойМассивПараметров);
+EndFunction
+
+Function СправкаПоПараметрам() Export
+	Return ParamsHelp();
+EndFunction
+
+Procedure ВывестиСправкуПоПараметрам() Export
+	DisplayParameterHelp();
+EndProcedure
+
+Function СправкаПоКоманде(Val ИмяКоманды) Export
+	Return CommandHelp(ИмяКоманды);
+EndFunction
+
+Function СправкаВозможныеКоманды() Export
+	Return HelpAvailableCommand();
+EndFunction
+
+Procedure ВывестиСправкуПоКомандам() Export
+	ShowCommandsHelp();
+EndProcedure
+
+Procedure ВывестиСправкуПоКоманде(Val ИмяКоманды) Export
+	ShowCommandHelp(ИмяКоманды);
+EndProcedure
+
+#EndRegion

src/en/cli/env/Modules/ColorOutput.os

@@ -1,4 +1,4 @@
-#Region Public
+#Region Public
 
 Procedure Message(Val MessageText = "", Val pMessageStatus = Undefined) Export
 	
@@ -144,3 +144,20 @@ Function ColoredSubstringPattern()
 EndFunction
 
 #EndRegion
+
+
+#Region Alternate
+
+Procedure Сообщить(Val ТекстСообщения = "", Val пСтатусСообщения = Undefined) Export
+	Message(ТекстСообщения, пСтатусСообщения);
+EndProcedure
+
+Procedure ВывестиСтроку(Val ТекстСообщения = "", Val ЦветТекста = Undefined) Export
+	WriteLine(ТекстСообщения, ЦветТекста);
+EndProcedure
+
+Procedure Вывести(Val ТекстСообщения, Val ЦветТекста = Undefined) Export
+	Write(ТекстСообщения, ЦветТекста);
+EndProcedure
+
+#EndRegion

src/ru/OInt/tests/Modules/Coverage_ЗапускВсехТестов.os

@@ -26,4 +26,11 @@
 
 
 
+#EndRegion
+
+
+#Region Alternate
+
+
+
 #EndRegion

src/ru/cli/env/Classes/CommandLineArgumentParser.os

@@ -1,4 +1,4 @@
-Перем мПараметры;
+Перем мПараметры;
 Перем мПозиционныеПараметры;
 
 Перем мКоманды;
@@ -431,3 +431,88 @@
 КонецФункции
 
 Инит();
+
+
+#Region Alternate
+
+Function AddParameter(Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьПараметр(ParameterName, Explanation);
+EndFunction
+
+Function AddNamedParam(Val ParameterName, Val Explanation = "", Val Global = False) Export
+	Return ДобавитьИменованныйПараметр(ParameterName, Explanation, Global);
+EndFunction
+
+Function AddFlagParam(Val ParameterName, Val Explanation = "", Val Global = False) Export
+	Return ДобавитьПараметрФлаг(ParameterName, Explanation, Global);
+EndFunction
+
+Function AddCollectionParam(Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьПараметрКоллекция(ParameterName, Explanation);
+EndFunction
+
+Function CommandDescription(Val CommandName, Val Explanation = "") Export
+	Return ОписаниеКоманды(CommandName, Explanation);
+EndFunction
+
+Procedure AddCommand(Val CommandDescription) Export
+	ДобавитьКоманду(CommandDescription);
+EndProcedure
+
+Function GetCommand(Val CommandName) Export
+	Return ПолучитьКоманду(CommandName);
+EndFunction
+
+Function AddPositionalCommandParameter(Val CommandDescription, Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьПозиционныйПараметрКоманды(CommandDescription, ParameterName, Explanation);
+EndFunction
+
+Function AddNamedCommandParameter(Val CommandDescription, Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьИменованныйПараметрКоманды(CommandDescription, ParameterName, Explanation);
+EndFunction
+
+Function AddCommandFlagParameter(Val CommandDescription, Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьПараметрФлагКоманды(CommandDescription, ParameterName, Explanation);
+EndFunction
+
+Function AddCommandCollectionParam(Val CommandDescription, Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьПараметрКоллекцияКоманды(CommandDescription, ParameterName, Explanation);
+EndFunction
+
+Function AddNamedCommandCollectionParam(Val CommandDescription, Val ParameterName, Val Explanation = "") Export
+	Return ДобавитьИменованныйПараметрКоллекцияКоманды(CommandDescription, ParameterName, Explanation);
+EndFunction
+
+Function ParseCommand(Val ParameterArray) Export
+	Return РазобратьКоманду(ParameterArray);
+EndFunction
+
+Function Parse(Val InputParamsArray) Export
+	Return Разобрать(InputParamsArray);
+EndFunction
+
+Function ParamsHelp() Export
+	Return СправкаПоПараметрам();
+EndFunction
+
+Procedure DisplayParameterHelp() Export
+	ВывестиСправкуПоПараметрам();
+EndProcedure
+
+Function CommandHelp(Val CommandName) Export
+	Return СправкаПоКоманде(CommandName);
+EndFunction
+
+Function HelpAvailableCommand() Export
+	Return СправкаВозможныеКоманды();
+EndFunction
+
+Procedure ShowCommandsHelp() Export
+	ВывестиСправкуПоКомандам();
+EndProcedure
+
+Procedure ShowCommandHelp(Val CommandName) Export
+	ВывестиСправкуПоКоманде(CommandName);
+EndProcedure
+
+#EndRegion

src/ru/cli/env/Modules/ColorOutput.os

@@ -144,3 +144,20 @@
 КонецФункции
 
 #КонецОбласти
+
+
+#Region Alternate
+
+Procedure Message(Val MessageText = "", Val pMessageStatus = Undefined) Export
+	Сообщить(MessageText, pMessageStatus);
+EndProcedure
+
+Procedure WriteLine(Val MessageText = "", Val TextColor = Undefined) Export
+	ВывестиСтроку(MessageText, TextColor);
+EndProcedure
+
+Procedure Write(Val MessageText, Val TextColor = Undefined) Export
+	Вывести(MessageText, TextColor);
+EndProcedure
+
+#EndRegion