blob: cd547e120407d2db32e5974ce5c1ad435b552516 (
plain) (
blame)
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
|
#!/bin/bash
#
# check_unbalanced_macros.sh
#
# Dec 2007, Michael Kerrisk
#
# Look for unbalanced pairs of macros in man page source files, with
# $1 and $2 specifying the macro pair. These arguments should
# _not_ include the leading dot (.) in the macro.
# As output, the program prints the line numbers containing each macro,
# and if an unbalanced macro is detected, the string "UNBALANCED!"
# is printed.
#
# Example usage:
#
# sh check_unbalanced_macros.sh nf fi */*.[1-8]
# sh check_unbalanced_macros.sh RS RE */*.[1-8]
# sh check_unbalanced_macros.sh EX EE */*.[1-8]
#
######################################################################
#
# (C) Copyright 2020, Michael Kerrisk
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details
# (http://www.gnu.org/licenses/gpl-2.0.html).
#
if test $# -lt 4; then
echo "Usage: $0 opener closer pages..."
exit 1
fi
opener="$1"
closer="$2"
shift 2
for f in $@; do
if egrep "^\.($opener|$closer)" $f > /dev/null; then
echo "================== $f"
nl -ba $f |
awk 'BEGIN { level = 0 }
$2 == "'".$opener"'" { level++ }
$2 == "'".$opener"'" || $2 == "'".$closer"'" {
printf "%s %s %d", $1, $2, level
if (level == 0)
print " UNBALANCED!"
else
print ""
}
$2 == "'".$closer"'" { level-- }
END {
if (level != 0)
print "UNBALANCED!"
}'
fi
done
|
