Skip to content

Команда обновления всех установленных пакетов #27

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
nixel2007 merged 1 commit into from
Dec 29, 2016
+12 −1
Merged

Команда обновления всех установленных пакетов #27

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 4 additions & 1 deletion src/Классы/ДиспетчерКомандПриложения.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -56,6 +56,7 @@

Процедура ДобавитьКомандуUpdate(Знач Парсер)
Команда = Парсер.ОписаниеКоманды("update", "Обновить пакет");
Парсер.ДобавитьПараметрФлагКоманды(Команда, "-all", "Обновить все установленные пакеты");
Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
Парсер.ДобавитьКоманду(Команда);
Expand Down Expand Up @@ -159,7 +160,9 @@
Процедура ОбновитьПакет(Знач ЗначенияПараметров) Экспорт

Установщик = Новый УстановкаПакета;
Если ЗначенияПараметров["-f"] <> Неопределено Тогда
Если ЗначенияПараметров["-all"] Тогда
Установщик.ОбновитьУстановленныеПакеты();
ИначеЕсли ЗначенияПараметров["-f"] <> Неопределено Тогда
Установщик.УстановитьПакетИзАрхива(ЗначенияПараметров["-f"]);
Иначе
Установщик.ОбновитьПакетИзОблака(ЗначенияПараметров["ИмяПакета"]);
Expand Down
8 changes: 8 additions & 0 deletions src/Классы/УстановкаПакета.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -121,6 +121,14 @@

КонецПроцедуры

Процедура ОбновитьУстановленныеПакеты() Экспорт
КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов;
УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
Для Каждого КлючИЗначение Из УстановленныеПакеты Цикл
ОбновитьПакетИзОблака(КлючИЗначение.Ключ);
КонецЦикла;
КонецПроцедуры

Функция НайтиСоздатьКаталогУстановки(Знач ИдентификаторПакета)

СистемныеБиблиотеки = КаталогСистемныхБиблиотек();
Expand Down