X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=8a1c8719f8b7f24d1423c26f328c154c242e6714;hb=82de56e409a19a05761794c9588713160b51144e;hp=0cb15bd0fbc0171446f40fde6151ee100621f8d7;hpb=dc999e28c96ebb4589dbdda8435a548ade15a37d;p=spider.git diff --git a/perl/console.pl b/perl/console.pl index 0cb15bd0..8a1c8719 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -50,6 +50,46 @@ $khistpos = 0; $spos = $pos = $lth = 0; $inbuf = ""; +# do the screen initialisation +sub do_initscr +{ + $scr = new Curses; + raw(); + noecho(); + $has_colors = has_colors(); + + if ($has_colors) { + start_color(); + init_pair(0, $foreground, $background); + init_pair(1, COLOR_RED, $background); + init_pair(2, COLOR_YELLOW, $background); + init_pair(3, COLOR_GREEN, $background); + init_pair(4, COLOR_CYAN, $background); + init_pair(5, COLOR_BLUE, $background); + init_pair(6, COLOR_MAGENTA, $background); + } + + $top = $scr->subwin(LINES()-4, COLS, 0, 0); + $top->intrflush(0); + $top->scrollok(1); + $scr->addstr(LINES()-4, 0, '-' x COLS); + $bot = $scr->subwin(3, COLS, LINES()-3, 0); + $bot->intrflush(0); + $bot->scrollok(1); + $bot->keypad(1); + $bot->move(1,0); + $scr->refresh(); + + $pagel = LINES()-4; + $mycallcolor = COLOR_PAIR(1) unless $mycallcolor; +} + +sub do_resize +{ + undef $scr; + do_initscr(); +} + # cease communications sub cease { @@ -82,13 +122,25 @@ sub setattr } } +# measure the no of screen lines a line will take +sub measure +{ + my $line = shift; + return 0 unless $line; + + my $l = length $line; + my $lines = int ($l / COLS()); + $lines++ if $l / COLS() > $lines; + return $lines; +} + # display the top screen sub show_screen { if ($spos == @shistory - 1) { # if we really are scrolling thru at the end of the history - my $line = $shistory[-1]; + my $line = $shistory[$spos]; $top->addstr("\n") if $spos > 0; setattr($line); $top->addstr($line); @@ -98,24 +150,39 @@ sub show_screen } else { # anywhere else - my $p = $spos - $pages; - my $i; + my ($i, $l); + my $p = $spos-1; + for ($i = 0; $i < $pagel && $p >= 0; ) { + $l = measure($shistory[$p]); + $i += $l; + $p-- if $i < $pagel; + } $p = 0 if $p < 0; $top->move(0, 0); $top->attrset(COLOR_PAIR(0)) if $has_colors; $top->clrtobot(); - for ($i = 0; $i < $pages && $p < @shistory; $i++, $p++) { + for ($i = 0; $i < $pagel && $p < @shistory; $p++) { my $line = $shistory[$p]; - $line = substr($line, 0, COLS()) if length $line > COLS(); - $top->move($i, 0); + my $lines = measure($line); + last if $i + $lines > $pagel; setattr($line); - $top->addstr($line); + $top->addstr($i, 0, $line); $top->attrset(COLOR_PAIR(0)) if $has_colors; + $i += $lines; } $spos = $p; + $spos = @shistory if $spos > @shistory; } - $top->refresh(); + my $shl = @shistory; + my $add = "-$spos-$shl"; + $scr->addstr(LINES()-4, 0, '-' x (COLS() - (length($call) + length($add)))); + $scr->attrset($mycallcolor) if $has_colors; + $scr->addstr("$call"); + $scr->attrset(COLOR_PAIR(0)) if $has_colors; + $scr->addstr($add); + $scr->refresh(); +# $top->refresh(); } # add a line to the end of the top screen @@ -137,9 +204,9 @@ sub rec_socket if (defined $msg) { my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/; - if ($sort eq 'D') { + if ($sort && $sort eq 'D') { addtotop($line); - } elsif ($sort eq 'Z') { # end, disconnect, go, away ..... + } elsif ($sort && $sort eq 'Z') { # end, disconnect, go, away ..... cease(0); } } @@ -159,10 +226,26 @@ sub rec_stdin # $prbuf =~ s/\n/\\n/; # print "sys: $r ($prbuf)\n"; if (defined $r) { + if ($r eq KEY_ENTER || $r eq "\n" || $r eq "\r") { # save the lines if ($inbuf) { + # check for a pling and do a search back for a command + if ($inbuf =~ /^!/o) { + my $i; + $inbuf =~ s/^!//o; + for ($i = $#khistory; $i >= 0; $i--) { + if ($khistory[$i] =~ /^$inbuf/) { + $inbuf = $khistory[$i]; + last; + } + } + if ($i < 0) { + beep(); + return; + } + } push @khistory, $inbuf if $inbuf; shift @khistory if @khistory > $maxkhist; $khistpos = @khistory; @@ -172,6 +255,10 @@ sub rec_stdin } # add it to the monitor window + unless ($spos == @shistory) { + $spos = @shistory; + show_screen(); + }; addtotop($inbuf) if $inbuf; # send it to the cluster @@ -197,7 +284,12 @@ sub rec_stdin } } elsif ($r eq KEY_PPAGE || $r eq "\032") { if ($spos > 0) { - $spos -= $pages; + my ($i, $l); + for ($i = 0; $i <= $pagel && $spos >= 0; ) { + $l = measure($shistory[$spos]); + $i += $l; + $spos-- if $i <= $pagel; + } $spos = 0 if $spos < 0; show_screen(); } else { @@ -205,8 +297,13 @@ sub rec_stdin } } elsif ($r eq KEY_NPAGE || $r eq "\026") { if ($spos < @shistory - 1) { - $spos += $pages; - $spos = @shistory if $spos > @shistory; + my ($i, $l); + for ($i = 0; $i <= $pagel && $spos <= @shistory; ) { + $l = measure($shistory[$spos]); + $i += $l; + $spos++ if $i <= $pagel; + } + $spos = @shistory if $spos >= @shistory - 1; show_screen(); } else { beep(); @@ -251,6 +348,13 @@ sub rec_stdin beep(); } } elsif ($r ge ' ' && $r le '~') { + # move the top screen back to the bottom if you type something + if ($spos < @shistory) { + $spos = @shistory; + show_screen(); + } + + # insert the character into the keyboard buffer if ($pos < $lth) { my $a = substr($inbuf, 0, $pos); my $b = substr($inbuf, $pos); @@ -261,7 +365,7 @@ sub rec_stdin $pos++; $lth++; } elsif ($r eq "\014" || $r eq "\022") { -# curscr()->refresh(); + #do_resize(); return; } elsif ($r eq "\013") { $inbuf = substr($inbuf, 0, $pos); @@ -307,39 +411,13 @@ if (! $conn) { $SIG{'INT'} = \&sig_term; $SIG{'TERM'} = \&sig_term; +#$SIG{'WINCH'} = \&do_resize; $SIG{'HUP'} = 'IGNORE'; -$scr = new Curses; -raw(); -noecho(); -$has_colors = has_colors(); - -if ($has_colors) { - start_color(); - init_pair(0, $foreground, $background); - init_pair(1, COLOR_RED, $background); - init_pair(2, COLOR_YELLOW, $background); - init_pair(3, COLOR_GREEN, $background); - init_pair(4, COLOR_CYAN, $background); - init_pair(5, COLOR_BLUE, $background); - init_pair(6, COLOR_MAGENTA, $background); -} - -$top = $scr->subwin(LINES()-4, COLS, 0, 0); -$top->intrflush(0); -$top->scrollok(1); -$scr->addstr(LINES()-4, 0, '-' x COLS); -$bot = $scr->subwin(3, COLS, LINES()-3, 0); -$bot->intrflush(0); -$bot->scrollok(1); -$bot->keypad(1); -$bot->move(1,0); -$scr->refresh(); +do_initscr(); $SIG{__DIE__} = \&sig_term; -$pages = LINES()-4; - $conn->send_now("A$call|$connsort"); $conn->send_now("I$call|set/page $maxshist"); $conn->send_now("I$call|set/nobeep");