Поиск пакетов ТОЛЬКО в локальной установке.

Author: dmpas

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

@@ -9,6 +9,7 @@
 	КомандаПриложения.Опция("r remote", Ложь, "Вывести список пакетов в хабе");
 	КомандаПриложения.Опция("a all", Ложь, "Вывести список всех пакетов установленных и доступных в хабе");
 	КомандаПриложения.Опция("p path", Ложь, "Выводить путь к пакетам");
+	КомандаПриложения.Опция("l local", Ложь, "Вывести список пакетов, установленных локально в текущий каталог");
 
 КонецПроцедуры
 
@@ -18,6 +19,7 @@
 	ВыводВсехПакетов = КомандаПриложения.ЗначениеОпции("all");
 	ВыводПакетовНаХабе = КомандаПриложения.ЗначениеОпции("remote") ИЛИ ВыводВсехПакетов;
 	ВыводУстановленныхПакетов = НЕ КомандаПриложения.ЗначениеОпции("remote") ИЛИ ВыводВсехПакетов;
+	ВыводЛокальныхПакетов = КомандаПриложения.ЗначениеОпции("local");
 	ВыводитьПутьКПакетам = КомандаПриложения.ЗначениеОпции("path");
 
 	Если ВыводВсехПакетов Тогда
@@ -33,7 +35,9 @@
 	МенеджерПолучения = Новый МенеджерПолученияПакетов();
 	ДоступныеПакеты = МенеджерПолучения.ПолучитьДоступныеПакеты();
 
-	КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов;
+	КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов(?(ВыводЛокальныхПакетов,
+		"./" + КонстантыOpm.ЛокальныйКаталогУстановкиПакетов,
+		""));
 	УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
 
 	Если НЕ ТихийРежим Тогда