# -*- sh -*-
# vim:ft=sh:ts=8:sw=4:noet

AddConfigHandler ProgramsOptions
AddConfigHelp "IncompatiblePrograms <process name> [...]" "If there are processes running with any of the names listed (as seen in ps ax), then suspending is aborted. If the --kill option is passed, the offending processes are terminated, and the suspend continues."

ProgramsStop() {
    # We'd like to minimise the number of times we have to call ps.

    [ -z "$INCOMPATIBLE_PROGRAMS" ] && return 0

    local sig
    local prog
    local signalled
    local valid_prog
    if [ x"$KILL_PROGRAMS" = "x1" ] ; then
	for sig in TERM KILL ; do
	    vecho 1 -n "Sending processes SIG$sig: "
	    signalled=

	    local pid
	    local tty
	    local state
	    local time
	    local name
	    local params
	    ps ax | ( # This fires up a subshell. We can't get any env vars out.
	    while read pid tty state time name params ; do
		valid_prog=0
	    	for prog in $INCOMPATIBLE_PROGRAMS ; do
		    [ "$prog" = "$name" ] && valid_prog=1 && break
		done
		[ $valid_prog -eq 0 ] && continue
		vecho 1 -n "($name $pid) "
		signalled=1
		kill -$sig $pid
	    done ; return $signalled ) || signalled=1

	    vecho 1
	    [ -z "$signalled" ] && break
	    [ $sig != "KILL" ] && sleep 1
	done
    fi

    local pids
    pids="`ps ax | awk \"BEGIN { split(\\\"$INCOMPATIBLE_PROGRAMS\\\", progs); for (x in progs) a[progs[x]] = 1 } { if (\\\$5 in a) print}\"`"

    [ -z "$pids" ] && return 0

    vecho 0 "The following processes are still running and marked as incompatible:
$pids"
    return 1
}

ProgramsOptions() {
    case $1 in
	incompatibleprograms)
	    [ -z "$INCOMPATIBLE_PROGRAMS" ] && AddSuspendHook 20 ProgramsStop
	    shift
	    INCOMPATIBLE_PROGRAMS="$@"
	    ;;
	*)
	    return 1
    esac
    return 0
}

# $Id: programs 1139 2007-07-16 12:33:07Z nigel $
