mirror of https://github.com/mkerrisk/man-pages
check_unbalanced_macros.sh: A script to look for unbalanced *roff/man macro pairs
Signed-off-by: Michael Kerrisk <mtk.manpages@gmail.com>
This commit is contained in:
parent
b2d7a6f8d8
commit
5a659c0829
|
@ -0,0 +1,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
|
Loading…
Reference in New Issue