ChangeLogTag:Wed Aug 26 19:11:07 1998 Carlos O'Ryan <coryan@cs.wustl.edu>

1 files changed, 202 insertions, 0 deletions

diff --git a/bin/count_lines b/bin/count_lines
new file mode 100755
index 00000000000..def948ae00c
--- /dev/null
+++ b/bin/count_lines
@@ -0,0 +1,202 @@
+# -*- perl -*-
+# $Id$
+#
+
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+use File::Basename;
+
+$cmd= basename($0);
+
+if ($#ARGV < 0) {
+    die "Usage: $cmd module...\n";
+}
+
+@match_order = ();
+%typeRE = ();
+
+&initfiletypes;
+
+foreach $module (@ARGV) {
+    if ( ! -d $module ) {
+	warn "$cmd: no such directory $module\n";
+	next;
+    }
+
+    open(DIRS, "find $module -type d|");
+    @dirs = grep {if(!/CVS/) {chop;}} <DIRS>;
+    close(DIRS);
+
+    open(FIND, "find $module -type f|");
+    @files = grep {if (!/build/
+		       && !/CVS/
+		       && !/\.bpr$/
+		       && !/\.mdp$/
+		       && !/\.dsp$/
+		       && !/\.dsw$/
+		       && !/\.mak$/
+		       && !/\.MAK$/
+		       && !/\.o$/
+		       && !/\.sl$/
+		       && !/\.a$/) {chop;}} <FIND>;
+    close(FIND);
+
+    $totdirs = $#dirs;
+    $totfiles = $#files;
+    $totlines = 0;
+
+    foreach $file (@files) {
+	$n = 0;
+	if (!open(IN, $file)) {
+	    warn "$cmd: cannot open '$file' for reading\n";
+	    next;
+	}
+	while(<IN>) {
+	    $n++;
+	}
+	close(IN);
+	$lines{$file} = $n;
+	$totlines += $n;
+    }
+
+    
+    # Define two associative arrays to keep the results for each kind
+    # of file. 
+    %linespertype = ();
+    %filespertype = ();
+    foreach $type (keys %typeRE) {
+	$linespertype{$type} = 0;
+	$filespertype{$type} = 0;
+    }
+    # The file is classified and added to the corresponding variable.
+    FILE: while (($file, $l) = each %lines) {
+	foreach $type (@match_order) {
+	    $re = $typeRE{$type};
+	    if($file =~ m/$re/) {
+		$linespertype{$type} += $l;
+		$filespertype{$type}++;
+		next FILE;
+	    }
+	}
+	print STDERR "Unmatched file: $file\n";
+    }
+
+    format STDOUT_TOP=
+                                      @|||
+                                       $%
+
+                Lines of code in module @<<<<<<<<<<<<<<<<<<<<
+                                              $module
+
+Files:                 @>>>>>>>>
+                       $totfiles
+Directories:           @>>>>>>>>
+                       $totdirs
+Lines:                 @>>>>>>>>
+                       $totlines
+
+File type                    lines              files
+---------------------------- ------------------ -----------------
+.
+    format STDOUT=
+@<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>>>> @>>>>>>>>>>>>>>>>
+$type,                       $typelines,        $typefiles
+.
+
+    
+    foreach $type (@match_order) {
+	$typelines = $linespertype{$type};
+	$typefiles = $filespertype{$type};
+	if ($typefiles != 0) {
+	    write;
+	}
+    }
+    # Forzamos un newpage para cada modulo.
+    $- = 0;
+}
+
+sub updateRE {
+    local $desc = shift;
+    local $re = shift;
+    
+    if (exists $typeRE{$desc}) {
+	local $mix = $typeRE{$desc} . '|(' . $re . ')';
+	$typeRE{$desc} = $mix; 
+    } else {
+	$typeRE{$desc} = '(' . $re . ')';
+	push @match_order, $desc;
+    }
+}
+
+sub initfiletypes {
+    # Here we define the regular expressions for each kind of file.
+    # This RE must be mutually exclusive, a file will not be counted
+    # twice, but it could be unproperly classified.
+
+    local %filenames =
+	('Makefile'    => 'Makefile',
+	 'README'      => 'README files',
+	 'ChangeLog.*' => 'ChangeLog',
+	 'ChangeLog-*' => 'ChangeLog',
+	 '.cvsignore'  => 'Control CVS',
+	 'run_test.pl' => 'Test driver',
+	 'run_test'    => 'Test driver',
+	 'run_tests'   => 'Test driver',
+	 'run_test.sh' => 'Test driver');
+    local %fileexts =
+	('cc'    => 'C++ sources',
+	 'cpp'   => 'C++ sources',
+	 'i'     => 'C++ sources',
+	 'h'     => 'Headers',
+	 'hh'    => 'Headers',
+	 'idl'   => 'IDL sources',
+	 'IDL'   => 'IDL sources',
+	 'y'     => 'yacc source',
+	 'yy'    => 'yacc source',
+	 'l'     => 'lex source',
+	 'll'    => 'lex source',
+	 'pl'    => 'perl script',
+	 'GNU'   => 'GNU make config',
+	 'tex'   => '(La)TeX',
+	 '1'     => 'man pages',
+	 '3'     => 'man pages',
+	 'html'  => 'HTML',
+	 'bib'   => 'BibTeX',
+	 'sty'   => 'TeX styles',
+	 'bld'   => 'VxWorks build file',
+	 'bpr'   => 'Borland project files',
+	 'dsp'   => 'DevStudio project files',
+	 'mdp'   => 'MSVC project files',
+	 'dsw'   => 'MSVC workspaces',
+	 'mak'   => 'MSVC MAK files',
+	 'java'  => 'JAVA source',
+	 'class' => 'JAVA class',
+	 'cccc'  => 'codecount output',
+	 'gif'   => 'GIF images',
+	 'conf'  => 'Svc_Config files',
+	 'diff'  => 'patches'
+	 );
+    local %paths = ();
+
+    local ($desc, $reseed);
+    while (($reseed, $desc) = each %filenames) {
+	local $re = '/' . $reseed . '$';
+	updateRE($desc, $re);
+    }
+    while (($reseed, $desc) = each %fileexts) {
+	local $re = '/[^/]*\.' . $reseed . '$';
+	updateRE($desc, $re);
+    }
+    while (($reseed, $desc) = each %paths) {
+	local $re = $reseed;
+	updateRE($desc, $re);
+    }
+
+    updateRE('Others', '.*');
+
+#    while (($desc, $reseed) = each %typeRE) {
+#	print STDERR $desc, " ==> ", $reseed, "\n";
+#    }
+}