Add script to convert krazy output into a tasks file

2010-10-22 19:40:41 +02:00
parent 7cc6b469aa
commit f9035b1e9e
1 changed files with 24 additions and 0 deletions
@@ -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";
+}
+