##
##  arx -- Extended archive command
##  Copyright (c) 1999-2002 Ralf S. Engelschall <rse@engelschall.com>
##  Originally written for shtool
##
##  This file is part of shtool and 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.
##
##  This file 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 this program; if not, write to the Free Software
##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
##  USA, or contact Ralf S. Engelschall <rse@engelschall.com>.
##

str_tool="arx"
str_usage="[-t|--trace] [-C|--command <cmd>] <op> <archive> [<file> ...]"
arg_spec="2+"
opt_spec="t.C:"
opt_alias="t:trace,C:command"
opt_t=no
opt_C="ar"

. ./sh.common

ar_prg="$opt_C"
ar_cmd="$1"; shift
archive="$1"; shift
files="$*"

#   walk through the file list and expand archives members
tmpdir=`echo $archive | sed -e 's;[^/]*$;.arx;'`
nfiles=''
if [ ".$files" != . ]; then
    for file in $files; do
        if [ ! -f $file ]; then
            echo "$msgprefix:Error: input file not found: $file" 1>&2
            exit 1
        fi
        case $file in
            *.a )
                if [ ! -d $tmpdir ]; then
                    if [ ".$opt_t" = .yes ]; then
                        echo "mkdir $tmpdir" 1>&2
                    fi
                    mkdir $tmpdir
                fi
                case $tmpdir in
                     .arx )
                         from="../$file"
                         ;;
                     * )
                         dir=`echo $file | sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' -e 's;^$;.;'`
                         base=`echo $file | sed -e 's;.*/\([^/]*\)$;\1;'`
                         from="`cd $dir; pwd`/$base"
                         ;;
                esac
                if [ ".$opt_t" = .yes ]; then
                    echo "(cd $tmpdir && $ar_prg x $from)" 1>&2
                fi
                (cd $tmpdir && eval $ar_prg x $from)
                if [ $? -ne 0 ]; then
                    echo "$msgprefix:Error: member extraction failed for archive: $file" 1>&2
                    exit 1
                fi
                for member in - `eval $ar_prg t $file | sed -e '/_\.SYMDEF/d'`; do
                    [ ".$member" = .- ] && continue
                    nfiles="$nfiles $tmpdir/$member"
                done
                ;;
            * )
                nfiles="$nfiles $file"
                ;;
        esac
    done
fi

#   run the final archive command
if [ ".$opt_t" = .yes ]; then
    echo "$ar_prg $ar_cmd $archive $nfiles" 1>&2
fi
eval $ar_prg $ar_cmd $archive $nfiles
if [ $? -ne 0 ]; then
    echo "$msgprefix:Error: archive command failed" 1>&2
    exit $?
fi

#   cleanup and die gracefully
if [ -d $tmpdir ]; then
    if [ ".$opt_t" = .yes ]; then
        echo "rm -rf $tmpdir" 1>&2
    fi
    rm -rf $tmpdir
fi

