LOC - Surely this metric really doesn't count for much - boom tish. A better metric might be who went through the LOC and reduced them to fewer, more robust LOC. A far harder metric - but obvious if you are on the dev team.
Remember that 94.251% of all statistics are lies. Stu On Tue, 2004-02-24 at 16:38, Ron Daniel wrote: > Where's the structure, indentation, and documentation, aka comments in > the code ? Or do we open a a new OSSP for this project to get it cleaned > up. But then how would we measure who wrote the most code of the code > measuring code? :-) Ho hum..... > > > -----Original Message----- > From: Jamie Wilkinson [mailto:[EMAIL PROTECTED] > Sent: Tuesday, 24 February 2004 2:07 PM > To: [EMAIL PROTECTED] > Subject: [SLUG] who wrote the most code? > > A few weeks ago, Benno asked me if I had a way to use cvs annotate to > work out percentages of code written, and after a short bit of hacking, > there was this: > > a=; t=0; cvs ann 2>/dev/null | cut -c15-21 | sort | uniq -c | while read > i; do u=`echo $i | cut -f2 -d' '`; s=`echo $i | cut -f1 -d' '`; > t=$((${t-0} + $s)); echo $t $u $s ; done | sort -rn | while read i ; do > if [ "x$a" = "x" ]; then a=`echo $i | cut -f1 -d' '`; fi ; u=`echo $i | > cut -f2 -d' '`; s=`echo $i | cut -f3 -d' '`; s=$(($s * 100)); echo $u > $(($s / $a)); done > > but I was looking at the subversion repo at work today, and wondered > the same thing... so with a bit of mangling here it is: > > a=; t=0; find . -type f ! -regex '.*\.svn.*' -exec svn ann {} \; > 2>/dev/null | awk '{print $2}' | sort | uniq -c | while read i; do > u=`echo $i | cut -f2 -d' '`; s=`echo $i | cut -f1 -d' '`; t=$((${t-0} + > $s)); echo $t $u $s ; done | sort -rn | while read i ; do if [ "x$a" = > "x" ]; then a=`echo $i | cut -f1 -d' '`; fi ; u=`echo $i | cut -f2 -d' > '`; s=`echo $i | cut -f3 -d' '`; s=$(($s * 100)); echo $u $(($s / $a)); > done > > Fun, eh? :-) > > -- > [EMAIL PROTECTED] > http://spacepants.org/jaq.gpg -- SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/ Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html
