1 files changed, 17 insertions, 0 deletions
diff --git a/dselect/checkunimp.pl b/dselect/checkunimp.pl
new file mode 100755
index 000000000..c0b723bce
--- /dev/null
+++ b/dselect/checkunimp.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+while(<>) {
+    if (m/^\s+\{\s+\"(\w[^"]+)\",\s+0,\s+\w+list\:\:kd_\w+,\s+qa_\w+\s+\},\s*$/ ||
+        m/^\s+\{\s+\"(\w[^"]+)\",\s+\w+list\:\:kd_\w+,\s+0,\s+qa_\w+\s+\},\s*$/) {
+        $implem{$1}= 1;
+    } elsif (m/^\s+\{\s+(\S.{0,15}\S),\s+\"(\w[^"]+)\"\s+\},\s*$/) {
+        $bound{$2} .= $1.', ';
+    } elsif (m/^\s+\{\s+0,/ || m/^\s+\{\s+-1,/) {
+    } elsif (m/^\s+\{\s+/) {
+        print "huh ? $_";
+    }
+}
+for $f (sort keys %bound) {
+    next if defined($implem{$f});
+    $b=$bound{$f}; $b =~ s/, $//;
+    printf "unimplemented: %-20s (%s)\n", $f, $b;
+}