generate bash completions dynamically from registered commands via autumn DI

Agent-Logs-Url: https://github.com/oscript-library/ovm/sessions/620f0b3d-4ded-4eb4-8aea-b21995ed3cb7

Co-authored-by: nixel2007 <1132840+nixel2007@users.noreply.github.com>

Author: Copilot

src/cmd/Классы/КомандаCompletions.os

@@ -1,6 +1,11 @@
+#Использовать annotations
+
 &ЛогOVM
 Перем Лог;
 
+&Пластилин
+Перем Поделка;
+
 &Опция(Имя = "shell s", Описание = "Тип оболочки для генерации автодополнения (поддерживается: bash)")
 &ТСтрока
 &ПоУмолчанию("bash")
@@ -24,6 +29,27 @@
 
 Функция СкриптАвтодополненияBash()
 
+	СписокКоманд = ПолучитьСписокКоманд();
+
+	МассивИменВсехКоманд = Новый Массив();
+	СтрокиCase = Новый Массив();
+
+	Для Каждого ОписаниеКоманды Из СписокКоманд Цикл
+		Для Каждого ИмяКоманды Из ОписаниеКоманды.Имена Цикл
+			МассивИменВсехКоманд.Добавить(ИмяКоманды);
+		КонецЦикла;
+
+		ПаттернCase = СтрСоединить(ОписаниеКоманды.Имена, "|");
+		СтрокаОпций = СтрСоединить(ОписаниеКоманды.Опции, " ");
+
+		СтрокиCase.Добавить("        " + ПаттернCase + ")");
+		СтрокиCase.Добавить("            COMPREPLY=($(compgen -W """ + СтрокаОпций + """ -- ""$cur""))");
+		СтрокиCase.Добавить("            ;;");
+	КонецЦикла;
+
+	ВсеКоманды = СтрСоединить(МассивИменВсехКоманд, " ");
+	ТелоCase = СтрСоединить(СтрокиCase, Символы.ПС);
+
 	Скрипт =
 "# ovm bash completions
 # Добавьте строку ниже в ~/.bashrc для активации автодополнения:
@@ -39,7 +65,7 @@ _ovm_completions() {
         cword=$COMP_CWORD
     }
 
-    local commands=""install i list ls use u which w config run r uninstall delete d completions""
+    local commands=""" + ВсеКоманды + """
 
     if [ $cword -eq 1 ]; then
         COMPREPLY=($(compgen -W ""$commands"" -- ""$cur""))
@@ -49,34 +75,7 @@ _ovm_completions() {
     local command=""${words[1]}""
 
     case ""$command"" in
-        install|i)
-            COMPREPLY=($(compgen -W ""--name --clean --x86 --fdd --help"" -- ""$cur""))
-            ;;
-        list|ls)
-            COMPREPLY=($(compgen -W ""--remote --all --quiet --help"" -- ""$cur""))
-            ;;
-        use|u)
-            COMPREPLY=($(compgen -W ""--install --help"" -- ""$cur""))
-            ;;
-        which|w)
-            COMPREPLY=($(compgen -W ""--help"" -- ""$cur""))
-            ;;
-        run|r)
-            COMPREPLY=($(compgen -W ""--help"" -- ""$cur""))
-            ;;
-        config)
-            COMPREPLY=($(compgen -W ""--help"" -- ""$cur""))
-            ;;
-        uninstall|delete|d)
-            COMPREPLY=($(compgen -W ""--force --all --help"" -- ""$cur""))
-            ;;
-        completions)
-            if [ ""$prev"" = ""--shell"" ] || [ ""$prev"" = ""-s"" ]; then
-                COMPREPLY=($(compgen -W ""bash"" -- ""$cur""))
-            else
-                COMPREPLY=($(compgen -W ""--shell --help"" -- ""$cur""))
-            fi
-            ;;
+" + ТелоCase + "
         *)
             ;;
     esac
@@ -89,3 +88,68 @@ complete -F _ovm_completions ovm";
 	Возврат Скрипт;
 
 КонецФункции
+
+Функция ПолучитьСписокКоманд()
+
+	ОпределенияКоманд = Поделка.ПолучитьОпределенияЖелудей("КомандаПриложения");
+
+	Результат = Новый Массив();
+
+	Для Каждого КлючЗначение Из ОпределенияКоманд Цикл
+		ОпределениеЖелудя = КлючЗначение.Значение;
+		Конструктор = ОпределениеЖелудя.Завязь().ДанныеМетода();
+
+		АннотацияПодкоманды = РаботаСАннотациями.НайтиАннотацию(Конструктор.Аннотации, "ПодкомандаПриложения");
+		Если АннотацияПодкоманды <> Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+
+		АннотацияКоманды = РаботаСАннотациями.НайтиАннотацию(Конструктор.Аннотации, "КомандаПриложения");
+		Если АннотацияКоманды = Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+
+		ИмяКоманды = РаботаСАннотациями.ПолучитьЗначениеПараметраАннотации(АннотацияКоманды, "Имя");
+		Если НЕ ЗначениеЗаполнено(ИмяКоманды) Тогда
+			Продолжить;
+		КонецЕсли;
+
+		ЧастиИмени = СтрРазделить(ИмяКоманды, " ");
+		Опции = ПолучитьОпцииКоманды(ОпределениеЖелудя);
+
+		ОписаниеКоманды = Новый Структура("Имена, Опции");
+		ОписаниеКоманды.Имена = ЧастиИмени;
+		ОписаниеКоманды.Опции = Опции;
+
+		Результат.Добавить(ОписаниеКоманды);
+	КонецЦикла;
+
+	Возврат Результат;
+
+КонецФункции
+
+Функция ПолучитьОпцииКоманды(ОпределениеЖелудя)
+
+	Опции = Новый Массив();
+	Опции.Добавить("--help");
+
+	Свойства = ОпределениеЖелудя.Свойства();
+	Для Каждого Свойство Из Свойства Цикл
+		АннотацияОпции = РаботаСАннотациями.ПолучитьАннотацию(Свойство, "Опция");
+		Если АннотацияОпции = Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+
+		ИмяОпции = РаботаСАннотациями.ПолучитьЗначениеПараметраАннотации(АннотацияОпции, "Имя");
+		Для Каждого ЧастьОпции Из СтрРазделить(ИмяОпции, " ") Цикл
+			Если СтрДлина(ЧастьОпции) = 1 Тогда
+				Опции.Добавить("-" + ЧастьОпции);
+			Иначе
+				Опции.Добавить("--" + ЧастьОпции);
+			КонецЕсли;
+		КонецЦикла;
+	КонецЦикла;
+
+	Возврат Опции;
+
+КонецФункции