add utils

support-d/utils/btgrep

@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+# Copyright (c) 2007-2014, Anthony Minessale II
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 
+# Redistributions of source code must retain the above copyright
+# notice, this list of conditions and the following disclaimer.
+# 
+# Redistributions in binary form must reproduce the above copyright
+# notice, this list of conditions and the following disclaimer in the
+# documentation and/or other materials provided with the distribution.
+# 
+# Neither the name of the original author; nor the names of any contributors
+# may be used to endorse or promote products derived from this software
+# without specific prior written permission.
+# 
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+# A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER
+# OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# 
+# Contributors: 
+# 
+# btgrep - Search for regex in backtraces
+#
+
+$| = 0;
+$/ = undef;
+
+my $file = shift;
+open I, $file or die;
+my $i = <I>;
+close I;
+
+my @all = $i =~ /Thread \d.*?\n\n/smg;
+
+foo:
+foreach my $m (@all) {
+
+  foreach (@ARGV) {
+    my $arg;
+    my $neg = 0;
+
+    if (/^\-(.*)$/) {
+      $arg = $1;
+      $neg = 1;
+    } else {
+      $arg = $_;
+    }
+
+    if ($neg) {
+      next foo if($m =~ /$arg/);
+    } else {
+      next foo unless($m =~ /$arg/);
+    }
+  }
+
+  print "Match: $m";
+}
+
+# For Emacs:
+# Local Variables:
+# mode:perl
+# indent-tabs-mode:t
+# tab-width:4
+# c-basic-offset:4
+# End:
+# For VIM:
+# vim:set softtabstop=4 shiftwidth=4 tabstop=4 noet: