Команда вывода списка пакетов

Author: nixel2007

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

@@ -13,6 +13,7 @@
 	ДобавитьКомандуUpdate(Парсер);
 	ДобавитьКомандуApp(Парсер);
 	ДобавитьКомандуConfig(Парсер);
+	ДобавитьКомандуList(Парсер);
 	ДобавитьКомандуHelp(Парсер);
 КонецПроцедуры
 
@@ -78,6 +79,10 @@
  	Парсер.ДобавитьКоманду(Команда);
  КонецПроцедуры
 
+Процедура ДобавитьКомандуList(Знач Парсер) Экспорт
+	Команда = Парсер.ОписаниеКоманды("list", "Вывести список пакетов");
+	Парсер.ДобавитьКоманду(Команда);
+КонецПроцедуры
 
 Процедура ДобавитьКомандуHelp(Знач Парсер) Экспорт
 	Команда = Парсер.ОписаниеКоманды("help", "Справка по командам");
@@ -103,7 +108,9 @@
 	ИначеЕсли ПараметрыКоманды.Команда = "app" Тогда
 		СоздатьСкриптЗапуска(ЗначенияПараметров["ИмяСкрипта"], ЗначенияПараметров["Каталог"], ЗначенияПараметров["-name"]);
 	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
- 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);		
+		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);	
+	ИначеЕсли ПараметрыКоманды.Команда = "list" Тогда
+ 		ВывестиСписокПакетов();		
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;
@@ -201,6 +208,43 @@
 
 КонецПроцедуры
 
+Процедура ВывестиСписокПакетов()
+	
+	ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");
+	
+	ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);
+	Сообщить(ТекстСообщения);
+	ВывестиПодкаталоги(ПутьККаталогуПакетов);
+
+	ПутьКДополнительнымКаталогамБиблиотек = ПолучитьЗначениеСистемнойНастройки("lib.additional");
+	Если НЕ ЗначениеЗаполнено(ПутьКДополнительнымКаталогамБиблиотек) Тогда
+		Возврат;
+	КонецЕсли;
+
+	СписокДополнительныхКаталоговБиблиотек = СтрРазделить(ПутьКДополнительнымКаталогамБиблиотек, ";");
+	
+	Для Каждого ДополнительныйКаталогБиблиотек Из СписокДополнительныхКаталоговБиблиотек Цикл
+		Сообщить("");
+		Файл_ДополнительныйКаталогБиблиотек = Новый Файл(ДополнительныйКаталогБиблиотек);
+		ТекстСообщения = СтрШаблон("Пакеты в дополнительном каталоге библиотек <%1>:", Файл_ДополнительныйКаталогБиблиотек.ПолноеИмя);
+		Сообщить(ТекстСообщения);
+		ВывестиПодкаталоги(ДополнительныйКаталогБиблиотек);
+	КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ВывестиПодкаталоги(Знач ПутьКРодительскомуКаталогу)
+	НайденныеКаталоги = НайтиФайлы(ПутьКРодительскомуКаталогу, ПолучитьМаскуВсеФайлы(), Ложь);
+	Для Каждого НайденныйКаталог Из НайденныеКаталоги Цикл
+		Если НайденныйКаталог.ЭтоФайл() Тогда
+			// package-loader и прочие служебные файлы
+			Продолжить;
+		КонецЕсли;
+
+		Сообщить(НайденныйКаталог.Имя);
+	КонецЦикла;
+КонецПроцедуры
+
 Процедура ВывестиСправку(Знач ЗначенияПараметров)
 	Если ЗначенияПараметров["ИмяКоманды"] = Неопределено Тогда
 		ВывестиСправкуПоКомандам();