Mercurial > hg > octave-nkf

comparison scripts/pkg/pkg.m @ 6698:6d366791e132

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-06-10 21:13:01 by dbateman]
author dbateman
date Sun, 10 Jun 2007 21:13:01 +0000
parents a69216024dd6
children 24d2918bd671
comparison
equal deleted inserted replaced
6697:851c4afa8aa7 6698:6d366791e132
1621 length (installed_packages{i}.name)); 1621 length (installed_packages{i}.name));
1622 max_version_length = max (max_version_length, 1622 max_version_length = max (max_version_length,
1623 length (installed_packages{i}.version)); 1623 length (installed_packages{i}.version));
1624 names{i} = installed_packages{i}.name; 1624 names{i} = installed_packages{i}.name;
1625 endfor 1625 endfor
1626 max_dir_length = terminal_size()(2) - max_name_length - ...
1627 max_version_length - 7;
1628 if (max_dir_length < 20)
1629 max_dir_length = Inf;
1630 endif
1631
1626 h1 = postpad (h1, max_name_length + 1, " "); 1632 h1 = postpad (h1, max_name_length + 1, " ");
1627 h2 = postpad (h2, max_version_length, " ");; 1633 h2 = postpad (h2, max_version_length, " ");;
1628 1634
1629 ## Print a header 1635 ## Print a header
1630 header = sprintf("%s | %s | %s\n", h1, h2, h3); 1636 header = sprintf("%s | %s | %s\n", h1, h2, h3);
1640 [dummy, idx] = sort (names); 1646 [dummy, idx] = sort (names);
1641 for i = 1:num_packages 1647 for i = 1:num_packages
1642 cur_name = installed_packages{idx(i)}.name; 1648 cur_name = installed_packages{idx(i)}.name;
1643 cur_version = installed_packages{idx(i)}.version; 1649 cur_version = installed_packages{idx(i)}.version;
1644 cur_dir = installed_packages{idx(i)}.dir; 1650 cur_dir = installed_packages{idx(i)}.dir;
1651 if (length (cur_dir) > max_dir_length)
1652 first_char = length (cur_dir) - max_dir_length + 4;
1653 first_filesep = strfind (cur_dir(first_char:end), filesep());
1654 if (! isempty (first_filesep))
1655 cur_dir = strcat ("...",
1656 cur_dir((first_char + first_filesep(1) - 1):end));
1657 else
1658 cur_dir = strcat ("...", cur_dir(first_char:end));
1659 endif
1660 endif
1645 if (installed_packages{idx(i)}.loaded) 1661 if (installed_packages{idx(i)}.loaded)
1646 cur_loaded = "*"; 1662 cur_loaded = "*";
1647 else 1663 else
1648 cur_loaded = " "; 1664 cur_loaded = " ";
1649 endif 1665 endif