krazy2tasks.pl 729 Bytes
Newer Older
1
2
3
4
5
6
7
#!/usr/bin/perl -w

use strict;

my $file = shift;
die "No .tasks file given to save data into." unless ($file);

Bill King's avatar
Bill King committed
8
open(PIPE, "find . -name \*.cpp -o -name \*.h | grep -v /tests/ | grep -v /3rdparty/ | xargs krazy2 --check-sets qt4 --exclude captruefalse --export textedit |") or
9
10
11
12
13
14
15
16
17
18
19
20
    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\//;
Bill King's avatar
Bill King committed
21
    next if $file =~ /\/tests\//;
22
23
24
25

    print FILE "$file\t$lineno\tWARN\tKrazy: $description\n";
}