forwarded message from Lukas Reichlin

[John W. Eaton]

------- start of forwarded message -------
From: Lukas Reichlin <address@hidden>
To: "Eaton W. John" <address@hidden>
Subject: Patch for pkg.m
Date: Sun, 8 Jan 2012 09:10:55 +0100


--Apple-Mail=_E4D55899-CD29-4302-9C30-01C9F39BA33C
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
        charset=us-ascii

Hi John

I've created a small patch for pkg.m. The changes are:
1. propose 'news package' instead of 'news ("package")'
2. status messages for the 'update' option I provided some time ago

Best regards,
Lukas


--Apple-Mail=_E4D55899-CD29-4302-9C30-01C9F39BA33C
Content-Disposition: attachment;
        filename=pkg.patch
Content-Type: application/octet-stream;
        name="pkg.patch"
Content-Transfer-Encoding: 7bit

*** pkg_old.m   2012-01-08 08:33:19.000000000 +0100
--- pkg.m       2012-01-08 08:55:15.000000000 +0100
*************** function [local_packages, global_package
*** 522,530 ****
--- 522,533 ----
            installed_pkg_version = installed_pkgs_lst{i}.version;
            forge_pkg_version = get_forge_pkg (installed_pkg_name);
            if (compare_versions (forge_pkg_version, installed_pkg_version, 
">"))
+             printf ("updating package '%s' from version %s to %s ...\n",
+                     installed_pkg_name, installed_pkg_version, 
forge_pkg_version);
              feval (@pkg, "install", "-forge", installed_pkg_name);
            endif
          endfor
+         printf ("package update complete.\n");
        else
          error ("no output arguments available");
        endif
*************** function install (files, handle_deps, au
*** 951,957 ****
    ## we are checking if desc exists too because it's possible to ge to this 
point
    ## without creating it such as giving an invalid filename for the package
    if (exist ("desc", "var") && exist (fullfile (desc.dir, "packinfo", 
"NEWS"), "file"))
!     printf ("For information about changes from previous versions of the %s 
package, run 'news (\"%s\")'.\n",
              desc.name, desc.name);
    endif
  
--- 954,960 ----
    ## we are checking if desc exists too because it's possible to ge to this 
point
    ## without creating it such as giving an invalid filename for the package
    if (exist ("desc", "var") && exist (fullfile (desc.dir, "packinfo", 
"NEWS"), "file"))
!     printf ("For information about changes from previous versions of the %s 
package, run 'news %s'.\n",
              desc.name, desc.name);
    endif
  

--Apple-Mail=_E4D55899-CD29-4302-9C30-01C9F39BA33C--
------- end of forwarded message -------