DIST

#!/bin/sh
# TODO: once we implement scsh-ish process utility, rewrite
# this as Gauche script!

TGZ_DEST="$HOME/src/practical-scheme.net/vault/"
MAN_DEST="$HOME/src/practical-scheme.net/gauche/man/"
DOC_DEST="$HOME/src/test"
RPMDIR="$HOME/rpm"
CHANGELOG_DEST="$HOME/practical-scheme.net/gauche/ChangeLog.txt"
XTRA_TEST_DIR="$HOME/src/test"

maintainer_clean () {
  if [ -f Makefile ]; then make maintainer-clean; fi
  for xdir in spigot mqueue-cpp; do
    if [ -f examples/$xdir/Makefile ]; then
      (cd examples/$xdir; make maintainer-clean)
    fi
  done

  find . -name '*~' -exec rm {} \;

  rm -f DIST_EXCLUDE_X
  cat DIST_EXCLUDE > DIST_EXCLUDE_X
}

check_version () {
  if [ ! -f VERSION ]; then echo "No VERSION; something wrong?"; exit 1; fi
  VERSION=`cat VERSION`
}


while [ $# -gt 0 ]; do
  case $1 in
    gen) gen=yes; shift ;;
    doc) doc=yes; shift ;;
    docs) doc=yes; docs=yes; shift ;;
    tgz) tgz=yes; shift ;;
    test) test=yes; shift ;;
    testcode) testcode=yes; shift ;;
    testclean) testclean=yes; shift ;;
    rpm)  rpm=yes; shift;;
    rpmfiles) rpmfiles=yes; shift;;
    mingw) mingw=yes; shift;;
    winvc) winvc=yes; shift;;
    sign) sign=yes; shift;;
    *) echo "DIST [doc][docs][tgz][test][testclean][rpm][rpmfiles][mingw][winvc]"; exit 0;;
  esac
done

if [ "$gen" = "yes" ]; then
  rm -rf configure gc/configure
  autoconf
  (cd gc; autoconf)
  (cd gc/libatomic_ops; autoconf)
fi

if [ "$tgz" = "yes" ]; then
  maintainer_clean
  ./DIST gen
  ./configure --enable-threads=pthreads --enable-multibyte=utf8 -C --disable-dependency-tracking || exit 1
  make GOSH=gosh pre-package
  make distclean || exit 1
  rm -rf gc/libatomic_ops/autom4te.cache

  check_version
  rm -rf ../Gauche-$VERSION
  mkdir ../Gauche-$VERSION
  tar cvfX - DIST_EXCLUDE_X . | (cd ../Gauche-$VERSION; tar xf -)
  (cd ..; tar cvf - Gauche-$VERSION | gzip -9 > Gauche-$VERSION.tgz)
  rm -rf ../Gauche-$VERSION

  if [ "$sign" = "yes" ]; then
    gpg --detach-sign --armor -o ../Gauche-$VERSION.tgz.asc ../Gauche-$VERSION.tgz
  fi
fi

if [ "$doc" = "yes" ]; then
  (cd doc; make texi)
  for lang in j e; do
    rm -rf $DOC_DEST/gauche-ref$lang
    mkdir $DOC_DEST/gauche-ref$lang
    (cd doc; make gauche-ref${lang}_toc.html; mv gauche-ref${lang}*.html $DOC_DEST/gauche-ref$lang)
  done
fi

if [ "$docs" = "yes" ]; then
  rm -f $MAN_DEST/gauche-ref*.html
  for lang in j e; do
