From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:28:12 +0000 (+0000)
Subject: depend: change ls output to match the input. this should help compare the database... 
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=45c642fd72fbd07c08654afdfdeb1ecc2a1b10fb;p=cran2deb.git

depend: change ls output to match the input. this should help compare the database to what's in git.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@136 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---

diff --git a/pkg/trunk/exec/depend b/pkg/trunk/exec/depend
index f4a100a..2552d8f 100755
--- a/pkg/trunk/exec/depend
+++ b/pkg/trunk/exec/depend
@@ -53,11 +53,24 @@ exec_cmd <- function(argc, argv) {
         db_add_forced_depends(argv[3],argv[2])
     } else if (cmd == 'ls') {
         if (argc < 2 || argv[2] == 'aliases') {
-            print(db_depends())
+            aliases <- db_depends()
+            for (i in rownames(aliases)) {
+                type = 'alias_run'
+                if (as.logical(aliases[i,'build'])) {
+                    type = 'alias_build'
+                }
+                cat(paste(type,aliases[i,'alias'],aliases[i,'debian_pkg'],'\n'))
+            }
         } else if (argv[2] == 'sysreq') {
-            print(db_sysreq_overrides())
+            sysreqs <- db_sysreq_overrides()
+            for (i in rownames(sysreqs)) {
+                cat(paste('sysreq',sysreqs[i,'depend_alias'],sysreqs[i,'r_pattern'],'\n'))
+            }
         } else if (argv[2] == 'force') {
-            print(db_forced_depends())
+            forced <- db_forced_depends()
+            for (i in rownames(forced)) {
+                cat(paste('force',forced[i,'depend_alias'],forced[i,'r_name'],'\n'))
+            }
         } else {
             usage()
             return()