#! /bin/sh

for branch in master branch_release-1-8; do

    SNAP_NAME=guile-$branch-`date +%Y%m%d`

    exec >${SNAP_NAME}.log 2>&1

    echo Snapshooting ${SNAP_NAME}

    echo
    echo "Save off any work in progress"
    set - $(git diff --name-only)
    if [ $# -ne 0 ]; then
	git checkout -b ${SNAP_NAME}
	git commit -a -m WIP
    fi

    echo
    echo "=== git checkout $branch"
    git checkout $branch

    echo
    echo "=== git pull"
    git pull git://git.savannah.gnu.org/guile.git +refs/heads/${branch}:refs/remotes/origin/${branch}

    echo
    echo "=== ./autogen.sh"
    ./autogen.sh

    echo
    echo "=== ./configure --enable-maintainer-mode --with-threads"
    ./configure --enable-maintainer-mode --with-threads

    echo
    echo "=== make"
    make

    distdir=${SNAP_NAME}

    echo
    echo "=== make distcheck distdir=$distdir"
    make distcheck distdir=$distdir

    password=$(cat ossau-password.txt)

    echo
    echo "=== update FTP site (www.ossau.uklinux.net/guile/snapshots)"
    lftp <<EOF
open -u ossau,${password} www.ossau.uklinux.net
cd guile/snapshots
mrm guile-${branch}*
mput ${SNAP_NAME}*
exit
EOF

    exec >${SNAP_NAME}.cleanup.log 2>&1

    echo
    echo "=== make -k distclean"
    make -k distclean

    echo
    echo "=== git reset --hard HEAD"
    git status
    git reset --hard HEAD

done