summaryrefslogtreecommitdiff
path: root/check-pascal
blob: 7d66ba72a18cd08fc0d8ec30a6c6320a1d610dc5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
#!/bin/bash

if git rev-parse --verify HEAD >/dev/null 2>&1
then
	against=HEAD
else
	# Initial commit: diff against an empty tree object
	against=4b825dc642cb6eb9a060e54bf8d69288fbee4904
fi

# If you want to allow non-ASCII filenames set this variable to true.
allownonascii=$(git config --bool hooks.allownonascii)

# Redirect output to stderr.
exec 1>&2

# Cross platform projects tend to avoid non-ASCII filenames; prevent
# them from being added to the repository. We exploit the fact that the
# printable range starts at the space character and ends with tilde.
if [ "$allownonascii" != "true" ] &&
	# Note that the use of brackets around a tr range is ok here, (it's
	# even required, for portability to Solaris 10's /usr/bin/tr), since
	# the square bracket bytes happen to fall in the designated range.
	test $(git diff --cached --name-only --diff-filter=A -z $against |
	  LC_ALL=C tr -d '[ -~]\0' | wc -c) != 0
then
	cat <<\EOF
Error: Attempt to add a non-ASCII file name.

This can cause problems if you want to work with people on other platforms.

To be portable it is advisable to rename the file.

If you know what you are doing you can disable this check using:

  git config hooks.allownonascii true
EOF
	exit 1
fi

# If there are whitespace errors, print the offending file names and fail.
git diff-index --check --cached $against -- '*.pas' '*.lpr' '*.inc' || exit $?

TREE=$(git write-tree)

bezeichner=$(
	git archive $TREE | \
		tar -Ox --wildcards --wildcards-match-slash '*.pas' '*.lpr' '*.inc' 2> /dev/null | \
		grep -v '^unit ' | \
		sed '
			/^uses\($\|\s\)/{
				:Schleife
				$!N
				s@uses\(\n\|\s\)[^;]\+;@@
				TSchleife
			}
		' | \
		sed '
			:Anfang
			s|//.*$||
			'"s|'[^']*'||g"'
			s|\$\?{[^{}]*}||g
			s|\$[0-9a-fA-F]\+| |g
			s|#[0-9]\+| |g
			/{/{
				:Schleife
				$!N
				s|\$\?{[^{}]*}||g
				TSchleife
				bAnfang
			}
		' | \
		tr '[]\t\r:= ;,.()+*^<>/'"'-" '\n' | \
		sed 's|^@||' | \
		sort -u
)

if fehlerA=$(
	echo "$bezeichner" | \
		grep '[^_]_\+[^_]'
) && fehlerB=$(
	echo "$bezeichner" | \
		grep '[A-Z]'
); then
	if [ $(echo "$fehlerA" | wc -l) -gt $(echo "$fehlerB" | wc -l) ]; then
		warnung="$fehlerB"
	else
		warnung="$fehlerA"
	fi
fi

fehler=$(
	echo "$bezeichner" | \
		sort -f | \
		uniq -iD
)

if [ -n "$fehler" ]; then
	>&2 echo 'You are being inconsistent regarding capitalization:'
	>&2 echo "$fehler"
	exit 1
elif [ -n "$warnung" ]; then
	>&2 echo 'Warning: You have names with underscores in them at the same time with ones with capitalization:'
	>&2 echo "$warnung"
fi