/[cvs]/joko/Scripts/psh/lib/POE/Component/Terminal.pm
ViewVC logotype

Diff of /joko/Scripts/psh/lib/POE/Component/Terminal.pm

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

revision 1.6 by cvsjoko, Sat Jun 15 07:46:11 2002 UTC revision 1.7 by cvsjoko, Sat Jun 15 07:56:40 2002 UTC
# Line 5  Line 5 
5  ## $Id$  ## $Id$
6  ##  ##
7  ## $Log$  ## $Log$
8    ## Revision 1.7  2002/06/15 07:56:40  cvsjoko
9    ## + bugfixes for win32 (additional keys)
10    ##
11  ## Revision 1.6  2002/06/15 07:46:11  cvsjoko  ## Revision 1.6  2002/06/15 07:46:11  cvsjoko
12  ## + bugfixes for linux  ## + bugfixes for linux
13  ##  ##
# Line 82  sub new { Line 85  sub new {
85    map { $self->{$_} = $args->{$_}; } keys %{$args};    map { $self->{$_} = $args->{$_}; } keys %{$args};
86    
87    if ( RUNNING_IN_HELL () ) {    if ( RUNNING_IN_HELL () ) {
88      $self->{conf}{EnterKey} = "\r";      $self->{conf}{KeyEnter} = 13;
89        $self->{conf}{KeyBackspace} = 8;
90        $self->{conf}{KeyCTRLC} = 3;
91    } else {    } else {
92      $self->{conf}{EnterKey} = "\n";      $self->{conf}{KeyEnter} = 10;
93        $self->{conf}{KeyBackspace} = 127;
94        $self->{conf}{KeyCTRLC} = 3;
95    }    }
96    
97    ## Make our session.  See $states defined up above . . .    ## Make our session.  See $states defined up above . . .
# Line 211  sub pollForKey { Line 218  sub pollForKey {
218  #print "key: ", ord($key), "\n";  #print "key: ", ord($key), "\n";
219            
220      # CTRL+C pressed?      # CTRL+C pressed?
221      if (ord($key) == 3) {      if (ord($key) == $self->{conf}{KeyCTRLC}) {
222        ReadMode 1;        ReadMode 1;
223        print "\n";        print "\n";
224        exit;        exit;
225      }      }
226    
227      # enter pressed?      # enter pressed?
228      if (ord($key) == 10) {      if (ord($key) == $self->{conf}{KeyEnter}) {
229    
230        # if enter was pressed while request was pending,        # if enter was pressed while request was pending,
231        # we should stop waiting for output and come back to prompt again,        # we should stop waiting for output and come back to prompt again,
# Line 244  sub pollForKey { Line 251  sub pollForKey {
251      }      }
252    
253      # backspace pressed?      # backspace pressed?
254      elsif (ord($key) == 127) {      elsif (ord($key) == $self->{conf}{KeyBackspace}) {
255        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);
256      }      }
257    
# Line 260  sub pollForKey { Line 267  sub pollForKey {
267    
268    }    }
269    
270      #$kernel->post($session, "pollForKey");
271    #$kernel->run_one_timeslice();    #$kernel->run_one_timeslice();
272    $kernel->post($session, "pollForKey");    #$kernel->post($session, "pollForKey");
273    #$kernel->yield($session, "pollForKey");    #$kernel->yield($session, "pollForKey");
274    #$kernel->delay("pollForKey", 0.1);    #$kernel->delay("pollForKey", 0.1);
275    #$kernel->delay("pollForKey", 0.01);    $kernel->delay("pollForKey", 0.001);
276    
277  }  }
278    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed