mirror of
https://github.com/mpv-player/mpv
synced 2024-12-14 10:55:43 +00:00
812a300c26
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@19085 b3059339-0415-0410-9bf9-f77b7e298cf2
306 lines
6.9 KiB
Bash
Executable File
306 lines
6.9 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# Check source-tree for anomalies
|
|
#
|
|
# (C)opyright 2005 by Ivo van Poorten
|
|
# Licensed under GNU General Public License version 2
|
|
#
|
|
# Thanks to Melchior Franz of the FlightGear project for the original idea
|
|
# of a source-tree checker and Torinthiel for the feedback along the way.
|
|
|
|
# $Id$
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# Default settings
|
|
|
|
_spaces=yes
|
|
_extensions=yes
|
|
_crlf=yes
|
|
_trailws=no
|
|
_rcsid=no
|
|
_oll=no
|
|
_charset=no
|
|
_showcont=no
|
|
|
|
_color=yes
|
|
_head=yes
|
|
_svn=yes
|
|
_files=
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# Avoid locale problems
|
|
|
|
export LC_ALL=C
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# Helper functions
|
|
|
|
enable_all_tests() {
|
|
_spaces=yes
|
|
_extensions=yes
|
|
_crlf=yes
|
|
_trailws=yes
|
|
_rcsid=yes
|
|
_oll=yes
|
|
_charset=yes
|
|
}
|
|
|
|
disable_all_tests() {
|
|
_spaces=no
|
|
_extensions=no
|
|
_crlf=no
|
|
_trailws=no
|
|
_rcsid=no
|
|
_oll=no
|
|
_charset=no
|
|
}
|
|
|
|
printoption() {
|
|
echo " -(no)$1 $2 [default: $3]"
|
|
}
|
|
|
|
printhead() {
|
|
test "$_head" = "yes" && echo -e "$COLB$1$COLE"
|
|
}
|
|
|
|
all_filenames() {
|
|
test "$_files" != "" && echo "$_files" && return
|
|
|
|
if [ "$_svn" == "no" ]; then
|
|
find . -type f \
|
|
| grep -v "\.\#\|\~$\|\.depend\|\/\.svn\/\|config.mak\|^\./config\.h" \
|
|
| grep -v "^\./version\.h\|\.o$\|\.a$\|configure.log\|^\./help_mp.h"
|
|
else
|
|
list_svn .
|
|
fi
|
|
}
|
|
|
|
list_svn() {
|
|
tmpfiles=`sed '/name/ba; /kind/ba; d; b;
|
|
:a; s/^ *....=\"\(.*\)\".*$/\1/;' $1/.svn/entries | \
|
|
sed '/$/N; s/\n/ /; / dir$/d; s/ file$//;'`
|
|
tmpdirs=`sed ' /name/ba; /kind/ba; d; b;
|
|
:a; s/^ *....=\"\(.*\)\".*$/\1/;' $1/.svn/entries | \
|
|
sed ' /$/N; s/\n/ /; / file$/d; /^ dir$/d; s/ dir$//;'`
|
|
|
|
for i in $tmpfiles; do
|
|
echo $1/$i
|
|
done
|
|
for j in $tmpdirs; do
|
|
list_svn $1/$j
|
|
done
|
|
}
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# Parse command line
|
|
|
|
for i in "$@"; do
|
|
case "$i" in
|
|
-help)
|
|
echo -e "\n$0 [options] [files]\n"
|
|
echo -e "options:\n"
|
|
printoption "spaces " "test for spaces in filenames" "$_spaces"
|
|
printoption "extensions" "test for uppercase extensions" "$_extensions"
|
|
printoption "crlf " "test for MSDOS line endings" "$_crlf"
|
|
printoption "trailws " "test for trailing whitespace" "$_trailws"
|
|
printoption "rcsid " "test for missing RCS Id's" "$_rcsid"
|
|
printoption "oll " "test for overly long lines" "$_oll"
|
|
printoption "charset " "test for wrong charset" "$_charset"
|
|
echo
|
|
printoption "all " "enable all tests" "no"
|
|
echo
|
|
printoption "showcont " "show offending content of file(s)" \
|
|
"$_showcont"
|
|
echo
|
|
printoption "color " "colored output" "$_color"
|
|
printoption "head " "print heading for each test" "$_head"
|
|
printoption "svn " "use .svn/ to determine which files to " \
|
|
"check" "$_svn"
|
|
echo -e "\nIf no files are specified, the whole tree is traversed."
|
|
echo -e "If there are, -(no)svn has no effect.\n"
|
|
exit
|
|
;;
|
|
-charset)
|
|
_charset=yes
|
|
;;
|
|
-nocharset)
|
|
_charset=no
|
|
;;
|
|
-oll)
|
|
_oll=yes
|
|
;;
|
|
-nooll)
|
|
_oll=no
|
|
;;
|
|
-svn)
|
|
_svn=yes
|
|
;;
|
|
-nosvn)
|
|
_svn=no
|
|
;;
|
|
-head)
|
|
_head=yes
|
|
;;
|
|
-nohead)
|
|
_head=no
|
|
;;
|
|
-color)
|
|
_color=yes
|
|
;;
|
|
-nocolor)
|
|
_color=no
|
|
;;
|
|
-spaces)
|
|
_spaces=yes
|
|
;;
|
|
-nospaces)
|
|
_spaces=no
|
|
;;
|
|
-extensions)
|
|
_extensions=yes
|
|
;;
|
|
-noextensions)
|
|
_extensions=no
|
|
;;
|
|
-crlf)
|
|
_crlf=yes
|
|
;;
|
|
-nocrlf)
|
|
_crlf=no
|
|
;;
|
|
-trailws)
|
|
_trailws=yes
|
|
;;
|
|
-notrailws)
|
|
_trailws=no
|
|
;;
|
|
-rcsid)
|
|
_rcsid=yes
|
|
;;
|
|
-norcsid)
|
|
_rcsid=no
|
|
;;
|
|
-all)
|
|
enable_all_tests
|
|
;;
|
|
-noall)
|
|
disable_all_tests
|
|
;;
|
|
-none)
|
|
disable_all_tests
|
|
;;
|
|
-showcont)
|
|
_showcont=yes
|
|
;;
|
|
-noshowcont)
|
|
_showcont=no
|
|
;;
|
|
-*)
|
|
echo "unknown option: $i" >&2
|
|
exit 0
|
|
;;
|
|
*)
|
|
_files="$_files $i"
|
|
;;
|
|
esac
|
|
done
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# Set heading color
|
|
|
|
if [ "$_color" == "yes" ]; then
|
|
COLB="\e[36m"
|
|
COLE="\e[m"
|
|
else
|
|
COLB=""
|
|
COLE=""
|
|
fi
|
|
|
|
# Generate filelist once so -svn isn't _that_ much slower than -nosvn anymore
|
|
|
|
filelist=`all_filenames`
|
|
|
|
if [ "$_showcont" == "yes" ]; then
|
|
_diffopts="-u"
|
|
_grepopts="-n -I"
|
|
else
|
|
_diffopts="-q"
|
|
_grepopts="-l -I"
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# DO CHECKS
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_spaces" == "yes" ]; then
|
|
printhead "checking for spaces in filenames ..."
|
|
find . | grep " "
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_extensions" == "yes" ]; then
|
|
printhead "checking for uppercase extensions ..."
|
|
echo $filelist | grep "\.[[:upper:]]\+$" | grep -v "\.S$"
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_crlf" == "yes" ]; then
|
|
printhead "checking for MSDOS line endings ..."
|
|
CR=`echo " " | tr ' ' '\015'`
|
|
grep $_grepopts "$CR" $filelist
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_trailws" == "yes" ]; then
|
|
printhead "checking for trailing whitespace ..."
|
|
grep $_grepopts "[[:space:]]\+$" $filelist
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_rcsid" == "yes" ]; then
|
|
printhead "checking for missing RCS \$Id\$ or \$Revision\$ tags ..."
|
|
grep -L -I "\$\(Id\|Revision\)[[:print:]]\+\$" $filelist
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_oll" == "yes" ]; then
|
|
printhead "checking for overly long lines (over 79 characters) ..."
|
|
grep $_grepopts "^[[:print:]]\{80,\}$" $filelist
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
if [ "$_charset" == "yes" ]; then
|
|
printhead "checking bad charsets ..."
|
|
for I in $filelist ; do
|
|
case "$I" in
|
|
./help/help_mp-*.h)
|
|
;;
|
|
./DOCS/*)
|
|
;;
|
|
*.c|*.h)
|
|
iconv -c -f ascii -t ascii "$I" | diff $_diffopts "$I" -
|
|
;;
|
|
esac
|
|
done
|
|
fi
|
|
|
|
# -----------------------------------------------------------------------------
|
|
|
|
# End
|
|
|