#    (cd doc; make gauche-ref$lang.html; gzip gauche-ref$lang.html; mv gauche-ref$lang.html.gz $TGZ_DEST)
    (cd $DOC_DEST; tar czf $TGZ_DEST/gauche-ref$lang.tgz gauche-ref$lang)
    cp $DOC_DEST/gauche-ref$lang/* $MAN_DEST
  done
fi

if [ "$test" = "yes" ]; then
  check_version
  if [ ! -f ../Gauche-$VERSION.tgz ]; then echo "No tarball; do DIST tgz first"; exit 1; fi
  mkdir -p ../test
  rm -rf ../test/Gauche-$VERSION ../test/test-inst
  cd ../test
  mkdir -p test-inst
  tar xzvf ../Gauche-$VERSION.tgz
  cd Gauche-$VERSION
  ./configure --enable-threads=pthreads --prefix=`pwd`/../test-inst --enable-multibyte=utf8
  make
  make -s test
  make install
  make install-check
  cd ..
  testgosh=`pwd`/test-inst/bin/gosh
  if [ -f $XTRA_TEST_DIR/r4rstest/r4rstest.scm ]; then
    (cd $XTRA_TEST_DIR/r4rstest/ && make GOSH=$testgosh test)
  fi
fi

if [ "$testcode" = "yes" ]; then
  check_version
  if [ ! -f ../Gauche-$VERSION.tgz ]; then echo "No tarball; do DIST tgz first"; exit 1; fi
  mkdir -p ../test
  rm -rf ../test/Gauche-$VERSION
  cd ../test
  tar xzvf ../Gauche-$VERSION.tgz > /dev/null 2>&1
  cd Gauche-$VERSION
  rm -f testcode.log
  echo "UTF-8 -----------------------------------------------------"
  ./configure -C --enable-threads=pthreads --enable-multibyte=utf-8  >> testcode.log 2>&1
  make -s >> testcode.log 2>&1
  make -s test
  make -s distclean
  echo "EUC-JP ----------------------------------------------------"
  ./configure -C --enable-threads=pthreads --enable-multibyte=euc-jp >> testcode.log 2>&1
  make -s >> testcode.log 2>&1
  make -s test
  make -s distclean
  echo "SJIS ------------------------------------------------------"
  ./configure -C --enable-threads=pthreads --enable-multibyte=sjis   >> testcode.log 2>&1
  make -s >> testcode.log 2>&1
  make -s test
  make -s distclean
  echo "NONE ------------------------------------------------------"
  ./configure -C --enable-threads=pthreads --enable-multibyte=none   >> testcode.log 2>&1
  make -s >> testcode.log 2>&1
  make -s test
fi

if [ "$testclean" = "yes" ]; then
  rm -rf ../test/Gauche ../test/test-inst
  rm -rf ../test/test.log ../test/temp.o ../test/tmp1.o
  if [ -f VERSION ]; then rm -rf ../test/Gauche-`cat VERSION`; fi
fi

if [ "$rpmfiles" = "yes" ]; then
  # NB: you should be careful to run this _before_ installing any
  # additional Gauche packages.
  rm -f rpmfiles-common.txt rpmfiles-encoding.txt rpmfiles-gdbm.txt
  check_version
  find /usr/share/gauche-0.9/$VERSION -type f -print | grep -v 'dbm/[ong]dbm' > rpmfiles-common.txt
  find /usr/share/gauche-0.9/$VERSION -type f -print | grep 'dbm/[ong]dbm' > rpmfiles-gdbm.txt
  find /usr/lib/gauche-0.9/$VERSION -type f -print | grep -v '/dbm--[ong]dbm' > rpmfiles-encoding.txt
  find /usr/lib/gauche-0.9/$VERSION -type f -print | grep '/dbm--[ong]dbm' >> rpmfiles-gdbm.txt
fi

if [ "$rpm" = "yes" ]; then
  check_version
  if [ ! -f ../Gauche-$VERSION.tgz ]; then echo "No tarball; do DIST tgz first"; exit 1; fi
  rm -f $RPMDIR/SOURCES/Gauche-$VERSION.tgz
  cp ../Gauche-$VERSION.tgz $RPMDIR/SOURCES/
  spec=$RPMDIR/SPECS/Gauche.spec
#  echo "EUC, i686 -----------------------------------------------"
#  rm -f $spec
#  cat Gauche.spec | sed 's/%define encoding .*/%define encoding eucjp/' > $spec
#  rpmbuild -ba --clean --target i686 $spec
  echo "UTF8, i686 ----------------------------------------------"
  rm -f $spec
  cat Gauche.spec | sed 's/%define encoding .*/%define encoding utf8/' > $spec
  rpmbuild -bs --clean --target i686 $spec
  echo "Finishing..."
#  mv $RPMDIR/RPMS/i386/Gauche-eucjp-*.rpm $TGZ_DEST
#  mv $RPMDIR/RPMS/i386/Gauche-utf8-*.rpm $TGZ_DEST
#  mv $RPMDIR/RPMS/i686/Gauche-eucjp-*.rpm $TGZ_DEST
#  mv $RPMDIR/RPMS/i686/Gauche-utf8-*.rpm $TGZ_DEST
#  mv $RPMDIR/SRPMS/Gauche-*.rpm $TGZ_DEST
fi

#
# MinGW specific packager.  As of 0.9.1, Gauche can self build with MinGW+MSYS
#
if [ "$mingw" = "yes" ]; then
  sh src/mingw-dist.sh --with-installer --with-gl
fi

# Windows/VC preparation
if [ "$winvc" = "yes" ]; then
  maintainer_clean
  autoconf-2.61
  (cd gc; autoconf-2.61)
  sh winnt/winvc-prep.sh
fi