Changeset 11982

Timestamp:

07/24/10 20:01:51 (19 months ago)

Author:

azawawi

Message:

Totally ignore ::operator[.+]

File:

• trunk/tools/parse_wxwidgets_docs.pl (modified) (2 diffs)

trunk/tools/parse_wxwidgets_docs.pl

@@ -127 +127 @@
                         $name =~ s/wx(.+?)/Wx::$1/;
                         if($name =~ /^Wx::(.+?)::(.+?)$/) {
-                            if($2 eq "wx$1") {
+                            my $method = $2;
+                            if($method eq "wx$1") {
                                 # C++ constructor... convert to Perl ::new
-                                $name = "$class\:\:new"
+                                $name = $class . '::new';
+                            } elsif ($method =~ /operator.+/) {
+                                # Ignore operators
+                                $name = undef;
                             }
                         }
@@ -142 +146 @@
 
                             # print out method description
-$desc = HTML::FormatText->new->format(parse_html($desc));
+                            $desc = HTML::FormatText->new->format(parse_html($desc));
                             print $pod "=head2 $name\n$desc\n";