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