#!/bin/sh
#
# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
#     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
#     2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
#     2015, 2016, 2017, 2018, 2019, 2020 Massachusetts Institute of
#     Technology
#
# This file is part of MIT/GNU Scheme.
#
# MIT/GNU Scheme is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of the
# License, or (at your option) any later version.
#
# MIT/GNU Scheme is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with MIT/GNU Scheme; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
# 02110-1301, USA.

# Utility for cleaning up an MIT/GNU Scheme build directory.
# The working directory must be the build directory.

set -e

if [ ${#} -eq 1 ]; then
    COMMAND=${1}
    KEYWORDS="rm-bin rm-com rm-pkg"
    case ${COMMAND} in
    c-clean | maintainer-clean)
	KEYWORDS="${KEYWORDS} rm-c"
	;;
    esac
elif [ ${#} -ge 2 ]; then
    COMMAND=${1}
    shift
    KEYWORDS=${*}
else
    echo "usage: ${0} <command> <keyword> ..."
    exit 1
fi

DIST=no
MAINTAINER=no
case ${COMMAND} in
mostlyclean | clean | c-clean)
    ;;
distclean)
    DIST=yes
    ;;
maintainer-clean)
    DIST=yes
    MAINTAINER=yes
    ;;
*)
    echo "${0}: Unknown command ${COMMAND}"
    exit 1
    ;;
esac

TOPDIR=${TOPDIR:-..}
. "${TOPDIR}/etc/functions.sh"

maybe_rm *-init.c *-init.h *-init.o

if [ ${DIST} = yes ]; then
    if [ -f Makefile.in ]; then
	maybe_rm Makefile
    fi
fi

if [ ${MAINTAINER} = yes ]; then
    maybe_unlink .edwin-ffi ed-ffi.scm
    for FN in Clean.sh Setup.sh Stage.sh Tags.sh; do
	maybe_unlink "${FN}" "${TOPDIR}/etc/${FN}"
    done
    if [ -f Makefile-fragment ]; then
	maybe_rm Makefile.in
	maybe_rm Makefile-bundle
    fi
    maybe_rm TAGS
fi

for KEYWORD in ${KEYWORDS}; do
    case ${KEYWORD} in
    rm-bin)
	maybe_rm *.bin *.ext *.nib *.txe
	;;
    rm-com)
	maybe_rm *.com *.bci *.moc *.fni *.o *.so *.sl *.dylib
	;;
    rm-pkg)
	maybe_rm *-unx.crf *-unx.fre *-unx.pkd *-unx.dkp
	maybe_rm *-w32.crf *-w32.fre *-w32.pkd *-w32.dkp
	;;
    rm-c)
	maybe_rm *.c
        ;;
    esac
done
