# HG changeset patch
# User John Donoghue <john.donoghue@ieee.org>
# Date 1394586906 14400
# Node ID 4daf647c86c351d75e8fec8d137a62e99e565080
# Parent  2d5d0d86432e801fb3e0dbb306fcb9a546a64b87
Implement pkg update pkgnametoupdate (Bug #41732)

* scripts/pkg/pkg.m: on update command use list of file names to update when available.

diff -r 2d5d0d86432e -r 4daf647c86c3 scripts/pkg/pkg.m
--- 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;