19e395550SNicolas Palix#!/bin/bash 274425eeeSNicolas Palix 3ec97946eSNicolas Palix# 4ec97946eSNicolas Palix# This script requires at least spatch 5ec97946eSNicolas Palix# version 1.0.0-rc11. 6ec97946eSNicolas Palix# 7ec97946eSNicolas Palix 874425eeeSNicolas PalixSPATCH="`which ${SPATCH:=spatch}`" 974425eeeSNicolas Palix 1013d94865SLuis R. Rodriguezif [ ! -x "$SPATCH" ]; then 1113d94865SLuis R. Rodriguez echo 'spatch is part of the Coccinelle project and is available at http://coccinelle.lip6.fr/' 1213d94865SLuis R. Rodriguez exit 1 1313d94865SLuis R. Rodriguezfi 1413d94865SLuis R. Rodriguez 15c930a1b2SLuis R. RodriguezUSE_JOBS="no" 16c930a1b2SLuis R. Rodriguez$SPATCH --help | grep "\-\-jobs" > /dev/null && USE_JOBS="yes" 1790d06a46SKees Cook 1826e56720SBernd Schubert# The verbosity may be set by the environmental parameter V= 1926e56720SBernd Schubert# as for example with 'make V=1 coccicheck' 2026e56720SBernd Schubert 2126e56720SBernd Schubertif [ -n "$V" -a "$V" != "0" ]; then 2290d06a46SKees Cook VERBOSE="$V" 2326e56720SBernd Schubertelse 2426e56720SBernd Schubert VERBOSE=0 2526e56720SBernd Schubertfi 2626e56720SBernd Schubert 2790d06a46SKees Cookif [ -z "$J" ]; then 2890d06a46SKees Cook NPROC=$(getconf _NPROCESSORS_ONLN) 2990d06a46SKees Cookelse 3090d06a46SKees Cook NPROC="$J" 3190d06a46SKees Cookfi 3290d06a46SKees Cook 338e826ad5SLuis R. RodriguezFLAGS="--very-quiet" 349e395550SNicolas Palix 359e395550SNicolas Palix# spatch only allows include directories with the syntax "-I include" 369e395550SNicolas Palix# while gcc also allows "-Iinclude" and "-include include" 379e395550SNicolas PalixCOCCIINCLUDE=${LINUXINCLUDE//-I/-I } 385b169108SAndrzej HajdaCOCCIINCLUDE=${COCCIINCLUDE// -include/ --include} 399e395550SNicolas Palix 401e9dea2aSNicolas Palixif [ "$C" = "1" -o "$C" = "2" ]; then 411e9dea2aSNicolas Palix ONLINE=1 421e9dea2aSNicolas Palix 439e395550SNicolas Palix # Take only the last argument, which is the C file to test 441e9dea2aSNicolas Palix shift $(( $# - 1 )) 459e395550SNicolas Palix OPTIONS="$COCCIINCLUDE $1" 461e9dea2aSNicolas Palixelse 471e9dea2aSNicolas Palix ONLINE=0 48d0bc1fb4SGreg Dietsche if [ "$KBUILD_EXTMOD" = "" ] ; then 4993f14468SNicolas Palix OPTIONS="--dir $srctree $COCCIINCLUDE" 50d0bc1fb4SGreg Dietsche else 5193f14468SNicolas Palix OPTIONS="--dir $KBUILD_EXTMOD $COCCIINCLUDE" 52d0bc1fb4SGreg Dietsche fi 531e9dea2aSNicolas Palixfi 541e9dea2aSNicolas Palix 55bad6a409SNicolas Palixif [ "$KBUILD_EXTMOD" != "" ] ; then 5693f14468SNicolas Palix OPTIONS="--patch $srctree $OPTIONS" 57bad6a409SNicolas Palixfi 58bad6a409SNicolas Palix 59c930a1b2SLuis R. Rodriguez# You can override by using SPFLAGS 60c930a1b2SLuis R. Rodriguezif [ "$USE_JOBS" = "no" ]; then 61c930a1b2SLuis R. Rodriguez trap kill_running SIGTERM SIGINT 62c930a1b2SLuis R. Rodriguez declare -a SPATCH_PID 63c930a1b2SLuis R. Rodriguezelif [ "$NPROC" != "1" ]; then 64c930a1b2SLuis R. Rodriguez # Using 0 should work as well, refer to _SC_NPROCESSORS_ONLN use on 65c930a1b2SLuis R. Rodriguez # https://github.com/rdicosmo/parmap/blob/master/setcore_stubs.c 66c930a1b2SLuis R. Rodriguez OPTIONS="$OPTIONS --jobs $NPROC --chunksize 1" 67c930a1b2SLuis R. Rodriguezfi 68c930a1b2SLuis R. Rodriguez 6974425eeeSNicolas Palixif [ "$MODE" = "" ] ; then 701e9dea2aSNicolas Palix if [ "$ONLINE" = "0" ] ; then 711f0a6742SNicolas Palix echo 'You have not explicitly specified the mode to use. Using default "report" mode.' 721f0a6742SNicolas Palix echo 'Available modes are the following: patch, report, context, org' 7374425eeeSNicolas Palix echo 'You can specify the mode with "make coccicheck MODE=<mode>"' 741f0a6742SNicolas Palix echo 'Note however that some modes are not implemented by some semantic patches.' 751e9dea2aSNicolas Palix fi 761f0a6742SNicolas Palix MODE="report" 771f0a6742SNicolas Palixfi 781f0a6742SNicolas Palix 791f0a6742SNicolas Palixif [ "$MODE" = "chain" ] ; then 801f0a6742SNicolas Palix if [ "$ONLINE" = "0" ] ; then 811f0a6742SNicolas Palix echo 'You have selected the "chain" mode.' 821f0a6742SNicolas Palix echo 'All available modes will be tried (in that order): patch, report, context, org' 831f0a6742SNicolas Palix fi 8403ee0c42SNicolas Palixelif [ "$MODE" = "report" -o "$MODE" = "org" ] ; then 857a2358b3SDeepa Dinamani FLAGS="--no-show-diff $FLAGS" 8674425eeeSNicolas Palixfi 8774425eeeSNicolas Palix 881e9dea2aSNicolas Palixif [ "$ONLINE" = "0" ] ; then 8974425eeeSNicolas Palix echo '' 9074425eeeSNicolas Palix echo 'Please check for false positives in the output before submitting a patch.' 9174425eeeSNicolas Palix echo 'When using "patch" mode, carefully review the patch before submitting it.' 9274425eeeSNicolas Palix echo '' 931e9dea2aSNicolas Palixfi 9474425eeeSNicolas Palix 95c930a1b2SLuis R. Rodriguezrun_cmd_parmap() { 96c930a1b2SLuis R. Rodriguez if [ $VERBOSE -ne 0 ] ; then 97c930a1b2SLuis R. Rodriguez echo "Running ($NPROC in parallel): $@" 98c930a1b2SLuis R. Rodriguez fi 99*be1fa900SLuis R. Rodriguez if [ "$DEBUG_FILE" != "/dev/null" -a "$DEBUG_FILE" != "" ]; then 100*be1fa900SLuis R. Rodriguez if [ -f $DEBUG_FILE ]; then 101*be1fa900SLuis R. Rodriguez echo "Debug file $DEBUG_FILE exists, bailing" 102*be1fa900SLuis R. Rodriguez exit 103*be1fa900SLuis R. Rodriguez fi 104*be1fa900SLuis R. Rodriguez else 105*be1fa900SLuis R. Rodriguez DEBUG_FILE="/dev/null" 106*be1fa900SLuis R. Rodriguez fi 107*be1fa900SLuis R. Rodriguez $@ 2>$DEBUG_FILE 108c930a1b2SLuis R. Rodriguez if [[ $? -ne 0 ]]; then 109c930a1b2SLuis R. Rodriguez echo "coccicheck failed" 110c930a1b2SLuis R. Rodriguez exit $? 111c930a1b2SLuis R. Rodriguez fi 112c930a1b2SLuis R. Rodriguez} 113c930a1b2SLuis R. Rodriguez 114c930a1b2SLuis R. Rodriguezrun_cmd_old() { 11590d06a46SKees Cook local i 1165303265aSBernd Schubert if [ $VERBOSE -ne 0 ] ; then 11790d06a46SKees Cook echo "Running ($NPROC in parallel): $@" 1185303265aSBernd Schubert fi 11990d06a46SKees Cook for i in $(seq 0 $(( NPROC - 1)) ); do 12093f14468SNicolas Palix eval "$@ --max $NPROC --index $i &" 12190d06a46SKees Cook SPATCH_PID[$i]=$! 12290d06a46SKees Cook if [ $VERBOSE -eq 2 ] ; then 12390d06a46SKees Cook echo "${SPATCH_PID[$i]} running" 12490d06a46SKees Cook fi 12590d06a46SKees Cook done 12690d06a46SKees Cook wait 1275303265aSBernd Schubert} 1285303265aSBernd Schubert 129c930a1b2SLuis R. Rodriguezrun_cmd() { 130c930a1b2SLuis R. Rodriguez if [ "$USE_JOBS" = "yes" ]; then 131c930a1b2SLuis R. Rodriguez run_cmd_parmap $@ 132c930a1b2SLuis R. Rodriguez else 133c930a1b2SLuis R. Rodriguez run_cmd_old $@ 134c930a1b2SLuis R. Rodriguez fi 135c930a1b2SLuis R. Rodriguez} 136c930a1b2SLuis R. Rodriguez 13790d06a46SKees Cookkill_running() { 1382552a39fSKees Cook for i in $(seq 0 $(( NPROC - 1 )) ); do 13990d06a46SKees Cook if [ $VERBOSE -eq 2 ] ; then 14090d06a46SKees Cook echo "Killing ${SPATCH_PID[$i]}" 14190d06a46SKees Cook fi 14290d06a46SKees Cook kill ${SPATCH_PID[$i]} 2>/dev/null 14390d06a46SKees Cook done 14490d06a46SKees Cook} 1455303265aSBernd Schubert 1468e826ad5SLuis R. Rodriguez# You can override heuristics with SPFLAGS, these must always go last 1478e826ad5SLuis R. RodriguezOPTIONS="$OPTIONS $SPFLAGS" 1488e826ad5SLuis R. Rodriguez 1491e9dea2aSNicolas Palixcoccinelle () { 15074425eeeSNicolas Palix COCCI="$1" 15174425eeeSNicolas Palix 15274425eeeSNicolas Palix OPT=`grep "Option" $COCCI | cut -d':' -f2` 1531e9dea2aSNicolas Palix 15493f14468SNicolas Palix# The option '--parse-cocci' can be used to syntactically check the SmPL files. 1551e9dea2aSNicolas Palix# 1561e9dea2aSNicolas Palix# $SPATCH -D $MODE $FLAGS -parse_cocci $COCCI $OPT > /dev/null 1571e9dea2aSNicolas Palix 15835d88a38SNicolas Palix if [ $VERBOSE -ne 0 -a $ONLINE -eq 0 ] ; then 1591e9dea2aSNicolas Palix 1601e9dea2aSNicolas Palix FILE=`echo $COCCI | sed "s|$srctree/||"` 16174425eeeSNicolas Palix 1623c908417SNicolas Palix echo "Processing `basename $COCCI`" 1633c908417SNicolas Palix echo "with option(s) \"$OPT\"" 1643c908417SNicolas Palix echo '' 16574425eeeSNicolas Palix echo 'Message example to submit a patch:' 16674425eeeSNicolas Palix 1673c908417SNicolas Palix sed -ne 's|^///||p' $COCCI 16874425eeeSNicolas Palix 169062c1825SNicolas Palix if [ "$MODE" = "patch" ] ; then 17074425eeeSNicolas Palix echo ' The semantic patch that makes this change is available' 171062c1825SNicolas Palix elif [ "$MODE" = "report" ] ; then 172062c1825SNicolas Palix echo ' The semantic patch that makes this report is available' 173062c1825SNicolas Palix elif [ "$MODE" = "context" ] ; then 174062c1825SNicolas Palix echo ' The semantic patch that spots this code is available' 175062c1825SNicolas Palix elif [ "$MODE" = "org" ] ; then 176062c1825SNicolas Palix echo ' The semantic patch that makes this Org report is available' 177062c1825SNicolas Palix else 178062c1825SNicolas Palix echo ' The semantic patch that makes this output is available' 179062c1825SNicolas Palix fi 18074425eeeSNicolas Palix echo " in $FILE." 18174425eeeSNicolas Palix echo '' 18274425eeeSNicolas Palix echo ' More information about semantic patching is available at' 18374425eeeSNicolas Palix echo ' http://coccinelle.lip6.fr/' 18474425eeeSNicolas Palix echo '' 18574425eeeSNicolas Palix 1863c908417SNicolas Palix if [ "`sed -ne 's|^//#||p' $COCCI`" ] ; then 1873c908417SNicolas Palix echo 'Semantic patch information:' 1883c908417SNicolas Palix sed -ne 's|^//#||p' $COCCI 1893c908417SNicolas Palix echo '' 1903c908417SNicolas Palix fi 1912c1160c8SNicolas Palix fi 1923c908417SNicolas Palix 1932c1160c8SNicolas Palix if [ "$MODE" = "chain" ] ; then 1945303265aSBernd Schubert run_cmd $SPATCH -D patch \ 19593f14468SNicolas Palix $FLAGS --cocci-file $COCCI $OPT $OPTIONS || \ 1965303265aSBernd Schubert run_cmd $SPATCH -D report \ 19793f14468SNicolas Palix $FLAGS --cocci-file $COCCI $OPT $OPTIONS --no-show-diff || \ 1985303265aSBernd Schubert run_cmd $SPATCH -D context \ 19993f14468SNicolas Palix $FLAGS --cocci-file $COCCI $OPT $OPTIONS || \ 2005303265aSBernd Schubert run_cmd $SPATCH -D org \ 20193f14468SNicolas Palix $FLAGS --cocci-file $COCCI $OPT $OPTIONS --no-show-diff || exit 1 202c05cd6ddSNicolas Palix elif [ "$MODE" = "rep+ctxt" ] ; then 2035303265aSBernd Schubert run_cmd $SPATCH -D report \ 20493f14468SNicolas Palix $FLAGS --cocci-file $COCCI $OPT $OPTIONS --no-show-diff && \ 2055303265aSBernd Schubert run_cmd $SPATCH -D context \ 20693f14468SNicolas Palix $FLAGS --cocci-file $COCCI $OPT $OPTIONS || exit 1 2071e9dea2aSNicolas Palix else 20893f14468SNicolas Palix run_cmd $SPATCH -D $MODE $FLAGS --cocci-file $COCCI $OPT $OPTIONS || exit 1 2091e9dea2aSNicolas Palix fi 21074425eeeSNicolas Palix 21174425eeeSNicolas Palix} 21274425eeeSNicolas Palix 21374425eeeSNicolas Palixif [ "$COCCI" = "" ] ; then 21474425eeeSNicolas Palix for f in `find $srctree/scripts/coccinelle/ -name '*.cocci' -type f | sort`; do 2151e9dea2aSNicolas Palix coccinelle $f 21674425eeeSNicolas Palix done 21774425eeeSNicolas Palixelse 2181e9dea2aSNicolas Palix coccinelle $COCCI 21974425eeeSNicolas Palixfi 220