#!/bin/sh

# Author: Johannes Ranke <jranke@uni-bremen.de>

usage()
{
echo "Usage: ./clean [buster|bullseye|bookworm]"
}

if [ $# -gt 1 ]; then usage; exit 1; fi
if [ $# -eq 1 ]
then
  DIST=$1
  if [ $DIST != "bookworm" ] && [ $DIST != "buster" ] && [ $DIST != "bullseye" ]; then usage; exit 1; fi
  cd $DIST
fi

for i in r-base tcl tk boot cluster codetools foreign kernsmooth lattice mgcv nlme r-cran-class r-cran-coda r-cran-mass r-cran-nnet r-cran-spatial rmatrix rodbc rpart survival littler rpy rpy2 rkward jags r-cran-rjags texinfo dh-r
do
    if ls $i*.deb 1> /dev/null 2>&1; then "Please take care of .deb files hanging around"; exit 1; fi
    rm -rf $i*
done