1 files changed, 51 insertions, 0 deletions
diff --git a/v4l/scripts/check.pl b/v4l/scripts/check.pl
new file mode 100755
index 000000000..3e6eb6e47
--- /dev/null
+++ b/v4l/scripts/check.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+
+my $cmd=shift;
+
+if ($cmd) {
+	$cmd="diff -upr /dev/null $cmd";
+} else {
+	$cmd="hg diff";
+}
+
+$checkpatch=$ENV{CHECKPATCH};
+
+if (!$checkpatch) {
+	$checkpatch="/lib/modules/`uname -r`/build/scripts/checkpatch.pl";
+}
+
+my $cp_version;
+open IN,"$checkpatch|";
+while (<IN>) {
+	tr/A-Z/a-z/;
+	if (m/version\s*:\s*([\d\.]+)/) {
+		$cp_version = $1;
+	}
+}
+close IN;
+
+my $intree_checkpatch = "scripts/checkpatch.pl --no-tree";
+if (!open IN,"$intree_checkpatch|") {
+	$intree_checkpatch = "v4l/".$intree_checkpatch;
+	open IN,"$intree_checkpatch|";
+}
+while (<IN>) {
+	tr/A-Z/a-z/;
+	if (m/version\s*:\s*([\d\.]+)/) {
+		if ($1 > $cp_version) {
+			print "# WARNING: $checkpatch version $cp_version is\n"
+			      ."#         older than $intree_checkpatch version"
+			      ." $1.\n#          Using in-tree one.\n#\n";
+			$cp_version = $1;
+			$checkpatch = $intree_checkpatch;
+		}
+	}
+}
+close IN;
+
+open IN,"$cmd | $checkpatch -q --nosignoff --emacs -|";
+while (<IN>) {
+	s|#[\d]+:\s*FILE:\s*|../|;
+	print "$_";
+}
+close IN;