Bug#466827: sloccount: patch to enhance bison/flex file recognition

[Ronald Aigner]

Package: sloccount
Version: 2.26-2.1
Severity: wishlist
Tags: patch

attached is a patch that enhances the recognition of bison/flex source files
with .yy/.ll file name extensions and files generated from these input file.
The patch also enhances the recognition of bison/flex generated files from
.y/.l files.

-- System Information:
Debian Release: 4.0
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.24.2
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)

diff -u sloccount-2.26/break_filelist sloccount-2.26-bison-flex/break_filelist
--- sloccount-2.26/break_filelist       2004-08-01 06:17:28.000000000 +0200
+++ sloccount-2.26-bison-flex/break_filelist    2008-02-20 13:27:10.000000000 
+0100
@@ -189,7 +189,9 @@
   "awk" => "awk",
   "sed" => "sed",
   "y" => "yacc",
+  "yy" => "yacc",
   "l" => "lex",
+  "ll" => "lex",
   "makefile" => "makefile",
   "sql" => "sql",
   "php" => "php", "php3" => "php", "php4" => "php", "php5" => "php",
@@ -850,6 +852,12 @@
  if (($firstline =~ [EMAIL PROTECTED],.]\\"@) &&
      $filename =~ [EMAIL PROTECTED](c|cpp|C|cxx|cc)$@) {return "not";}
 
+ # Make some more tests for Bison-generated files
+ if ($firstline =~ [EMAIL PROTECTED] Bison parser, made by GNU Bison@) {
+   print "Note: found bison-generated file $filename\n"
+       if $noisy;
+   return "auto";
+ }
 
  if (!($firstline =~ [EMAIL PROTECTED]@)) {return "";} # No script indicator 
here.
 
@@ -990,6 +998,37 @@
        return "auto";
      }
    }
+   if ($basename =~ m/\.tab\.[ch]{2}$/) {
+     $possible_bison = $file_to_examine;
+     $possible_bison =~ s/\.tab\.[ch]{2}$/\.yy/;
+     if  (-s "$possible_bison") {
+       print "Note: found bison-generated file $file_to_examine\n"
+           if $noisy;
+       return "auto";
+     }
+   }
+
+   # Flex may generate arbitraty files. Try to be a bit clever about the
+   # generated file. (Flex generates only C/C++ files - no header files.)
+   if ($basename =~ m/.c$/) {
+     $possible_flex = $file_to_examine;
+     $possible_flex =~ s/.c$/\.l/;
+     if (-s "$possible_flex") {
+       print "Note: found flex-generated file $file_to_examine\n"
+           if $noisy;
+       return "auto";
+     }
+   }
+   if ($basename =~ m/.cc$/) {
+     $possible_flex = $file_to_examine;
+     $possible_flex =~ s/.cc$/\.ll/;
+     if (-s "$possible_flex") {
+       print "Note: found flex-generated file $file_to_examine\n"
+           if $noisy;
+       return "auto";
+     }
+   }
+
 
    # If there's a corresponding ".MASTER" file, treat this file
    # as automatically-generated derivative.  This handles "exmh".