40 lines
1.4 KiB
Diff
40 lines
1.4 KiB
Diff
|
From e6e33420c23d666d479ecd3769384a86478c7d1e Mon Sep 17 00:00:00 2001
|
||
|
|
From: Jan Kaluza <hanzz.k@gmail.com>
|
||
|
|
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
|
||
|
|
|