]>
code.delx.au - gnu-emacs/blob - build-aux/git-hooks/commit-msg
2 # Check the format of GNU Emacs change log entries.
4 # Copyright 2014 Free Software Foundation, Inc.
6 # This file is part of GNU Emacs.
8 # GNU Emacs is free software: you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation, either version 3 of the License, or
11 # (at your option) any later version.
13 # GNU Emacs is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
21 # Written by Paul Eggert.
23 # Prefer gawk if available, as it handles NUL bytes properly.
24 if type gawk
>/dev
/null
2>&1; then
30 # Use a UTF-8 locale if available, so that the UTF-8 check works.
31 # Use U+00A2 CENT SIGN to test whether the locale works.
32 cent_sign_utf8_octal
='\302\242'
34 printf "${cent_sign_utf8_octal}@" |
35 $awk '{print substr($0, 2)}' 2>/dev/null
37 if test "$at_sign" != @
; then
39 printf "${cent_sign_utf8_octal}@" |
40 LC_ALL=en_US.UTF-8 $awk '{print substr($0, 2)}' 2>/dev/null
42 if test "$at_sign" = @
; then
43 LC_ALL
=en_US.UTF-8
; export LC_ALL
47 # Check the log entry.
52 print "Invalid character (not UTF-8)"
56 nlines == 0 && !/[^[:space:]]/ { next }
60 nlines == 1 && /^[[:space:]]/ {
61 print "White space at start of first line"
65 nlines == 2 && /[^[:space:]]/ {
66 print "Nonempty second line"
71 print "Unprintable character; please use spaces instead of tabs"
75 72 < length && /[[:space:]]/ {
76 print "Line longer than 72 characters"
81 print "Word longer than 140 characters"
86 print "'\''Signed-off-by:'\'' present"
92 print "Empty change log entry"