svn commit: r1448039 - in /perl/modperl/branches/httpd24/lib: Apache2/ParseSource.pm ModPerl/CScan.pm

[jk...@apache.org]

Author: jkaluza
Date: Wed Feb 20 08:43:49 2013
New Revision: 1448039

URL: http://svn.apache.org/r1448039
Log:
* lib/ModPerl/CScan.pm: Parse inline C functions in CScan
* lib/Apache2/ParseSource.pm: Return also inline functions in get_functions()


Modified:
    perl/modperl/branches/httpd24/lib/Apache2/ParseSource.pm
    perl/modperl/branches/httpd24/lib/ModPerl/CScan.pm

Modified: perl/modperl/branches/httpd24/lib/Apache2/ParseSource.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/lib/Apache2/ParseSource.pm?rev=1448039&r1=1448038&r2=1448039&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/lib/Apache2/ParseSource.pm (original)
+++ perl/modperl/branches/httpd24/lib/Apache2/ParseSource.pm Wed Feb 20 08:43:49 2013
@@ -411,6 +411,8 @@ sub get_functions {
     my $c = $self->{c};
 
     my $fdecls = $c->get($key);
+    my $inlines = $c->get('parsed_inlines');
+    push @{$fdecls}, @{$inlines};
 
     my %seen;
     my $wanted = $self->wanted_functions;

Modified: perl/modperl/branches/httpd24/lib/ModPerl/CScan.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/lib/ModPerl/CScan.pm?rev=1448039&r1=1448038&r2=1448039&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/lib/ModPerl/CScan.pm (original)
+++ perl/modperl/branches/httpd24/lib/ModPerl/CScan.pm Wed Feb 20 08:43:49 2013
@@ -136,6 +136,8 @@ my $recipes
       vdecl_hash => { filter => [ \&vdecl_hash, 'vdecls', 'mdecls' ], },
       parsed_fdecls => { filter => [ \&do_declarations, 'fdecls',
                                      'typedef_hash', 'keywords'], },
+      parsed_inlines => { filter => [ \&do_declarations, 'inlines',
+                                     'typedef_hash', 'keywords'], },
       keywords_rex => { filter => [ sub { my @k = keys %{ shift() };
                                           local $" = '|';
                                           my $r = "(?:@k)";