Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdesdk@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 223 insertions, 0 deletions

diff --git a/scripts/cxxmetric b/scripts/cxxmetric
new file mode 100755
index 00000000..0fae0a9b
--- /dev/null
+++ b/scripts/cxxmetric
@@ -0,0 +1,223 @@
+#!/usr/bin/perl -w
+
+# Simple Source metrics for C++
+# Taj Sun Apr 26 03:31:00 EST 1998
+# $Id$
+
+use strict;
+
+our $bigblank = 0;
+our $bigcommt = 0;
+our $bigstrcount = 0;
+our $bigstrsize = 0;
+our $bigtotal = 0;
+our $numfiles = 0;
+
+our $blocklen = 0;
+our $numblocks = 0;
+our $blockdepth = 0;
+our $blockstart = 0;
+our $blockmin = -1;
+our $blockmax = 0;
+our @blenlist = ();
+our @extensions = ( ".cpp", ".cc", ".C", ".c", ".h", ".tcc" );
+
+sub processFile
+{
+	our ( $file ) = @_;
+	our $blank  = 0;
+	our $comment  = 0;
+	our $total  = 0;
+	our $incomment  = 0;
+	our $strcount = 0;
+	our $strsize = 0;
+
+	open( SOURCE, "$file" ) || 
+		die "cxxmetric.pl: Couldn't read from $file.\n";
+
+	while( <SOURCE> ) {
+		$total++;
+
+		if ( /^\s*$/ ) {
+			$blank++;
+			next;
+		}
+
+		if ( m#^\s*//# ) {
+			$comment++;
+			next;
+		}
+
+		if ( /{/ ) {
+			# block start
+			$blockdepth += s/{/{/g;
+
+			$blockstart = $. if $blockdepth  == 1;
+		}
+
+		if ( /}/ ) {
+			# block end
+
+			$blockdepth -= s/}/}/g;
+
+			if( $blockdepth == 0 ) {
+				my $thisblocklen = $. - $blockstart;
+				push @blenlist, $thisblocklen;
+				
+				$blocklen += $thisblocklen;
+				$numblocks++;
+
+				if( $blockmax < $thisblocklen ) {
+					$blockmax = $thisblocklen;
+				}
+
+				if ( $blockmin == -1 
+					|| $blockmin > $thisblocklen ) {
+					$blockmin = $thisblocklen;
+				}
+			}
+		}	
+
+		my $start = 0;
+		my $stop  = 0;
+
+		if ( m#/\*# ) {
+			$start = 1;
+		}
+		
+		if( m#\*/# ) {
+			$stop = 1;
+		}
+
+		if( $start ) {
+			$incomment = 1 unless $stop;
+			$comment++;
+		}
+		elsif ( $stop ) {
+			$comment++;
+			$incomment = 0;
+		}
+		elsif ( $incomment ) {
+				$comment++;
+		}
+		else {
+				my $line = $_;
+				countStrings( $line );
+		}
+	}
+
+	our $code = $total - ($comment + $blank );
+	$bigtotal += $total;
+	$bigcommt += $comment;
+	$bigblank += $blank;
+	$bigstrcount += $strcount;
+	$bigstrsize += $strsize;
+	
+	our $stravglen = $strcount ? ($strsize / $strcount) : 0;
+
+	write;
+}
+
+sub buildFileList {
+  my ( $dir ) = @_;
+  my @fileList = glob( "$dir/*" );
+  my @cxxList;
+
+  foreach my $file (@fileList) {
+
+    if( -d $file ) {
+      push @cxxList, buildFileList( $file );
+    }
+    else {
+      foreach my $extension (@extensions) {
+        if( substr( $file, length( $file ) - length( $extension ) ) eq $extension ) {
+	  push @cxxList, $file;
+	}
+      }
+    }
+  }
+
+  return @cxxList;
+}
+
+sub countStrings
+{
+		my $line = shift;
+
+		foreach my $string ( split( /("[^"]*)\"/, $line ) ) {
+				next unless $string =~ /^\"/;
+
+				our $strcount++;
+				our $strsize += length( $string ) - 1;
+		}
+}
+
+sub pct
+{
+	my( $top, $bottom ) = @_;
+
+	return 0 if $bottom == 0;
+
+	return int(( $top * 100 ) / $bottom);
+}
+
+our @files;
+
+if( @ARGV == 0 ) {
+  @files = buildFileList(".");
+}
+else {
+  @files = @ARGV;
+}
+
+foreach my $file ( @files ) {
+	processFile( $file );
+	++$numfiles;
+}
+
+our $total =  $bigtotal;
+our $comment = $bigcommt;
+our $blank = $bigblank;
+our $code  = $bigtotal - ($bigcommt + $bigblank );
+our $file = "Total";
+
+print "\n";
+write;
+
+print "\nPercentage Code:\t" , pct( $code, $total ),"%\n";
+print "Percentage Comment:\t" , pct( $comment, $total ),"%\n";
+print "Percentage Blank:\t" , pct( $blank, $total ),"%\n";
+print "Percentage Cmt/Code:\t" , pct( $comment, $code ),"%\n";
+print "Average Code/File:\t" , int($code/$numfiles)," lines\n" 
+	unless $numfiles == 0;
+
+if ( $numblocks > 0 ) {
+	my $avg = int( $blocklen / $numblocks );
+	@blenlist = sort @blenlist;
+	my $median = $blenlist[ int( $numblocks / 2 )];
+print<<EOF;
+
+Blocks:\t$numblocks
+\tLengths (lines):\tmin: $blockmin\tmax: $blockmax\tmed: $median\taverage: $avg
+EOF
+}
+
+our $bigstravglen = $bigstrcount ? int($bigstrsize / $bigstrcount) : 0;
+
+print<<EOF;
+Strings:\t$bigstrcount
+\tSize (bytes):\ttotal: $bigstrsize\taverage: $bigstravglen
+EOF
+
+exit;
+
+format STDOUT_TOP =
+ Lines	Code	Comment	 Blank	Strs   AvgLen File
+ ------	-------	-------- ------	------ ------ ------
+
+.
+
+format STDOUT =
+@######	@######	@######	@######	@######	@######	@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$total, $code, $comment, $blank, our $strcount, our $stravglen, $file
+.