mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-01 17:40:34 +00:00
106 lines
2.6 KiB
Bash
Executable File
106 lines
2.6 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
IFILE="$1"
|
|
|
|
if [ -z "${IFILE}" ]; then
|
|
echo "Usage: indent.sh [-i|-u] [file] [...]"
|
|
echo " -i indent in place (modify file)"
|
|
echo " -u unified diff of the file"
|
|
exit 1
|
|
fi
|
|
|
|
CWD="$PWD"
|
|
INPLACE=0
|
|
UNIFIED=0
|
|
ROOTDIR=/
|
|
|
|
if [ "${IFILE}" = "-i" ]; then
|
|
shift
|
|
INPLACE=1
|
|
IFILE="$1"
|
|
fi
|
|
|
|
if [ "${IFILE}" = "-u" ]; then
|
|
shift
|
|
UNIFIED=1
|
|
IFILE="$1"
|
|
fi
|
|
|
|
# yell, rather than overwrite an innocent file
|
|
if ! type clang-format >/dev/null; then
|
|
echo This script requires clang-format to function
|
|
exit 1
|
|
fi
|
|
|
|
indentFile() {
|
|
if [ ! -f "${IFILE}" ]; then
|
|
echo "Cannot find $IFILE"
|
|
return
|
|
fi
|
|
echo "Indenting ${IFILE} ..." > /dev/stderr
|
|
cp -f doc/clang-format ${CWD}/.clang-format
|
|
(
|
|
cd "$CWD"
|
|
clang-format "${IFILE}" > .tmp-format
|
|
# fix ternary conditional indent
|
|
perl -ne 's/ \? /? /g;print' < .tmp-format > .tmp-format2
|
|
cat .tmp-format2 | sed -e 's, : ,: ,g' > .tmp-format
|
|
mv .tmp-format .tmp-format2
|
|
# do not space before parenthesis on function signatures
|
|
awk '{if (/^static/ || /^R_API/) { gsub(/ \(/,"("); }; print;}' \
|
|
< .tmp-format2 > .tmp-format
|
|
# allow oneliner else statements
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's/\telse\n[ \t]*/\telse /g;print' < .tmp-format2 | \
|
|
awk '{if (/\telse \t+/) {gsub(/\telse \t+/, "\telse ");} print;}' > .tmp-format
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's/} else\n[ \t]*/} else /g;print' < .tmp-format2 | \
|
|
awk '{if (/} else \t+/) {gsub(/} else \t+/, "} else ");} print;}' > .tmp-format
|
|
# do not place spaces after tabs
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's,\t[ ]+,\t,g;print' < .tmp-format2 > .tmp-format
|
|
# drop spaces an multiline backslashes
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's/[ ]+\\$/\\/g;print' < .tmp-format2 > .tmp-format
|
|
# spaces in { brackets
|
|
mv .tmp-format .tmp-format2
|
|
#perl -ne 's/{\s/{ /g;print' < .tmp-format2 > .tmp-format
|
|
perl -ne 's/{([^ \n])/{ \1/g if(!/"/);print' < .tmp-format2 > .tmp-format
|
|
# spaces in } brackets
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's/([^ \t])}/$1 }/g if(!/"/);print' < .tmp-format2 > .tmp-format
|
|
# _( macro
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's/_\s\(/_(/g;print' < .tmp-format2 > .tmp-format
|
|
# 0xa0
|
|
mv .tmp-format .tmp-format2
|
|
perl -ne 's/[\xa0\xc2]//g;print' < .tmp-format2 > .tmp-format
|
|
|
|
if [ "$UNIFIED" = 1 ]; then
|
|
diff -ru "${IFILE}" .tmp-format
|
|
rm .tmp-format
|
|
elif [ "$INPLACE" = 1 ]; then
|
|
mv .tmp-format "${IFILE}"
|
|
else
|
|
cat .tmp-format
|
|
rm .tmp-format
|
|
fi
|
|
rm -f .tmp-format2
|
|
)
|
|
rm -f ${CWD}/.clang-format
|
|
}
|
|
|
|
while : ; do
|
|
[ "$PWD" = / ] && break
|
|
if [ -f doc/clang-format ]; then
|
|
ROOTDIR=$PWD
|
|
while : ; do
|
|
[ -z "${IFILE}" ] && break
|
|
indentFile
|
|
shift
|
|
IFILE="$1"
|
|
done
|
|
fi
|
|
cd ..
|
|
done
|