[glibmm] gmmproc: added warning when ignored method or signal doesn't exists

[Marcin Kolny <mkolny src gnome org>]

commit 7d12317eccb0edbc43d96793487b08e7f266c4a4
Author: Marcin Kolny <marcin kolny gmail com>
Date:   Tue Sep 23 22:07:03 2014 +0200

    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 files changed, 12 insertions(+), 2 deletions(-)
---
diff --git a/tools/pm/WrapParser.pm b/tools/pm/WrapParser.pm
index a52769c..dc12eb4 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");
+    }
   }
 }