From 4ea5f396f9da6255d6301ff8983354e540cd5984 Mon Sep 17 00:00:00 2001
From: adam <adam>
Date: Thu, 15 Dec 2005 11:37:31 +0000
Subject: [PATCH] ignore anything in .cvsignore

---
 stow.in | 42 ++++++++++++++++++++++++++++++++++++------
 1 file changed, 36 insertions(+), 6 deletions(-)

diff --git a/stow.in b/stow.in
index 35a3297..f2099bb 100755
--- a/stow.in
+++ b/stow.in
@@ -23,10 +23,18 @@
 # $Date$
 # $Author$
 
-# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 # Wed Nov 23 2005 Adam Spiers
-# This version is hacked to ignore CVS/ directories.
-# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+# This version is hacked to ignore anything listed in ~/.cvsignore
+use File::Spec;
+use FindBin qw($RealBin);
+use Getopt::Long;
+
+use lib "$RealBin/../lib/perl5";
+use Sh 'glob_to_re';
+my $ignore_file = File::Spec->join($ENV{HOME}, ".cvsignore");
+my $ignore_re = get_ignore_re_from_file($ignore_file);
+# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 require 5.005;
 use POSIX;
@@ -333,14 +341,20 @@ sub StowContents {
   local($content);
 
   warn "Stowing contents of $dir\n" if ($Verbose > 1);
-  opendir(DIR, &JoinPaths($Stow, $dir))
+  my $joined = &JoinPaths($Stow, $dir);
+  opendir(DIR, $joined)
     || die "$ProgramName: Cannot read directory \"$dir\" ($!)\n";
   @contents = readdir(DIR);
   closedir(DIR);
   foreach $content (@contents) {
     # Wed Nov 23 2005 Adam Spiers
-    # hack to 
-    next if $content eq '.' or $content eq '..' or $content eq 'CVS';
+    # hack to ignore stuff in ~/.cvsignore
+    next if $content eq '.' or $content eq '..';
+    if ($content =~ $ignore_re) {
+      warn "Ignoring $joined/$content via $ignore_file\n"
+        if $Verbose > 2;
+      next;
+    }
     if (-d &JoinPaths($Stow, $dir, $content)) {
       &StowDir(&JoinPaths($dir, $content), $stow);
     } else {
@@ -547,6 +561,22 @@ sub version {
   exit(0);
 }
 
+sub get_ignore_re_from_file {
+  my ($file) = @_;
+  my @regexps;
+  # Bootstrap issue - first time we stow, we will be stowing
+  # .cvsignore so it won't exist in ~ yet.  At that time, use
+  # a sensible default instead.
+  open(REGEXPS, $file) or return qr!^(CVS)$!;
+  while (<REGEXPS>) {
+    chomp;
+    push @regexps, glob_to_re($_);
+  }
+  close(REGEXPS);
+  my $re = join '|', @regexps;
+  return qr/$re/;
+}
+
 # Local variables:
 # mode: perl
 # End: