Переделка на использование КэшаУстановленныхПакетов. Добавлен "тихий" режим, выводящий только список пакетов.

Author: nixel2007

src/Классы/ДиспетчерКомандПриложения.os

@@ -81,6 +81,7 @@
 
 Процедура ДобавитьКомандуList(Знач Парсер) Экспорт
 	Команда = Парсер.ОписаниеКоманды("list", "Вывести список пакетов");
+	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-q", """Тихий"" режим вывода без лишних сообщений.");
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
@@ -110,7 +111,7 @@
 	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);	
 	ИначеЕсли ПараметрыКоманды.Команда = "list" Тогда
- 		ВывестиСписокПакетов();		
+ 		ВывестиСписокПакетов(ЗначенияПараметров);		
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;
@@ -208,29 +209,23 @@
 
 КонецПроцедуры
 
-Процедура ВывестиСписокПакетов()
+Процедура ВывестиСписокПакетов(Знач ЗначенияПараметров)
 
+	ТихийРежим = ЗначенияПараметров["-q"];
+
 	ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");
 
-	ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);
-	Сообщить(ТекстСообщения);
-	ВывестиПодкаталоги(ПутьККаталогуПакетов);
-
-	ПутьКДополнительнымКаталогамБиблиотек = ПолучитьЗначениеСистемнойНастройки("lib.additional");
-	Если НЕ ЗначениеЗаполнено(ПутьКДополнительнымКаталогамБиблиотек) Тогда
-		Возврат;
+	Если НЕ ТихийРежим Тогда
+		ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);
+		Сообщить(ТекстСообщения);
 	КонецЕсли;
 
-	СписокДополнительныхКаталоговБиблиотек = СтрРазделить(ПутьКДополнительнымКаталогамБиблиотек, ";");
-	
-	Для Каждого ДополнительныйКаталогБиблиотек Из СписокДополнительныхКаталоговБиблиотек Цикл
-		Сообщить("");
-		Файл_ДополнительныйКаталогБиблиотек = Новый Файл(ДополнительныйКаталогБиблиотек);
-		ТекстСообщения = СтрШаблон("Пакеты в дополнительном каталоге библиотек <%1>:", Файл_ДополнительныйКаталогБиблиотек.ПолноеИмя);
-		Сообщить(ТекстСообщения);
-		ВывестиПодкаталоги(ДополнительныйКаталогБиблиотек);
+	КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
+	УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
+	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
+		Сообщить(УстановленныйПакет.Ключ);
 	КонецЦикла;
-
+	
 КонецПроцедуры
 
 Процедура ВывестиПодкаталоги(Знач ПутьКРодительскомуКаталогу)