getArchive.sh

Go to the documentation of this file.

#!/bin/zsh
#
# \author mdejong
#
script=${0##*/}

source ${0%${script}}ulib.sh

set_variable:  DEBUG        ARCHIVE_DEBUG       2
set_variable   VERSION      "*"

if do_usage $*; then
    usage "$script  <path>  [<detector identifier>  [<run>  [<type>  [version]]]]"\
          "\nUtility script to list files in archive."
fi

case $# in
    5)  set_variable   VERSION      $argv[5];&
    4)  set_variable   TYPE         $argv[4];&
    3)  let            RUN="        $argv[3]";&
    2)  let            ID="         $argv[2]";&
    1)  set_variable   DIR          $argv[1];;
    *)  fatal "Wrong number of arguments."
esac


if [[ ! -d $DIR ]]; then
    fatal "Invalid path $argv[1]"
fi


setopt extendedglob

typeset -Z8 ID


#
# print file properties
#
# \param  1     file name
#
function archive()
{
    typeset -T BUFFER ARRAY /

    BUFFER=$1

    set_variable  A_ID       ${ARRAY[-6]}
    set_variable  A_TYPE     ${ARRAY[-5]}
    set_variable  A_VERSION  ${ARRAY[-4]#_}
    let           A_MINRUN=" ${ARRAY[-3]}"
    let           A_MAXRUN=" ${ARRAY[-2]}"
    set_variable  A_FILENAME ${ARRAY[-1]}

    let           A_COUNTER="${A_FILENAME:r}"

    if (( $RUN >= $A_MINRUN && $RUN <= $A_MAXRUN )); then

    if [[ $(uname) == "Darwin" ]]; then
          ls -l $BUFFER
    else
          ls -l --author $BUFFER
    fi

        if (( $DEBUG >= 3 )); then
            echo "identifier:   $(($A_ID))"
            echo "type:         $A_TYPE"
            echo "version:      $A_VERSION"
            echo "minimal run:  $(($A_MINRUN))"
            echo "maximal run:  $(($A_MAXRUN))"
            echo
        fi
    fi

}


if (( $#   == 1 )); then
    ls -1 $DIR/ | grep -E ${ANY_ID}; return
fi


if (( $ID  == 0 )); then
    fatal "Invalid detector identifier $argv[2]"
fi


if (( $#   == 2 )); then
    ls -1 $DIR/$ID/;                 return
fi


if (( $RUN == 0 )); then
    fatal "Invalid run $argv[3]"
fi


if (( $#   == 3 )); then

    eval ls -1 $DIR/$ID/\*/_\*/\*/\*/\* 2> /dev/null | while read BUFFER; do
        archive $BUFFER
    done
fi


if (( $#   >= 4 )); then

    eval ls -1 $DIR/$ID/$TYPE/_${VERSION}/\*/\*/\* 2> /dev/null | while read BUFFER; do
        archive $BUFFER
    done
fi