# HG changeset patch
# User Carlo de Falco <address@hidden>
# Date 1243161322 -7200
# Node ID 3836784dab95c9ad8ef7d68df0c4a58a6ba4fd17
# Parent  b2790fd23800da3e972b56d91d45fa74a8f0cae4
let pkg describe return version information

diff -r b2790fd23800 -r 3836784dab95 scripts/ChangeLog
--- a/scripts/ChangeLog	Fri May 22 23:48:04 2009 +0100
+++ b/scripts/ChangeLog	Sun May 24 12:35:22 2009 +0200
@@ -1,3 +1,8 @@
+2009-05-24 Carlo de Falco  <address@hidden>
+
+	* pkg/pkg.m: Add "version" field to the structure returned by "pkg
+	describe". 
+
 2009-05-22  John W. Eaton  <address@hidden>
 
 	* general/interp3.m: Don't require interpolation grid to have same
diff -r b2790fd23800 -r 3836784dab95 scripts/pkg/pkg.m
--- a/scripts/pkg/pkg.m	Fri May 22 23:48:04 2009 +0100
+++ b/scripts/pkg/pkg.m	Sun May 24 12:35:22 2009 +0200
@@ -993,6 +993,7 @@
       endif
 
       pkg_desc_list{name_pos}.name = installed_pkgs_lst{i}.name;
+      pkg_desc_list{name_pos}.version = installed_pkgs_lst{i}.version;
       pkg_desc_list{name_pos}.description = installed_pkgs_lst{i}.description;
       pkg_desc_list{name_pos}.provides = parse_pkg_idx (installed_pkgs_lst{i}.dir);
 
@@ -1012,7 +1013,8 @@
 
   if (nargout == 0)
     for i = 1:num_pkgnames
-      print_package_description (pkg_desc_list{i}.name, 
+      print_package_description (pkg_desc_list{i}.name,
+				 pkg_desc_list{i}.version,
 				 pkg_desc_list{i}.provides,  
 				 pkg_desc_list{i}.description,
 				 flag{i}, verbose);
@@ -1075,10 +1077,11 @@
   fclose (fid);
 endfunction
 
-function print_package_description (pkg_name, pkg_idx_struct, 
+function print_package_description (pkg_name, pkg_ver, pkg_idx_struct, 
 				    pkg_desc, status, verbose)
 
   printf ("---\nPackage name:\n\t%s\n", pkg_name);
+  printf ("Version:\n\t%s\n", pkg_ver);
   printf ("Short description:\n\t%s\n", pkg_desc);
   printf ("Status:\n\t%s\n", status);
   if (verbose)