1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142
|
#!/usr/bin/perl -W
use strict;
sub Term::Visual::DEBUG () { 1 }
sub Term::Visual::DEBUG_FILE () { 'test.log' }
#use lib '../.';
use Carp;
use POE;
use Term::Visual;
my $vt = Term::Visual->new( Alias => "interface" );
$vt->set_palette( mycolor => "magenta on black",
statcolor => "green on black",
sockcolor => "cyan on black",
ncolor => "white on black",
st_frames => "bright cyan on blue",
st_values => "bright white on blue",
stderr_bullet => "bright white on red",
stderr_text => "bright yellow on black",
err_input => "bright white on red",
help => "white on black",
help_cmd => "bright white on black" );
my $window_id = $vt->create_window(
Window_Name => "window_one",
Status => { 0 =>
{ format => "\0(st_frames)" .
" [" .
"\0(st_values)" .
"%8.8s" .
"\0(st_frames)" .
"] " .
"\0(st_values)" .
"%s",
fields => [qw( time name )] },
# 1 =>
# { format => "template for status line 2",
# fields => [ qw( foo bar ) ] },
},
Buffer_Size => 1000,
History_Size => 50,
Input_Prompt => "[foo] ",
Title => "Title of window_one" );
POE::Session->create
(inline_states =>
{ _start => \&start_guts,
got_term_input => \&handle_term_input,
update_time => \&update_time,
update_name => \&update_name,
test_buffer => \&test_buffer,
_stop => \&stop_guts,
}
);
$vt->print($window_id, "My Window ID is $window_id");
$vt->print($window_id, $vt->get_palette);
$vt->print($window_id, "---------------------------------------");
$vt->print($window_id, $vt->get_palette("st_values", "ncolor"));
$vt->debug("testing debugging");
## Initialize the back-end guts of the "client".
sub start_guts {
my ($kernel, $heap) = @_[KERNEL, HEAP];
# Tell the terminal to send me input as "got_term_input".
$kernel->post( interface => send_me_input => "got_term_input" );
# Start updating the time.
$kernel->yield( "update_time" );
$kernel->yield( "update_name" );
$vt->set_input_prompt($window_id, "\$");
# $kernel->yield( "test_buffer" );
# $vt->shutdown;
}
### The main input handler for this program. This would be supplied
### by the guts of the client program.
sub handle_term_input {
# beep();
my ($kernel, $heap, $input, $exception) = @_[KERNEL, HEAP, ARG0, ARG1];
# Got an exception. These are interrupt (^C) or quit (^\).
# if (defined $exception) {
# warn "got exception: $exception";
# exit;
# }
if ($input eq 'quit') {
$kernel->yield('_stop');
}
else {
$vt->print($window_id, $input);
}
}
### Update the time on the status bar.
sub update_time {
my ($kernel, $heap) = @_[KERNEL, HEAP];
# New time format.
use POSIX qw(strftime);
$vt->set_status_field( $window_id, time => strftime("%I:%M %p", localtime) );
# Schedule another time update for the next minute. This is more
# accurate than using delay() because it schedules the update at the
# beginning of the minute.
$kernel->alarm( update_time => int(time() / 60) * 60 + 60 );
}
sub update_name {
my ($kernel, $heap) = @_[KERNEL, HEAP];
my $window_name = $vt->get_window_name($window_id);
$vt->set_status_field( $window_id, name => $window_name );
}
my $i = 0;
sub test_buffer {
my ($kernel, $heap) = @_[KERNEL, HEAP];
$i++;
$vt->print($window_id, $i);
$kernel->alarm( test_buffer => int(time() / 60) * 60 + 20 );
}
sub stop_guts {
my ($kernel, $heap) = @_[KERNEL, HEAP];
$vt->shutdown;
$kernel->alarm_remove_all();
if (defined $heap->{input_session}) {
delete $heap->{input_session};
}
}
$poe_kernel->run();
#$vt->shutdown;
exit 0; |
Partager