From e6e33420c23d666d479ecd3769384a86478c7d1e Mon Sep 17 00:00:00 2001 From: Jan Kaluza Date: Wed, 25 Jul 2012 09:56:42 +0200 Subject: [PATCH 10/28] Parse C inlines methods in CScan --- lib/Apache2/ParseSource.pm | 2 ++ lib/ModPerl/CScan.pm | 2 ++ 2 files changed, 4 insertions(+) diff --git a/lib/Apache2/ParseSource.pm b/lib/Apache2/ParseSource.pm index 4e7cc08..7eafab5 100644 --- a/lib/Apache2/ParseSource.pm +++ b/lib/Apache2/ParseSource.pm @@ -402,6 +402,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; diff --git a/lib/ModPerl/CScan.pm b/lib/ModPerl/CScan.pm index a7314c9..a57acf3 100644 --- a/lib/ModPerl/CScan.pm +++ b/lib/ModPerl/CScan.pm @@ -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)"; -- 1.7.11.4