[23702] users/pipping/test.pl

[source_changes at macosforge.org]

Revision: 23702
          http://trac.macosforge.org/projects/macports/changeset/23702
Author:   pipping at macports.org
Date:     2007-04-06 20:34:51 -0700 (Fri, 06 Apr 2007)

Log Message:
-----------
 different approach for a script that finds a port's dependents in perl

Added Paths:
-----------
    users/pipping/test.pl

Added: users/pipping/test.pl
===================================================================
--- users/pipping/test.pl	                        (rev 0)
+++ users/pipping/test.pl	2007-04-07 03:34:51 UTC (rev 23702)
@@ -0,0 +1,32 @@
+#! /usr/bin/env perl -w
+
+use strict;
+use warnings;
+
+$/ = ".\n";
+
+my $port = $ARGV[0];
+
+while (defined(my $portfile = <*/*/Portfile>)) {
+
+  @ARGV = $portfile;
+
+  while (<>) {
+    # concatenate lines connected through trailing backslashes
+    s{\s*\\\n\s*}{ }mgi;
+    # remove comments with whitespace in front
+    s{(?:^|\n)(?:\s)*#.*}{}g;
+    # remove trailing comments
+    s{;\s+#.*}{}g;
+
+    if ($_ =~ m{
+      \Wdepends_(?:build|run|lib)(?:-(?:append|delete))?
+      .*
+      (?:port|(?:path|lib|bin):[^:]+):${port}(?:\W|$)}x)
+    {
+      # remove trailing '/Portfile' in the path
+      $portfile =~ s{\/Portfile}{};
+      print "$portfile\n";
+    }
+  }
+}


Property changes on: users/pipping/test.pl
___________________________________________________________________
Name: svn:executable
   + *

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070406/518b3d8e/attachment.html