Merge pull request #16 from oscript-library/feature/list

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

Author: nixel2007

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

@@ -13,6 +13,7 @@
 	ДобавитьКомандуUpdate(Парсер);
 	ДобавитьКомандуApp(Парсер);
 	ДобавитьКомандуConfig(Парсер);
+	ДобавитьКомандуList(Парсер);
 	ДобавитьКомандуHelp(Парсер);
 КонецПроцедуры
 
@@ -78,6 +79,11 @@
  	Парсер.ДобавитьКоманду(Команда);
  КонецПроцедуры
 
+Процедура ДобавитьКомандуList(Знач Парсер)
+	Команда = Парсер.ОписаниеКоманды("list", "Вывести список пакетов");
+	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-q", """Тихий"" режим вывода без лишних сообщений.");
+	Парсер.ДобавитьКоманду(Команда);
+КонецПроцедуры
 
 Процедура ДобавитьКомандуHelp(Знач Парсер) Экспорт
 	Команда = Парсер.ОписаниеКоманды("help", "Справка по командам");
@@ -103,7 +109,9 @@
 	ИначеЕсли ПараметрыКоманды.Команда = "app" Тогда
 		СоздатьСкриптЗапуска(ЗначенияПараметров["ИмяСкрипта"], ЗначенияПараметров["Каталог"], ЗначенияПараметров["-name"]);
 	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
- 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);		
+		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);	
+	ИначеЕсли ПараметрыКоманды.Команда = "list" Тогда
+ 		ВывестиСписокПакетов(ЗначенияПараметров);		
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;
@@ -201,6 +209,25 @@
 
 КонецПроцедуры
 
+Процедура ВывестиСписокПакетов(Знач ЗначенияПараметров)
+	
+	ТихийРежим = ЗначенияПараметров["-q"];
+
+	ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");
+	
+	Если НЕ ТихийРежим Тогда
+		ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);
+		Сообщить(ТекстСообщения);
+	КонецЕсли;
+
+	КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
+	УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
+	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
+		Сообщить(УстановленныйПакет.Ключ);
+	КонецЦикла;
+	
+КонецПроцедуры
+
 Процедура ВывестиСправку(Знач ЗначенияПараметров)
 	Если ЗначенияПараметров["ИмяКоманды"] = Неопределено Тогда
 		ВывестиСправкуПоКомандам();

src/Классы/КэшУстановленныхПакетов.os

@@ -26,6 +26,10 @@
 
 КонецПроцедуры
 
+Функция ПолучитьУстановленныеПакеты() Экспорт
+	Возврат УстановленныеПакеты;
+КонецФункции
+
 Процедура Инициализация()
 
 	Лог = Логирование.ПолучитьЛог("oscript.app.opm");