X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=process;h=1d8e39d025aa6512d8d8e307f0dd946b3d7de471;hb=5bd2301f6cebf2feca65138977d766dd79d9a138;hp=192d96461a78463c68941e1cf85fe0d1e2b07a72;hpb=38b7de8d4362fcb8e7cf91d6618e4f09fb92aa44;p=ian-dotfiles.git

diff --git a/process b/process
index 192d964..1d8e39d 100755
--- a/process
+++ b/process
@@ -43,6 +43,8 @@ for (;;) {
     last if m/^\.$/;
     if (m/(.*\S)\s+\-\>\s+(\S.*)/) {
 	$linktargs{$1}= $2;
+    } elsif (m/^(.*\S)\s+\-\-$/) {
+	$exclude{$1}= 1;
     } elsif (m/^(.*\S)\s+(\S+)$/) {
 	($of,$pe)=($1,$2);
 	$isdir= $of =~ s,/$,,;
@@ -112,6 +114,7 @@ sub prep_proc ($$) {
 opendir D, "files" or die $!;
 while ($if=readdir D) {
     next unless $if =~ m/^[_a-z0-9\\]/;
+    next if $if =~ m/\~$/;
     $of= $if; 
     $of =~ s,_,/,g; 
     $of =~ s,^/,,;
@@ -120,6 +123,8 @@ while ($if=readdir D) {
 	length $1 eq 1 ? $1 : sprintf '%c', hex $1 
 	    /ge;
 
+    next if $exclude{$of};
+
     mkparents($of);
     $newf= 'new/'.$if;
     prep_proc('files/'.$if,$newf);