/[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.2 by cvsjoko, Sat Jun 15 03:45:21 2002 UTC revision 1.3 by cvsjoko, Sat Jun 15 04:24:15 2002 UTC
# Line 5  Line 5 
5  ## $Id$  ## $Id$
6  ##  ##
7  ## $Log$  ## $Log$
8    ## Revision 1.3  2002/06/15 04:24:15  cvsjoko
9    ## + added modifier for running in linux or win32
10    ## + modified order of some commands in core key-polling
11    ##
12  ## Revision 1.2  2002/06/15 03:45:21  cvsjoko  ## Revision 1.2  2002/06/15 03:45:21  cvsjoko
13  ## + cvs id & log  ## + cvs id & log
14  ## + clearing inputbuffer just after getting the "enter"-key  ## + clearing inputbuffer just after getting the "enter"-key
# Line 48  my $states = { Line 52  my $states = {
52            recieveResponse => 'recieveResponse',            recieveResponse => 'recieveResponse',
53               };               };
54    
55    sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
56    
57  sub new {  sub new {
58    my $class = shift;    my $class = shift;
59    $class = ref( $class ) || $class;    $class = ref( $class ) || $class;
# Line 66  sub new { Line 72  sub new {
72    # store entries from args to object ($self)    # store entries from args to object ($self)
73    map { $self->{$_} = $args->{$_}; } keys %{$args};    map { $self->{$_} = $args->{$_}; } keys %{$args};
74    
75      if ( RUNNING_IN_HELL () ) {
76        $self->{conf}{EnterKey} = "\r";
77      } else {
78        $self->{conf}{EnterKey} = "\n";
79      }
80    
81    ## Make our session.  See $states defined up above . . .    ## Make our session.  See $states defined up above . . .
82    POE::Session->create( object_states => [ $self => $states, ], );    POE::Session->create( object_states => [ $self => $states, ], );
83    
# Line 181  sub pollForKey { Line 193  sub pollForKey {
193    my $key = ReadKey(-1);    my $key = ReadKey(-1);
194    if ($key) {    if ($key) {
195            
     $heap->{state}{KeyPressed} = 1;  
   
196      # normal key?      # normal key?
197      if ($key =~ m/[a-zA-Z? ]/) {      if ($key =~ m/[a-zA-Z? ]/) {
198        $heap->{state}{InputBuffer} .= $key;        $heap->{state}{InputBuffer} .= $key;
# Line 190  sub pollForKey { Line 200  sub pollForKey {
200      }      }
201    
202      # enter pressed?      # enter pressed?
203      if ($key eq "\r") {      if ($key eq $self->{conf}{EnterKey}) {
204        # send command        # send command
205        my $buf = $heap->{state}{InputBuffer};        my $buf = $heap->{state}{InputBuffer};
206        if ($buf) {        if ($buf) {
# Line 213  sub pollForKey { Line 223  sub pollForKey {
223        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);
224      }      }
225    
226        # mark "KeyPressed" for next poll
227        $heap->{state}{KeyPressed} = 1;
228    
229    }    }
230    
231        #$kernel->post($session, "pollForKey");
232    $kernel->post($session, "pollForKey");    #$kernel->delay("pollForKey", 0.1);
233    #$kernel->delay("term_work", 0.1);    $kernel->delay("pollForKey", 0.01);
234    
235  }  }
236    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed