root/trunk/freewrt/scripts/commitstats

#!/usr/bin/env mksh
#-
# Copyright (c) 2007
#       Thorsten Glaser <tg@mirbsd.de>
#
# Provided that these terms and disclaimer and all copyright notices
# are retained or reproduced in an accompanying document, permission
# is granted to deal in this work without restriction, including un-
# limited rights to use, publicly perform, distribute, sell, modify,
# merge, give away, or sublicence.
#
# Advertising materials mentioning features or use of this work must
# display the following acknowledgement:
#       This product includes material provided by Thorsten Glaser.
#
# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
# the utmost extent permitted by applicable law, neither express nor
# implied; without malicious intent or gross negligence. In no event
# may a licensor, author or contributor be held liable for indirect,
# direct, other damage, loss, or other issues arising in any way out
# of dealing in the work, even if advised of the possibility of such
# damage or existence of a defect, except proven that it results out
# of said person's immediate fault when using the work as intended.

export LC_ALL=C; unset LANGUAGE

topdir=$(readlink -nf "${1:-$(dirname "$0")}")
topdir=${topdir%%/trunk*}
topdir=${topdir%%/branch*}
topdir=${topdir%%/tag*}

cd "$topdir"
if [[ ! -d trunk || ! -d branches || ! -d .svn ]]; then
        print -u2 cannot figure out top directory
        exit 1
fi

svn log -qrHEAD:1 |&
set -A allrevs -- -
set -A authors _total
set -A authrevs 0
while read -pr revn bar author rest; do
        [[ $revn = r+([0-9]) ]] || continue
        integer rev=${revn#r}
        #print -u2 revision $rev by $author
        allrevs[rev]=$author
        integer i=1
        while (( i < ${#authors[*]} )); do
                [[ $author = ${authors[i]} ]] && break
                let i++
        done
        authors[i]=$author
        let authrevs[i]++
        let authrevs[0]++
done

#print -u2 dump:
#integer i=0
#while (( i < ${#authors[*]} )); do
#       print "| ${authors[i]} ${authrevs[i]}"
#       let i++
#done | sort -nrk3 | column -t >&2

# select-sort
integer i=0 n=${#authors[*]}
while (( i < (n - 1) )); do
        integer j=i+1 k=i
        while (( j < n )); do
                (( authrevs[j] < authrevs[k] )) || let k=j
                let j++
        done
        if (( i != k )); then
                t=${authors[i]}
                authors[i]=${authors[k]}
                authors[k]=$t
                let j=authrevs[i]
                let authrevs[i]=authrevs[k]
                let authrevs[k]=j
        fi
        let i++
done

print -u2 dump:
i=0
while (( i < ${#authors[*]} )); do
        print "| ${authors[i]} ${authrevs[i]}"
        let i++
done | column -t >&2

i=0
integer orows=0
while (( i < n )); do
        eval set -A orows$i
        integer rev=1 revs=0 orow=0
        me=${authors[i]}
        if [[ $me = _total ]]; then
                line=\"total\"
                me='*'
        else
                line=\"$me\"
        fi
        eval orows$i[orow++]=\$line
        while (( rev <= authrevs[0] )); do
                [[ ${allrevs[rev]} = $me ]] && let revs++
                eval orows$i[orow++]=\$revs
                let rev++
        done
        (( orows < orow )) && let orows=orow
        let i++
done

# fucking openoffice has a 256-column limit on spreadsheets
# Lotus 1-2-3 9.5 doesn't seem to be much better so reshape
integer orow=0
while (( orow < orows )); do
        integer j=0
        sp=
        while (( j < i )); do
                eval print -n -- "\$sp\${orows$j[orow]}"
                sp=';'
                let j++
        done
        print
        let orow++
done
exit 0