ChangeLogTag:Thu May 6 14:23:14 1999 Carlos O'Ryan <coryan@cs.wustl.edu>

1 files changed, 32 insertions, 10 deletions

diff --git a/bin/count_lines b/bin/count_lines
index ed6f2d21375..49c541094df 100755
--- a/bin/count_lines
+++ b/bin/count_lines
@@ -32,10 +32,14 @@ foreach $module (@ARGV) {
     open(FIND, "find $module -type f|");
     @files = grep {if (!/build/
 		       && !/CVS/
+		       && !/rpc\+\+/
 		       && !/\.bpr$/
 		       && !/\.mdp$/
+		       && !/\.MDP$/
 		       && !/\.dsp$/
+		       && !/\.DSP$/
 		       && !/\.dsw$/
+		       && !/\.DSW$/
 		       && !/\.mak$/
 		       && !/\.MAK$/
 		       && !/\.o$/
@@ -46,6 +50,7 @@ foreach $module (@ARGV) {
     $totdirs = $#dirs;
     $totfiles = $#files;
     $totlines = 0;
+    %lines = ();
 
     foreach $file (@files) {
 	$n = 0;
@@ -136,30 +141,36 @@ sub initfiletypes {
     # 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');
+	('Makefile'     => 'Makefile',
+	 'README'       => 'README files',
+	 'COPYING'      => 'Licenses',
+	 'LICENSE.*'    => 'Licenses',
+	 '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',
+	 'c'     => 'C/C++ sources',
 	 'idl'   => 'IDL sources',
 	 'IDL'   => 'IDL sources',
+	 'pidl'  => 'IDL sources',
 	 'y'     => 'yacc source',
 	 'yy'    => 'yacc source',
 	 'l'     => 'lex source',
 	 'll'    => 'lex source',
 	 'pl'    => 'perl script',
+	 'perl'  => 'perl script',
 	 'GNU'   => 'GNU make config',
 	 'tex'   => '(La)TeX',
+	 'txt'   => 'Text files',
 	 '1'     => 'man pages',
 	 '3'     => 'man pages',
 	 'html'  => 'HTML',
@@ -168,15 +179,26 @@ sub initfiletypes {
 	 'bld'   => 'VxWorks build file',
 	 'bpr'   => 'Borland project files',
 	 'dsp'   => 'DevStudio project files',
+	 'DSP'   => 'DevStudio project files',
 	 'mdp'   => 'MSVC project files',
+	 'MDP'   => 'MSVC project files',
 	 'dsw'   => 'MSVC workspaces',
+	 'DSW'   => 'MSVC workspaces',
 	 'mak'   => 'MSVC MAK files',
+	 'MAK'   => 'MSVC MAK files',
 	 'java'  => 'JAVA source',
 	 'class' => 'JAVA class',
 	 'cccc'  => 'codecount output',
 	 'gif'   => 'GIF images',
 	 'conf'  => 'Svc_Config files',
-	 'diff'  => 'patches'
+	 'diff'  => 'patches',
+	 'zip'   => 'Compressed files',
+	 'gz'    => 'Compressed files',
+	 'EXE'   => 'Win32 executable',
+	 'shar'  => 'Shar archive',
+	 'mib'   => 'MIB definition files',
+	 'gperf' => 'GPERF input',
+	 'phil.*'=> 'Test driver'
 	 );
     local %paths = ();