[patch] Suggested patch

genlop-emwrap.patch (text/plain), 2.00 KB, created by Mihai Moldovan on 2007-04-11 12:38:16 UTC

--- /usr/bin/genlop     2007-04-11 14:08:31.000000000 +0200
+++ /usr/bin/genlop-modified    2007-04-11 14:03:05.000000000 +0200
@@ -223,6 +223,7 @@
                   if ($opt eq "S");
                 $current_found = 1, last SSWITCH if ($opt eq "c");
                 $pretend_found = 1, last SSWITCH if ($opt eq "p");
+               $noprint_found = 1, last SSWITCH if ($opt eq "N");
                 $rsync_found   = 1, last SSWITCH if ($opt eq "r");
                 $gmt_found     = 1, last SSWITCH if ($opt eq "g");
                 $ebuild_found  = 1, last SSWITCH if ($opt eq "e");
@@ -291,6 +292,8 @@
       colored("  -n   ", $COLORS{'green'}), "no color in output\n",
       colored("  -p   ", $COLORS{'green'}),
       "estimate build time from a piped \"emerge -p\" output\n",
+      colored("  -N   ", $COLORS{'green'}),
+      "do _not_ print the pretended packages\n",
       colored("  -r   ", $COLORS{'green'}),
       "search for portage tree sync/rsync history.\n",
       colored("  -s   ", $COLORS{'green'}),
@@ -424,14 +427,24 @@
 sub pretend() {
     if ($pretend_found) {
         @targets = ();
-        print "These are the pretended packages:";
-        print " (this may take a while; wait...)\n\n";
+       if (!$noprint_found) {
+            print "These are the pretended packages:";
+            print " (this may take a while; wait...)\n\n";
+       }
         # open STDIN; that's why emerge -p foo is piped to a genlop -p
         while (<STDIN>) {
             if ($_ =~ m/^\[e.*\] (.*?)\/(.*?)(\-[0-9])/) {
                 push @targets, $2;
-                print;
-            }
+               if (!$noprint_found) {
+                       print;
+               }
+            }
+           elsif ($_ =~ m/(.*?)\/(.*?)(\-[0-9])/) {
+               push @targets, $2;
+               if (!$noprint_found) {
+                       print;
+               }
+           }
         }
         foreach $ebuild_arg (@targets) {
             # we track the last ebuild processed with $last_ebuild variable