#!/bin/bash
#
# MKFLOAT.SH -- Install the indicated version of the IRAF binaries, i.e.,
# archive the current objects and libraries, BIN to point to bin.FFF,
# and mkpkg to produce FFF binaries (FFF=f68881, ffpa, sparc, etc.).
#
# NOTE -- This script should be run only by the IRAF system manager.  It is
# assumed that the environment variables defined in the IRAF .login and in
# hlib/irafuser.csh are defined.


ARCH="$1"
DIRS="lib pkg sys"
FILE=unix/hlib/mkpkg.inc
DFL=_DFL.mkfloat
TFL=_TFL.mkfloat

mach=`uname -s | tr '[A-Z]' '[a-z]'`
os_mach=`uname -s | tr '[A-Z]' '[a-z]' | cut -c1-6`


# Set the following to -xpf for BSD Tar and to -xof for SYSV Tar.
TARXFLGS=-xpf
#TARXFLGS=-xof

# See if we're able to compress the files.
do_compress=1
if [ ! -x `which compress` -o "$os_mach" = "cygwin" ]; then
    if [ ! -x `which gzip` ]; then
        /bin/echo "no compress command found, files will not be compressed"
	do_compress=0
    else
	COMPRESS="gzip -S .Z"
    fi
else
    COMPRESS=`which compress`
fi

# Check for an error in the package structure, i.e. the 'bin' is a directory
# and not a symlink we can change.  It's valid for an external package to
# have only a 'bin' directory, but then it's toplevel mkpkg shouldn't be
# calling us.
if [ "`ls -l bin | grep 'l.........'`" = "" ]; then
    /bin/echo "'bin' is a directory, should be symbolic link pointing to valid"
    /bin/echo "architecture.  Possible error in copying package structure??"
    /bin/echo "Use tar to copy and move directories to preserve links."
    exit 1
else
    float=`ls -l bin | sed -e 's+^.*bin\.++'`
fi
if [ "$ARCH" = "" ]; then
    /bin/echo "system is configured for $float"
    exit 0
elif [ "$float" = "$ARCH" ]; then
    /bin/echo "system is already configured for $ARCH"
    exit 0
elif [ ! -e bin.$ARCH ]; then
    /bin/echo "must up a bin.$ARCH subdirectory first"
    exit 1
fi

# Get the list of directories to be changed.
shift
DIRS=""
if [ "$1" = "-d" ]; then
    DIRS=""
    shift
    while : ; do
	DIRS="$DIRS $1"
	shift
    done
fi

/bin/echo -n \
"deleting any dreg .e files left lying about in the source directories... "
rmbin -n -o .a .o .e .E $DIRS > $TFL;  grep '\.[eE]$' $TFL | tee _.e_files
rm -f `cat _.e_files` _.e_files; grep -v '\.[eE]$' $TFL > $DFL; rm $TFL
/bin/echo "done"

/bin/echo -n "archiving and deleting $float objects... "
if [ -e bin.$float ]; then
    if [ -s $DFL ]; then
	tar -cf bin.$float/OBJS.arc `cat $DFL`
	tar -tf bin.$float/OBJS.arc | grep -v '/$' | cut -d " " -f 1 > $TFL
	cmp -s $DFL $TFL
	if [ $status ]; then
	    /bin/echo "Error: cannot archive $float objects"
	    diff $DFL $TFL
	    rm $DFL $TFL bin.$float/OBJS.arc
	    exit 1
	elif (( $do_compress>0 )); then
	    /bin/echo "done"
	    /bin/echo -n "compressing bin.$float/OBJS.arc "
	    nice $COMPRESS -f bin.$float/OBJS.arc &
	    rm -f $TFL
	fi
    fi
else
    /bin/echo "old objects will not be archived as no bin.$float dir found"
fi
/bin/echo "done."
rm -f `cat $DFL` $DFL

if [ $ARCH != "generic" ]; then
    /bin/echo -n "restoring archived $ARCH objects... "
    if [ -e bin.$ARCH/OBJS.arc.Z ]; then
	zcat bin.$ARCH/OBJS.arc.Z | tar $TARXFLGS -
	if (( $status<1 )); then
	    rm -f bin.$ARCH/OBJS.arc.Z
	fi
	/bin/echo "done"
    elif [ -e bin.$ARCH/OBJS.arc.gz ]; then
	cat bin.$ARCH/OBJS.arc.gz | gunzip | tar $TARXFLGS -
	if (( $status<1 )); then
	    rm -f bin.$ARCH/OBJS.arc.gz
	fi
	/bin/echo "done"
    elif [ -e bin.$ARCH/OBJS.arc ]; then
	cat bin.$ARCH/OBJS.arc | tar $TARXFLGS -
	if (( $status<1 )); then
	    rm -f bin.$ARCH/OBJS.arc
	fi
	/bin/echo "done"
    else
	/bin/echo ""
	/bin/echo "no object archive found; full sysgen will be needed"
    fi
fi

# Set BIN to point to new directory.
rm -f bin; ln -s bin.$ARCH bin


# Warn the user if the new ARCH does not match their current IRAFARCH.
if [ -n $IRAFARCH ]; then
    if [ "$ARCH" != "$IRAFARCH" ]; then
	/bin/echo "Warning: IRAFARCH is still in your environment to $IRAFARCH"
    fi
    if [ "$ARCH" == "generic" ]; then
	/bin/echo "Warning: IRAFARCH is still in your environment to 'generic'"
    fi
fi