Changeset 9695

Timestamp:

12/14/09 05:50:38 (2 years ago)

Author:

szabgab

Message:

add initial version of the debugger

Location:

trunk/Padre

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Padre/Action/Run.pm (modified) (1 diff)
• lib/Padre/Wx/Main.pm (modified) (3 diffs)
• lib/Padre/Wx/Menu/Run.pm (modified) (1 diff)

trunk/Padre/Changes

@@ -2 +2 @@
 
 0.53 To Be Released
+    - Add initial version of a debugger using Debug::Client (SZABGAB)
+
 
 0.52 2009.12.14

trunk/Padre/Makefile.PL

@@ -65 +65 @@
 requires 'DBD::SQLite'           => '1.10';
 requires 'DBI'                   => '1.58';
+requires 'Debug::Client'         => '0.06';
 requires 'Devel::Dumpvar'        => '0.04';
 requires 'Devel::Refactor'       => '0.05';

trunk/Padre/lib/Padre/Action/Run.pm

@@ -140 +140 @@
     );
 
+
+
+    Padre::Action->new(
+        name         => 'debug.run_document',
+        need_editor  => 1,
+        need_runable => 1,
+        need_file    => 1,
+        label        => Wx::gettext('Start Debugger (Debug::Client)'),
+        comment      => Wx::gettext( 'Run the current document through the Debug::Client.' ),
+        #shortcut     => 'Shift-F5',
+        need_editor  => 1,
+        menu_event   => sub {
+            $_[0]->debug_perl;
+        },
+    );
+
+    Padre::Action->new(
+        name         => 'debug.step_in',
+        need_editor  => 1,
+        need_runable => 1,
+        need_file    => 1,
+        label        => Wx::gettext('Debugger Step In'),
+        comment      => Wx::gettext( 'Run the current document through the Debug::Client.' ),
+        #shortcut     => 'Shift-F5',
+        need_editor  => 1,
+        menu_event   => sub {
+            $_[0]->debug_perl_step_in;
+        },
+    );
+
+    Padre::Action->new(
+        name         => 'debug.evaluate_expression',
+        need_editor  => 1,
+        need_runable => 1,
+        need_file    => 1,
+        label        => Wx::gettext('Debugger Evaluate Expression'),
+        comment      => Wx::gettext( 'Run the current document through the Debug::Client.' ),
+        #shortcut     => 'Shift-F5',
+        need_editor  => 1,
+        menu_event   => sub {
+            $_[0]->debug_perl_evaluate_expression;
+        },
+    );
+
+    Padre::Action->new(
+        name         => 'debug.quit',
+        need_editor  => 1,
+        need_runable => 1,
+        need_file    => 1,
+        label        => Wx::gettext('Quit Debugger'),
+        comment      => Wx::gettext( 'Run the current document through the Debug::Client.' ),
+        #shortcut     => 'Shift-F5',
+        need_editor  => 1,
+        menu_event   => sub {
+            $_[0]->debug_perl_quit;
+        },
+    );
+
+
+
     return $self;
 }

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -1892 +1892 @@
     my $self     = shift;
     my $document = $self->current->document;
-    unless ( $document->isa('Perl::Document::Perl') ) {
+
+    unless ( $document->isa('Padre::Document::Perl') ) {
         return $self->error( Wx::gettext("Not a Perl document") );
     }
@@ -1916 +1917 @@
     # Set up the debugger
     my $host = 'localhost';
-    my $port = 12345;
+    my $port = 12345 + int rand(1000); # TODO make this configurable?
 
     # $self->_setup_debugger($host, $port);
@@ -1924 +1925 @@
     my $perl = Padre::Perl::cperl();
     $self->run_command(qq["$perl" -d "$filename"]);
-
+    
+    require Debug::Client;
+    my $debugger = Debug::Client->new(host => $host, port => $port);
+    $debugger->listen;
+    $self->{_debugger_} = $debugger;
+    my $out = $debugger->get;
+    print $out;
+#   $self->show_output(1);
+#   $self->output->clear;
+#   $self->output->AppendText($out);
+    
+    return;
+}
+
+
+sub debug_perl_quit {
+    my $self     = shift;
+    return if not $self->{_debugger_};
+    
+    print scalar $self->{_debugger_}->quit;
+    delete $self->{_debugger_};
+
+    return;
+}
+
+sub debug_perl_step_in {
+    my $self     = shift;
+    return if not $self->{_debugger_};
+    
+    print scalar $self->{_debugger_}->step_in;
+
+    return;
+}
+
+sub debug_perl_evaluate_expression {
+    my $self     = shift;
+    return if not $self->{_debugger_};
+    
+    my $expression = $self->prompt(
+        Wx::gettext("Expression:"),
+        Wx::gettext("Expr"),
+        "EVAL_EXPRESSION"
+    );
+    print scalar $self->{_debugger_}->execute_code($expression);
+
+    return;
 }
 

trunk/Padre/lib/Padre/Wx/Menu/Run.pm

@@ -59 +59 @@
         $self,
         'run.run_this_test',
+    );
+
+    $self->AppendSeparator;
+
+    $self->{debug_start} = $self->add_menu_action(
+        $self,
+        'debug.run_document',
+    );
+    $self->{debug_step_in} = $self->add_menu_action(
+        $self,
+        'debug.step_in',
+    );
+
+    $self->{debug_step_in} = $self->add_menu_action(
+        $self,
+        'debug.evaluate_expression',
+    );
+
+    $self->{debug_quit} = $self->add_menu_action(
+        $self,
+        'debug.quit',
     );