add utils

support-d/utils/rwlock.pl

@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+
+my $start = 8;
+my $i = $start;
+my $step = "4";
+my $wr = 0;
+
+  printf "%s %0.4d START    $list[4]\n", " " x $i, $i;
+
+while(<>) {
+  my $sub = 0;
+  my $indent = 0;
+
+  next unless /ERR/;
+
+  @list = split;
+
+  if ($list[9] eq "ACQUIRED") {
+
+    if ($list[7] eq "Read") {
+      $mark = "READLOCK ";
+      $i += $step;
+      $indent = $i;
+    } else {
+      $mark = "WRITELOCK";
+      $wr = 1;
+      $indent = 0;
+    }
+
+  } elsif($list[9] eq "CLEARED") {
+    if ($wr && $i <= $start) {
+      $mark = "WRCLEARED";
+      $indent = 0;
+    } else {
+      $sub = $step;
+      $mark = "CLEARED  ";
+      $indent = $i;
+    }
+  } elsif($list[9] eq "FAIL") {
+    $mark = "FAIL     ";
+    $indent = $i;
+  }
+
+  printf "%s %0.4d $mark $list[4]\n", " " x $indent, $indent;
+
+  if ($sub) {
+    $i -= $sub;
+    $sub = 0;
+    print "\n";
+  }
+
+
+}