rev 13533 - in people/modax/copyright-helper/trunk: . parsers

[Modestas Vainius]

Author: modax-guest
Date: 2009-01-25 14:19:05 +0000 (Sun, 25 Jan 2009)
New Revision: 13533

Modified:
   people/modax/copyright-helper/trunk/CHParsers.pm
   people/modax/copyright-helper/trunk/copyright-helper.pl
   people/modax/copyright-helper/trunk/parsers/c_cpp.pm
Log:
More smart filename parser. Supports all sorts of extension variations

Modified: people/modax/copyright-helper/trunk/CHParsers.pm
===================================================================
--- people/modax/copyright-helper/trunk/CHParsers.pm	2009-01-25 13:41:48 UTC (rev 13532)
+++ people/modax/copyright-helper/trunk/CHParsers.pm	2009-01-25 14:19:05 UTC (rev 13533)
@@ -114,16 +114,18 @@
     our %parsers;
     my ($file, $fh) = @_;
 
-    my $ext = $& if ($file =~ /[^.]*$/);
-    if (exists $parsers{$ext}) {
-        for my $parser (@{$parsers{$ext}}) {
-            if (my $arg = $parser->prepare($file, $fh)) {
-                return ($parser, $arg);
+    my @filename = split(/\./, $file);
+    for (; scalar(@filename); shift @filename) {
+        my $ext = join(".", @filename);
+        if (exists $parsers{$ext}) {
+            for my $parser (@{$parsers{$ext}}) {
+                if (my $arg = $parser->prepare($file, $fh)) {
+                    return ($parser, $arg);
+                }
             }
         }
-    } else {
-        return (0, 0);
     }
+    return (0, 0);
 }
 
 sub get_filelist($) {

Modified: people/modax/copyright-helper/trunk/copyright-helper.pl
===================================================================
--- people/modax/copyright-helper/trunk/copyright-helper.pl	2009-01-25 13:41:48 UTC (rev 13532)
+++ people/modax/copyright-helper/trunk/copyright-helper.pl	2009-01-25 14:19:05 UTC (rev 13533)
@@ -221,7 +221,7 @@
 }
 
 # Entry point
-${main::VERSION}='0.5.0';
+${main::VERSION}='0.5.1';
 print_msg "\n";
 print_msg "Copyright Helper v${main::VERSION}\n";
 print_msg "Extracts copyright and license information from source code\n\n";

Modified: people/modax/copyright-helper/trunk/parsers/c_cpp.pm
===================================================================
--- people/modax/copyright-helper/trunk/parsers/c_cpp.pm	2009-01-25 13:41:48 UTC (rev 13532)
+++ people/modax/copyright-helper/trunk/parsers/c_cpp.pm	2009-01-25 14:19:05 UTC (rev 13533)
@@ -116,5 +116,5 @@
 }
 
 sub extensions {
-    return qw( c cpp cxx h cc java js idl );
+    return qw( c cpp cxx h cc java js idl h.cmake );
 }