# HG changeset patch
# User Carlo de Falco <kingcrimson@tiscali.it>
# Date 1243161322 -7200
# Node ID a653c61ee98c4f3ac8e1fffef1382201074cafa6
# Parent  ab952265ad061ceda8c277c85a9fcdab2858848c
let pkg describe return version information

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2009-05-26 Carlo de Falco  <kingcrimson@tiscali.it>
+
+	* pkg/pkg.m: Add "version" field to the structure returned by "pkg
+	describe". 
+
 2009-05-25  Ben Abbott <bpabbott@mac.com>
 
 	* plot/__go_draw_axes__.m: Properly render TeX symbols for x11, when
diff --git a/scripts/pkg/pkg.m b/scripts/pkg/pkg.m
--- a/scripts/pkg/pkg.m
+++ b/scripts/pkg/pkg.m
@@ -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)