1 files changed, 26 insertions, 0 deletions
diff --git a/scripts/qdoc2tasks.pl b/scripts/qdoc2tasks.pl
new file mode 100755
index 0000000000..1d20895af8
--- /dev/null
+++ b/scripts/qdoc2tasks.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+=head1 NAME
+
+qdoc2tasks.pl - Convert qdoc warnings into Qt Creator task files.
+
+=head1 SYNOPSIS
+
+    qdoc2tasks.pl < logfile > taskfile
+
+=cut
+
+use strict;
+use warnings;
+
+while (my $line = <STDIN>) {
+    chomp($line);
+    # --- extract file name based matching:
+    # D:/.../qaxbase.cpp:3231: warning: Cannot tie this documentation to anything
+    if ($line =~ /^(..[^:]*):(\d+): warning: (.*)$/) {
+        my $fileName = $1;
+        my $lineNumber = $2;
+        my $text = $3;
+        print $fileName, "\t", $lineNumber, "\twarn\t", $text,"\n";
+    }
+}