Mercurial > hg > octave-nkf

comparison scripts/pkg/pkg.m @ 9258:a653c61ee98c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
9257:ab952265ad06 9258:a653c61ee98c
991 else 991 else
992 flag{name_pos} = "Not loaded"; 992 flag{name_pos} = "Not loaded";
993 endif 993 endif
994 994
995 pkg_desc_list{name_pos}.name = installed_pkgs_lst{i}.name; 995 pkg_desc_list{name_pos}.name = installed_pkgs_lst{i}.name;
996 pkg_desc_list{name_pos}.version = installed_pkgs_lst{i}.version;
996 pkg_desc_list{name_pos}.description = installed_pkgs_lst{i}.description; 997 pkg_desc_list{name_pos}.description = installed_pkgs_lst{i}.description;
997 pkg_desc_list{name_pos}.provides = parse_pkg_idx (installed_pkgs_lst{i}.dir); 998 pkg_desc_list{name_pos}.provides = parse_pkg_idx (installed_pkgs_lst{i}.dir);
998 999
999 endif 1000 endif
1000 endfor 1001 endfor
1010 endif 1011 endif
1011 endif 1012 endif
1012 1013
1013 if (nargout == 0) 1014 if (nargout == 0)
1014 for i = 1:num_pkgnames 1015 for i = 1:num_pkgnames
1015 print_package_description (pkg_desc_list{i}.name, 1016 print_package_description (pkg_desc_list{i}.name,
1017 pkg_desc_list{i}.version,
1016 pkg_desc_list{i}.provides, 1018 pkg_desc_list{i}.provides,
1017 pkg_desc_list{i}.description, 1019 pkg_desc_list{i}.description,
1018 flag{i}, verbose); 1020 flag{i}, verbose);
1019 endfor 1021 endfor
1020 endif 1022 endif
1073 line = fgetl (fid); 1075 line = fgetl (fid);
1074 endwhile 1076 endwhile
1075 fclose (fid); 1077 fclose (fid);
1076 endfunction 1078 endfunction
1077 1079
1078 function print_package_description (pkg_name, pkg_idx_struct, 1080 function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
1079 pkg_desc, status, verbose) 1081 pkg_desc, status, verbose)
1080 1082
1081 printf ("---\nPackage name:\n\t%s\n", pkg_name); 1083 printf ("---\nPackage name:\n\t%s\n", pkg_name);
1084 printf ("Version:\n\t%s\n", pkg_ver);
1082 printf ("Short description:\n\t%s\n", pkg_desc); 1085 printf ("Short description:\n\t%s\n", pkg_desc);
1083 printf ("Status:\n\t%s\n", status); 1086 printf ("Status:\n\t%s\n", status);
1084 if (verbose) 1087 if (verbose)
1085 printf ("---\nProvides:\n"); 1088 printf ("---\nProvides:\n");
1086 for i = 1:length(pkg_idx_struct) 1089 for i = 1:length(pkg_idx_struct)