check_dendl.pl script

1 files changed, 24 insertions, 0 deletions

diff --git a/src/script/check_dendl.pl b/src/script/check_dendl.pl
new file mode 100755
index 00000000000..b57bc0c061a
--- /dev/null
+++ b/src/script/check_dendl.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+my $in = 0;
+my $line = 1;
+while (<>) {
+    chomp;
+    my $l = $_;
+    my @w = split(/\s+/, $_);
+    for (@w) {
+	if (/^(\/\/)?dout\(\s*\-?\s*\d+\s*\)$/) {
+	    warn "$line: dout without dendl: $l\n" if $in;
+	    $in = 1;
+	}
+	elsif (/^derr\(\s*\-?\s*\d+\s*\)$/) {
+	    warn "$line: dout without dendl: $l\n" if $in;
+	    $in = 1;
+	}
+	elsif (/^dendl/) {
+	    warn "$line: dendl without dout: $l\n" unless $in;
+	    $in = 0;
+	}
+    }
+    $line++;
+}