source: branches/port5/util/arb_save

#!/bin/bash

NAME=`date '+arbsrc_%Y_%m_%d__%H_%M.tgz'`

dump_revision() {
    ./SOURCE_TOOLS/build_info.pl && \
        grep ARB_SVN_REVISION ./TEMPLATES/svn_revision.h | \
        perl -ne 'if (/ARB_SVN_REVISION\s+\"(.*)\"/) { $_=$1; s/:/_/; print $_; }'
}


REVISION=`dump_revision`
REVISION_DIR=arbsrc_$REVISION
echo REVISION_DIR=$REVISION_DIR


rm_noerr() {
    test -f $1 && rm -f $1 
}
cleanup() {
    # rm_noerr arbsrc.lst
    rm_noerr arbsrc.lst.tmp
    test -L $REVISION_DIR && rm $REVISION_DIR
    true
}

gen_list() {
    util/arb_srclst.pl $* > arbsrc.lst.tmp || \
        ( echo "Failed to build arbsrc.lst" ; echo "To save manually use 'make save2'"; false )
}
sort_list() {
    sort < arbsrc.lst.tmp | perl -pne "s/^\./.\/$REVISION_DIR/g;" > arbsrc.lst
}
gen_tarball() {
    ln -s . $REVISION_DIR && \
    tar -zcf $NAME --files-from=arbsrc.lst && \
        ( rm -f arbsrc.tgz ; \
        ln -s $NAME arbsrc.tgz ; \
        true )
}

save() {
    gen_list $* && sort_list && gen_tarball
}

(save $* && cleanup && (ls -alG -rt arbsrc*;true)) || \
(cleanup;echo "Failed to create source tarball";false)