/[VRac]/Orao.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Orao.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 42 by dpavlin, Tue Jul 31 09:37:01 2007 UTC revision 43 by dpavlin, Tue Jul 31 09:43:21 2007 UTC
# Line 224  sub hexdump { Line 224  sub hexdump {
224    
225  sub prompt {  sub prompt {
226          my $self = shift;          my $self = shift;
227            $self->app->sync;
228          my $a = shift;          my $a = shift;
229          my $last = shift;          my $last = shift;
230          print STDERR $self->hexdump( $a ),          print STDERR $self->hexdump( $a ),
# Line 307  my $last = 'r 1'; Line 308  my $last = 'r 1';
308  sub cli {  sub cli {
309          my $self = shift;          my $self = shift;
310          my $a = $PC || confess "no pc?";          my $a = $PC || confess "no pc?";
311          $self->app->sync;          while ( my @v = $self->prompt( $a, $last ) ) {
         while ( my @v = $orao->prompt( $a, $last ) ) {  
312                  my $c = shift @v;                  my $c = shift @v;
313                  my $v = shift @v;                  my $v = shift @v;
314                  $v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/;                  $v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/;
Legend:
Removed from v.42  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26