/[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 98 by dpavlin, Thu Aug 2 16:01:16 2007 UTC revision 99 by dpavlin, Thu Aug 2 16:21:17 2007 UTC
# Line 430  sub read { Line 430  sub read {
430    
431          if ( first { $addr == $_ } @kbd_ports ) {          if ( first { $addr == $_ } @kbd_ports ) {
432                  warn sprintf("keyboard port: %04x\n",$addr) if $self->trace;                  warn sprintf("keyboard port: %04x\n",$addr) if $self->trace;
433                  if ( my $key = $self->key_pressed ) {                  my $key = $self->key_pressed;
434                    if ( defined($key) ) {
435                          my $r = $keyboard->{$addr} || confess "no definition for keyboard port found";                          my $r = $keyboard->{$addr} || confess "no definition for keyboard port found";
436                          if ( my $ret = $r->{$key} ) {                          if ( my $ret = $r->{$key} ) {
437                                  if ( ref($ret) eq 'CODE' ) {                                  if ( ref($ret) eq 'CODE' ) {
# Line 442  sub read { Line 443  sub read {
443                                  $mem[$addr] = $ret;                                  $mem[$addr] = $ret;
444                                  return $ret;                                  return $ret;
445                          } else {                          } else {
446                                  warn sprintf("keyboard port: %04x unknown key: '%s'\n", $addr, $key);                                  warn sprintf("keyboard port: %04x unknown key: '%s'\n", $addr, $key) if $debug;
447                          }                          }
448                          warn sprintf("keyboard port: %04x %s\n",$addr,dump( $r )) if $self->trace;                          warn sprintf("keyboard port: %04x %s\n",$addr,dump( $r )) if $self->trace;
449                  }                  }
Legend:
Removed from v.98  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.26