Mercurial > hg > octave-nkf
diff scripts/pkg/pkg.m @ 9258:a653c61ee98c
let pkg describe return version information
| author | Carlo de Falco <kingcrimson@tiscali.it> |
|---|---|
| date | Sun, 24 May 2009 12:35:22 +0200 |
| parents | 70177bf9cc16 |
| children | c2923c27c877 |
line wrap: on
line diff
--- 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)