#!/bin/csh

set empty=""

foreach pkg (`pkg_info|cut -d" " -f 1`)

# goto after comment
again:

set req=`pkg_info -R $pkg|grep -A 1 Req|grep -v Req`

if ( $req == $empty ) then
echo -n "Pakage $pkg. Delete y/n? (w for pkg comment, q for quit) [n]: "
set ans=($< )

switch ($ans)
case 'y':
set dres=`sudo pkg_delete $pkg`
if ($dres > 0) then
echo "Error deleting package! Fix it manually!"
exit 1
else
echo "Deleted successfully!"
endif
breaksw

case 'q':
exit 0
breaksw

case 'w':
pkg_info -c $pkg | grep -A 1 "Comment:" | grep -v "Comment:"
echo ""
goto again
breaksw

case 'n':
default:
breaksw

endsw
endif
end
exit 0