Changeset 5994

Timestamp:

07/09/09 19:35:49 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Extended Grok in an unofficial way to support perl6_table_index.pod

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm (modified) (1 diff)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm

@@ -219 +219 @@
         my @targets_index = sort $self->_grok->target_index();
         $self->_targets_index( \@targets_index ); 
+
+        #extend grok so it knows about Perl 6 table index
+        my $filename = File::Spec->catdir( 
+            Cwd::realpath( File::Basename::dirname(__FILE__) ),
+            'perl6_table_index.pod' );
+        open FILE, $filename or die "Cannot open $filename\n";    
+        until (<FILE> =~ /=head1 Table index/) {}
+        my $item = undef;
+        while(my $line = <FILE>) {
+            if($line =~ /^=head2\s+(.+?)$/i) {
+                $item = $1;
+            } elsif($item) {
+                if(not $self->_grok->{functions}{$item}) {
+                    my @empty = ($item,'');
+                    $self->_grok->{functions}{$item} = \@empty;
+                }
+                $self->_grok->{functions}{$item}[1] .= $line;
+            }
+        }
+        close FILE;
+        
+        @targets_index = sort $self->_grok->target_index();
+        $self->_targets_index( \@targets_index ); 
     };