git-tar-tree: no more void pointer arithmetic
[git.git] / templates / hooks--pre-commit
1 #!/bin/sh
2 #
3 # An example hook script to verify what is about to be committed.
4 # Called by git-commit with no arguments.  The hook should
5 # exit with non-zero status after issuing an appropriate message if
6 # it wants to stop the commit.
7 #
8 # To enable this hook, make this file executable.
9
10 # This is slightly modified from Andrew Morton's Perfect Patch.
11 # Lines you introduce should not have trailing whitespace.
12 # Also check for an indentation that has SP before a TAB.
13
14 if git-rev-parse --verify HEAD 2>/dev/null
15 then
16         git-diff-index -p -M --cached HEAD
17 else
18         # NEEDSWORK: we should produce a diff with an empty tree here
19         # if we want to do the same verification for the initial import.
20         :
21 fi |
22 perl -e '
23     my $found_bad = 0;
24     my $filename;
25     my $reported_filename = "";
26     my $lineno;
27     sub bad_line {
28         my ($why, $line) = @_;
29         if (!$found_bad) {
30             print STDERR "*\n";
31             print STDERR "* You have some suspicious patch lines:\n";
32             print STDERR "*\n";
33             $found_bad = 1;
34         }
35         if ($reported_filename ne $filename) {
36             print STDERR "* In $filename\n";
37             $reported_filename = $filename;
38         }
39         print STDERR "* $why (line $lineno)\n";
40         print STDERR "$filename:$lineno:$line\n";
41     }
42     while (<>) {
43         if (m|^diff --git a/(.*) b/\1$|) {
44             $filename = $1;
45             next;
46         }
47         if (/^@@ -\S+ \+(\d+)/) {
48             $lineno = $1 - 1;
49             next;
50         }
51         if (/^ /) {
52             $lineno++;
53             next;
54         }
55         if (s/^\+//) {
56             $lineno++;
57             chomp;
58             if (/\s$/) {
59                 bad_line("trailing whitespace", $_);
60             }
61             if (/^\s*   /) {
62                 bad_line("indent SP followed by a TAB", $_);
63             }
64             if (/^(?:[<>=]){7}/) {
65                 bad_line("unresolved merge conflict", $_);
66             }
67         }
68     }
69     exit($found_bad);
70 '
71