diff options
author | Kjell Ahlstedt <kjell.ahlstedt@bredband.net> | 2016-08-09 10:32:35 +0200 |
---|---|---|
committer | Kjell Ahlstedt <kjell.ahlstedt@bredband.net> | 2016-08-09 10:32:35 +0200 |
commit | e12400bc55fface092f46085086e0bf9a7659d9e (patch) | |
tree | 3611d5137d57714b19f3274c03e664a1d6aae622 | |
parent | d78682c3ed52c0f013a9bfe2a4bb7e5ee9fb408f (diff) | |
download | glibmm-e12400bc55fface092f46085086e0bf9a7659d9e.tar.gz |
gmmproc: Remove DocsParser::non_object_method_name()
This function was superseded by gtk_extra_objects.defs 6 years ago.
The substitution gtk_drag_source => Gtk::DragSource is lost with this
patch, but that substitution was wrong. There is no Gtk::DragSource
class or namespace.
-rw-r--r-- | tools/pm/DocsParser.pm | 35 |
1 files changed, 1 insertions, 34 deletions
diff --git a/tools/pm/DocsParser.pm b/tools/pm/DocsParser.pm index a22520de..f6038494 100644 --- a/tools/pm/DocsParser.pm +++ b/tools/pm/DocsParser.pm @@ -759,9 +759,7 @@ sub substitute_function($$) } else { - print "Documentation: Transformed C name $name into "; - non_object_method_name($doc_func, \$name); - print "C++ name $name\n"; + print STDERR "Documentation: Class/Namespace for $name not found\n"; } } else @@ -773,37 +771,6 @@ sub substitute_function($$) return $name . "()"; } -sub non_object_method_name($$) -{ - my ($doc_func, $name) = @_; - if ($$name =~ m/^gtk_/) - { - my %gtk_objects = ("gtk_accel_map" => "AccelMap", - "gtk_clipboard" => "Clipboard", - "gtk_file_filter" => "FileFilter", - "gtk_icon_set" => "IconSet", - "gtk_icon_source" => "IconSource", - "gtk_icon_info" => "IconInfo", - "gtk_page_setup" => "PageSetup", - "gtk_recent_info" => "RecentInfo", - "gtk_tooltip" => "Tooltip", - "gtk_target_list" => "TargetList", - "gtk_drag_source" => "DragSource", - "gtk_print_settings" => "PrintSettings", - "gtk_recent_filter" => "RecentFilter"); - foreach my $key (keys(%gtk_objects)) - { - if ($$name =~ m/^\Q$key\E/) - { - DocsParser::build_method_name($doc_func, "Gtk", $gtk_objects{$key}, $name); - return; - } - } - } - - print STDERR "Documentation: Class/Namespace for $$name not found\n"; -} - sub lookup_object_of_method($$) { my ($object, $name) = @_; |