#!/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