[Libreoffice-commits] .: Branch 'feature/gsoc-calc-perf' - git-hooks/pre-commit

Markus Mohrhard mmohrhard at kemper.freedesktop.org
Wed Jun 13 19:48:17 PDT 2012


 git-hooks/pre-commit |  106 ++++++++++++++++++++++++++++-----------------------
 1 file changed, 60 insertions(+), 46 deletions(-)

New commits:
commit 4284c97c5d54beb4d4a8cc86ef067d4a6b5388ad
Author: Norbert Thiebaud <nthiebaud at gmail.com>
Date:   Wed Jun 13 17:47:38 2012 -0500

    be stricter with tab
    
    Change-Id: I17db9db426b10e0cb2148b33dfc9631ea9cb81a4

diff --git a/git-hooks/pre-commit b/git-hooks/pre-commit
index 495dc16..5b752a3 100755
--- a/git-hooks/pre-commit
+++ b/git-hooks/pre-commit
@@ -21,57 +21,70 @@ sub check_whitespaces($)
     my $filename;
     my $reported_filename = "";
     my $lineno;
-    sub bad_line {
-	my ($why, $line, $file_filter) = @_;
-        if (!defined $file_filter || $filename =~ /\.($file_filter)$/) {
-	if (!$found_bad) {
-	    print STDERR "*\n";
-	    print STDERR "* You have some suspicious patch lines:\n";
-	    print STDERR "*\n";
-	    $found_bad = 1;
-	}
-	if ($reported_filename ne $filename) {
-	    print STDERR "* In $filename\n";
-	    $reported_filename = $filename;
-	}
-	print STDERR "* $why (line $lineno)\n";
-	print STDERR "$filename:$lineno:$line\n";
+    sub bad_line
+    {
+        my ($why, $line, $file_filter) = @_;
+        if (!defined $file_filter || $filename =~ /\.($file_filter)$/)
+        {
+            if (!$found_bad)
+            {
+                print STDERR "*\n";
+                print STDERR "* You have some suspicious patch lines:\n";
+                print STDERR "*\n";
+                $found_bad = 1;
+            }
+            if ($reported_filename ne $filename)
+            {
+                print STDERR "* In $filename\n";
+                $reported_filename = $filename;
+            }
+            print STDERR "* $why (line $lineno)\n";
+            print STDERR "$filename:$lineno:$line\n";
         }
     }
     open( FILES, "git-diff-index -p -M --cached $h |" ) ||  die "Cannot run git diff-index.";
-    while (<FILES>) {
-	if (m|^diff --git a/(.*) b/\1$|) {
-	    $filename = $1;
-	    next;
-	}
-	if (/^@@ -\S+ \+(\d+)/) {
-	    $lineno = $1 - 1;
-	    next;
-	}
-	if (/^ /) {
-	    $lineno++;
-	    next;
-	}
-	if (s/^\+//) {
-	    $lineno++;
-	    chomp;
-	    if (/\s$/) {
-		bad_line("trailing whitespace", $_ , $src_limited);
-	    }
-	    if (/^\s* 	/) {
-		bad_line("indent SP followed by a TAB", $_, $src_limited);
-	    }
-	    if (/^(?:[<>=]){7}$/) {
-		bad_line("unresolved merge conflict", $src_full);
-	    }
-	    if (/SAL_DEBUG/) {
-		bad_line("temporary debug in commit", $_, $src_limited);
-	    }
-	}
+    while (<FILES>)
+    {
+        if (m|^diff --git a/(.*) b/\1$|)
+        {
+            $filename = $1;
+            next;
+        }
+        if (/^@@ -\S+ \+(\d+)/)
+        {
+            $lineno = $1 - 1;
+            next;
+        }
+        if (/^ /)
+        {
+            $lineno++;
+            next;
+        }
+        if (s/^\+//)
+        {
+            $lineno++;
+            chomp;
+            if (/\s$/)
+            {
+                bad_line("trailing whitespace", $_ , $src_limited);
+            }
+            if (/\s*	/)
+            {
+                bad_line("indent with Tab", $_, $src_limited);
+            }
+            if (/^(?:[<>=]){7}$/)
+            {
+                bad_line("unresolved merge conflict", $src_full);
+            }
+            if (/SAL_DEBUG/)
+            {
+                bad_line("temporary debug in commit", $_, $src_limited);
+            }
+        }
     }
     if ( $found_bad)
     {
-	exit($found_bad);
+        exit($found_bad);
     }
 }
 
@@ -79,7 +92,8 @@ sub check_whitespaces($)
 
 # Initial commit: diff against an empty tree object
 my $against="4b825dc642cb6eb9a060e54bf8d69288fbee4904";
-if ( system( "git rev-parse --verify HEAD >/dev/null 2>&1" ) == 0 ) {
+if ( system( "git rev-parse --verify HEAD >/dev/null 2>&1" ) == 0 )
+{
     $against="HEAD"
 }
 


More information about the Libreoffice-commits mailing list