Update of /cvsroot/fink/experimental/dmacks/finkinfo
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv32223
Modified Files:
flag-sort.info flag-sort.patch
Log Message:
Implement -v flag so can see what's being spawned
Index: flag-sort.info
===================================================================
RCS file: /cvsroot/fink/experimental/dmacks/finkinfo/flag-sort.info,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- flag-sort.info 7 May 2009 02:20:16 -0000 1.2
+++ flag-sort.info 7 May 2009 05:19:32 -0000 1.3
@@ -6,7 +6,7 @@
Source: none
PatchFile: %n.patch
-PatchFile-MD5: 67b3beb1d404969c334288a5eede654d
+PatchFile-MD5: cf7f7d7361835c017ce8b2d21c070f91
PatchScript: sed 's,@PREFIX@,%p,' < %{PatchFile} | patch -p1
CompileScript: #
Index: flag-sort.patch
===================================================================
RCS file: /cvsroot/fink/experimental/dmacks/finkinfo/flag-sort.patch,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- flag-sort.patch 7 May 2009 02:20:16 -0000 1.2
+++ flag-sort.patch 7 May 2009 05:19:32 -0000 1.3
@@ -1,7 +1,7 @@
diff -Nurd -x'*~' flag-sort-0.1.orig/flag-sort flag-sort-0.1/flag-sort
--- flag-sort-0.1.orig/flag-sort 1969-12-31 19:00:00.000000000 -0500
-+++ flag-sort-0.1/flag-sort 2009-05-06 22:16:26.000000000 -0400
-@@ -0,0 +1,87 @@
++++ flag-sort-0.1/flag-sort 2009-05-07 01:16:10.000000000 -0400
+@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+# -*- mode: Perl; tab-width: 4; -*-
+
@@ -32,9 +32,16 @@
+my %flag_queues = (); # $flag => \...@paths_for_flag
+my @other_queue = (); # things not fitting into any of %flag_queues
+
++my $verbose = 0;
++if (@ARGV && $ARGV[0] eq '-v') {
++ $verbose = 1;
++ shift;
++}
++
+if (!...@argv) {
-+ warn "Usage: $0 cmd [flags for cmd]\n";
++ warn "Usage: $0 [-v] cmd [flags for cmd]\n";
+ warn " resort [flags for cmd] and call cmd with them\n";
++ warn " -v causes display of some diagnostics on STDOUT\n";
+ exit 1;
+}
+
@@ -87,5 +94,5 @@
+#warn "$0: @other_queue\n";
+push @subcmd, @other_queue;
+
-+#warn "$0: $subcmd @subarg\n";
++print "$0: @subcmd\n" if $verbose;
+exec {$subcmd[0]} @subcmd or die "Could not exec $subcmd[0]: $!\n";
------------------------------------------------------------------------------
The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your
production scanning environment may not be a perfect world - but thanks to
Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700
Series Scanner you'll get full speed at 300 dpi even with all image
processing features enabled. http://p.sf.net/sfu/kodak-com
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
