tools/find-missing.pl

diff --git a/GNUmakefile b/GNUmakefile
index 9bb9a2fed98477c5fd8e13d93dc4a49eea60eaff..42f16634569a9a8b46d511e2fe961c6ef04876d3 100644 (file)
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -1,4 +1,4 @@
 lint:
-       perl ./tools/lint-dotfiles.pl
+       perl ./tools/list-files.pl | perl ./tools/find-missing.pl
 
 .PHONY: lint
\ No newline at end of file

diff --git a/tools/find-missing.pl b/tools/find-missing.pl
new file mode 100644 (file)
index 0000000..552b77b
--- /dev/null
+++ b/tools/find-missing.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Smart::Comments;
+
+sub main {
+    while (defined(my $rel = <>)) {
+        chomp $rel;
+        my $saved = rel2saved($rel);
+
+        if (!-e $saved) {
+            print "? $rel\n";
+        }
+    }
+}
+
+sub rel2saved {
+    my $rel = shift;
+
+    $rel =~ tr/./_/;
+    return "./dot-files/$rel";
+}
+
+main();

diff --git a/tools/lint-dotfiles.pl b/tools/list-files.pl
similarity index 88%
rename from tools/lint-dotfiles.pl
rename to tools/list-files.pl
index 852791b6cc72373ac9b442dcebd9d5d10cf167a1..673d43b8ae6e0b51e76b7e248569ca3e21298531 100644 (file)
--- a/tools/lint-dotfiles.pl
+++ b/tools/list-files.pl
@@ -17,7 +17,15 @@ my @RE_IGNORED = map {
   map  {tr/\n//d; $_}
   <DATA>;
 
-my @CURRENT = find($ENV{HOME}, '.', sub {$_[0] =~ m/^\./});
+main();
+
+sub main {
+    my @current = find($ENV{HOME}, '.', sub {$_[0] =~ m/^\./});
+
+    foreach (@current) {
+        print "$_\n";
+    }
+}
 
 sub find {
     my $base = shift;
@@ -36,6 +44,7 @@ sub find {
         my $rel = File::Spec->abs2rel($abs, $base);
 
         next if any { $rel =~ m/$_/ } @RE_IGNORED;
+        next if !-f $abs;
 
         if (-d $abs) {
             push @d, find($base, $rel);
@@ -47,16 +56,6 @@ sub find {
     @d;
 }
 
-foreach my $file (@CURRENT) {
-    # Is it in the repository?
-    if (-e $file) {
-
-    }
-    else {
-        print "? $file\n";
-    }
-}
-
 __DATA__
 *~
 .*cache*