updates from ian@chiark

[ian-dotfiles.git] / process

diff --git a/process b/process
index 192d96461a78463c68941e1cf85fe0d1e2b07a72..33ed6aee27b59226ac89e63977e87f335b872125 100755 (executable)
--- 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,/$,,;
@@ -120,6 +122,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);