changeset 18569:4daf647c86c3 gui-release

Implement pkg update pkgnametoupdate (Bug #41732) * scripts/pkg/pkg.m: on update command use list of file names to update when available.
author John Donoghue <john.donoghue@ieee.org>
date Tue, 11 Mar 2014 21:15:06 -0400
parents 2d5d0d86432e
children ca1648b2e673
files scripts/pkg/pkg.m
diffstat 1 files changed, 17 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/pkg/pkg.m	Tue Mar 11 19:27:23 2014 -0400
+++ b/scripts/pkg/pkg.m	Tue Mar 11 21:15:06 2014 -0400
@@ -540,6 +540,23 @@
     case "update"
       if (nargout == 0)
         installed_pkgs_lst = installed_packages (local_list, global_list);
+        if (length (files) > 0)
+           update_lst = {}; 
+           for i = 1:length (files)
+             is_installed = false;
+             for j = 1:length (installed_pkgs_lst)
+               if (strcmp (files{i}, installed_pkgs_lst{j}.name))
+                 update_lst = { update_lst{:}, installed_pkgs_lst{j} };
+                 is_installed = true;
+               endif
+             endfor
+             if (is_installed == false)
+               s = sprintf ("Package %s is not installed - not updating this package", files{i});
+               warning (s);
+             endif
+           endfor
+           installed_pkgs_lst = update_lst;
+        endif
         for i = 1:length (installed_pkgs_lst)
           installed_pkg_name = installed_pkgs_lst{i}.name;
           installed_pkg_version = installed_pkgs_lst{i}.version;