[glibmm] gmmproc: Add _IGNORE_PROPERTY() and _IGNORE_CHILD_PROPERTY() macros
- From: Kjell Ahlstedt <kjellahl src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [glibmm] gmmproc: Add _IGNORE_PROPERTY() and _IGNORE_CHILD_PROPERTY() macros
- Date: Tue, 21 Apr 2015 14:50:36 +0000 (UTC)
commit edcd9742851215c09affdb527c54a2f2636d574a
Author: Kjell Ahlstedt <kjell ahlstedt bredband net>
Date: Tue Apr 21 16:37:11 2015 +0200
gmmproc: Add _IGNORE_PROPERTY() and _IGNORE_CHILD_PROPERTY() macros
tools/pm/WrapParser.pm: Add code for _IGNORE_PROPERTY() and
_IGNORE_CHILD_PROPERTY(), similar to _IGNORE_SIGNAL().
tools/pm/WrapParser.pm | 37 ++++++++++++++++++++++++++++---------
1 files changed, 28 insertions(+), 9 deletions(-)
---
diff --git a/tools/pm/WrapParser.pm b/tools/pm/WrapParser.pm
index 337b4cf..2e29d4d 100644
--- a/tools/pm/WrapParser.pm
+++ b/tools/pm/WrapParser.pm
@@ -111,6 +111,8 @@ sub parse_and_build_output($)
if ($token eq "_DEFS") { $self->on_defs(); next;} #Read the defs file.
if ($token eq "_IGNORE") { $self->on_ignore(); next;} #Ignore a function.
if ($token eq "_IGNORE_SIGNAL") { $self->on_ignore_signal(); next;} #Ignore a signal.
+ if ($token eq "_IGNORE_PROPERTY") { $self->on_ignore_property(); next;} #Ignore a property.
+ if ($token eq "_IGNORE_CHILD_PROPERTY") { $self->on_ignore_child_property(); next;} #Ignore a child
property.
if ($token eq "_WRAP_METHOD") { $self->on_wrap_method(); next;}
if ($token eq "_WRAP_METHOD_DOCS_ONLY") { $self->on_wrap_method_docs_only(); next;}
if ($token eq "_WRAP_CORBA_METHOD") { $self->on_wrap_corba_method(); next;} #Used in libbonobo*mm.
@@ -471,25 +473,42 @@ sub on_ignore($)
}
}
-sub on_ignore_signal($)
+# void on_ignore_signal_or_property(\&lookup_function, $type)
+sub on_ignore_signal_or_property($$$)
{
- my ($self) = @_;
- my $objOutputter = $$self{objOutputter};
+ my ($self, $lookup_function, $type) = @_;
my $str = $self->extract_bracketed_text();
- $str = string_trim($str);
- $str = string_unquote($str);
my @args = split(/\s+|,/,$str);
foreach (@args)
{
- next if ($_ eq "");
- my $objCsignal = GtkDefs::lookup_signal($$self{c_class}, $_); #Pretend that we've used it.
- if(!$objCsignal)
+ my $name = string_unquote($_);
+ next if ($name eq "");
+ my $objCentity = $lookup_function->($$self{c_class}, $name); #Pretend that we've used it.
+ if (!$objCentity)
{
- $objOutputter->output_wrap_failed($_, "ignored signal defs lookup failed");
+ $$self{objOutputter}->output_wrap_failed($name, "ignored $type defs lookup failed");
}
}
}
+sub on_ignore_signal($)
+{
+ my ($self) = @_;
+ $self->on_ignore_signal_or_property(\&GtkDefs::lookup_signal, "signal");
+}
+
+sub on_ignore_property($)
+{
+ my ($self) = @_;
+ $self->on_ignore_signal_or_property(\&GtkDefs::lookup_property, "property");
+}
+
+sub on_ignore_child_property($)
+{
+ my ($self) = @_;
+ $self->on_ignore_signal_or_property(\&GtkDefs::lookup_child_property, "child property");
+}
+
########################################
### we have certain macros we need to insert at end of statements
# void on_class($, $strClassCommand)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]