#!@zsh@/bin/zsh

typeset -a queue
queue=()

suffix=${${0:t}##*.}
uucpsize() {
    command queuesize.${suffix} ${@}
}
mediaspace() {
    cat @queueDir@/${suffix}.space
}
queuesize() {
    local sum=0
    for file (${queue}); do
        local size=$(stat -c "%s" "${file}") || continue
        sum=$((sum + size))
    done
    printf "%d" ${sum}
}

queueTxt=$(grep -vE '^\s*$' @queueDir@/${suffix}.queue)
queue=(${(f)queueTxt})

printf "Space: %s\n  Reported: %s\n  UUCP queue size: %s\n" \
       $(numfmt --to=iec-i --suffix=B -- $(($(mediaspace) - $(uucpsize)))) \
       $(mediaspace | numfmt --to=iec-i --suffix=B) \
       $(uucpsize | numfmt --to=iec-i --suffix=B)

printf "Queue: %d\n  Size: %s\n" \
       ${#queue} \
       $(queuesize | numfmt --to=iec-i --suffix=B)

printf "\n"

for file (${queue}); do
    size() {
        stat -c "%s" "${file}" | numfmt --to=iec-i --suffix=B
    }
    printf "%6s %s\n" $(size || printf "N/A") ${file:t}
done