From 7d12317eccb0edbc43d96793487b08e7f266c4a4 Mon Sep 17 00:00:00 2001 From: Marcin Kolny Date: Tue, 23 Sep 2014 22:07:03 +0200 Subject: gmmproc: added warning when ignored method or signal doesn't exists (bgo#737212) * tools/pm/WrapParser.pm: when method used in _IGNORE or signal used in _IGNORE_SIGNAL doesn't exists, there is a message posted on stderr and also proper comment in a generated header. --- tools/pm/WrapParser.pm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/tools/pm/WrapParser.pm b/tools/pm/WrapParser.pm index a52769c2..dc12eb47 100644 --- a/tools/pm/WrapParser.pm +++ b/tools/pm/WrapParser.pm @@ -457,18 +457,24 @@ sub on_namespace($) sub on_ignore($) { my ($self) = @_; + my $objOutputter = $$self{objOutputter}; my $str = $self->extract_bracketed_text(); my @args = split(/\s+|,/,$str); foreach (@args) { next if ($_ eq ""); - GtkDefs::lookup_function($_); #Pretend that we've used it. + my $objCfunc = GtkDefs::lookup_function($_); #Pretend that we've used it. + if(!$objCfunc) + { + $objOutputter->output_wrap_failed($_, "ignored method defs lookup failed"); + } } } sub on_ignore_signal($) { my ($self) = @_; + my $objOutputter = $$self{objOutputter}; my $str = $self->extract_bracketed_text(); $str = string_trim($str); $str = string_unquote($str); @@ -476,7 +482,11 @@ sub on_ignore_signal($) foreach (@args) { next if ($_ eq ""); - GtkDefs::lookup_signal($$self{c_class}, $_); #Pretend that we've used it. + my $objCsignal = GtkDefs::lookup_signal($$self{c_class}, $_); #Pretend that we've used it. + if(!$objCsignal) + { + $objOutputter->output_wrap_failed($_, "ignored signal defs lookup failed"); + } } } -- cgit v1.2.1