From f9035b1e9e60930ee728aba26200f7f0288c67ab Mon Sep 17 00:00:00 2001
From: Tobias Hunger <tobias.hunger@nokia.com>
Date: Fri, 22 Oct 2010 19:40:41 +0200
Subject: Add script to convert krazy output into a tasks file

---
 scripts/krazy2tasks.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 scripts/krazy2tasks.pl

(limited to 'scripts/krazy2tasks.pl')

diff --git a/scripts/krazy2tasks.pl b/scripts/krazy2tasks.pl
new file mode 100755
index 0000000000..0f42efc058
--- /dev/null
+++ b/scripts/krazy2tasks.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $file = shift;
+die "No .tasks file given to save data into." unless ($file);
+
+open(PIPE, "krazy2all . --export textedit |") or
+    die "Could not start krazy2all, please make sure it is in your PATH.";  
+open(FILE, ">$file") or die "Failed to open \"$file\" for writing.";
+
+while (<PIPE>) {
+    my $line = $_;
+    chomp $line;
+    next unless $line =~ /^(.*):(\d+):(.*)$/;
+
+    my $file = $1;
+    my $lineno = $2;
+    my $description = $3;
+    next if $file =~ /\/3rdparty\//;
+
+    print FILE "$file\t$lineno\tWARN\tKrazy: $description\n";
+}
+
-- 
cgit v1.2.1