Changeset 11990

Timestamp:

07/24/10 20:40:09 (19 months ago)

Author:

azawawi

Message:

Added wxwidgets.pod parsing to Padre help search. It is now included in the index but not rendered.

File:

• trunk/Padre/lib/Padre/Document/Perl/Help.pm (modified) (5 diffs)

trunk/Padre/lib/Padre/Document/Perl/Help.pm

@@ -14 +14 @@
 
 # for caching help list (for faster access)
-my ( $cached_help_list, $cached_perlopref );
+my ( $cached_help_list, $cached_perlopref, $cached_wxwidgets );
 
 # Initialize help
@@ -24 +24 @@
         $self->{help_list} = $cached_help_list;
         $self->{perlopref} = $cached_perlopref;
+        $self->{wxwidgets} = $cached_wxwidgets;
         return;
     }
@@ -136 +137 @@
     push @index, keys %{ $self->{perlopref} };
 
+    # Add wxWidgets documentation
+    $self->{wxwidgets} = $self->_parse_wxwidgets;
+    push @index, keys %{ $self->{wxwidgets} };
+
     # Return a unique sorted index
     my %seen = ();
@@ -144 +149 @@
     $cached_help_list = $self->{help_list};
     $cached_perlopref = $self->{perlopref};
+    $cached_wxwidgets = $self->{wxwidgets};
 }
 
@@ -205 +211 @@
 }
 
+# Parses wxwidgets.pod (Perl Operator Reference)
+sub _parse_wxwidgets {
+    my $self  = shift;
+    my %index = ();
+
+    # Open wxwidgets.pod for reading
+    my $wxwidgets = File::Spec->join( Padre::Util::sharedir('doc'), 'wxwidgets', 'wxwidgets.pod' );
+    if ( open my $fh, '<', $wxwidgets ) { #-# no critic (RequireBriefOpen)
+                                          # Add PRECEDENCE to index
+        my $line;
+
+        # Add methods to index
+        my $method;
+        while ( $line = <$fh> ) {
+            if ( $line =~ /=head2\s+(.+)$/ ) {
+                $method = $1;
+                $index{$method} = $line;
+            } elsif ($method) {
+                $index{$method} .= $line;
+            }
+        }
+
+        # and we're done
+        close $fh;
+    } else {
+        TRACE("Cannot open wxwidgets.pod\n") if DEBUG;
+    }
+
+    return \%index;
+}
+
 # Renders the help topic content into XHTML
 sub help_render {