system/freebsd-src
system/freebsd-src
1
0
Fork 0
mirror of https://github.com/freebsd/freebsd-src synced 2024-11-05 18:22:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

Comment out all perverted curses optimization

Browse source
This commit is contained in:
Andrey A. Chernov 1995-03-26 03:01:04 +00:00
parent 4b0ef7df4c
commit 4b99bfd375
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=7384
1 changed files with 19 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/usr.bin/perl/usub/pager
View file

@ -22,10 +22,10 @@ sub initterm {
$lines = $LINES; $lines1 = $lines - 1; $lines2 = $lines - 2; $lines = $LINES; $lines1 = $lines - 1; $lines2 = $lines - 2;
$cols = $COLS; $cols1 = $cols - 1; $cols2 = $cols - 2;; $cols = $COLS; $cols1 = $cols - 1; $cols2 = $cols - 2;;
$dl = &getcap('dl'); # $dl = &getcap('dl');
$al = &getcap('al'); # $al = &getcap('al');
$ho = &getcap('ho'); # $ho = &getcap('ho');
$ce = &getcap('ce'); # $ce = &getcap('ce');
} }
sub slurpfile { sub slurpfile {
@ -84,15 +84,15 @@ sub pagearray {
elsif ($ch eq 'j') { elsif ($ch eq 'j') {
next if $percent >= 100; next if $percent >= 100;
$line += 1; $line += 1;
if ($dl && $ho) { # if ($dl && $ho) {
print $ho, $dl; # print $ho, $dl;
&mvcur(0,0,$lines2,0); # &mvcur(0,0,$lines2,0);
print $ce,$lines[$line+$lines2],$ce; # print $ce,$lines[$line+$lines2],$ce;
&wmove($curscr,0,0); # &wmove($curscr,0,0);
&wdeleteln($curscr); # &wdeleteln($curscr);
&wmove($curscr,$lines2,0); # &wmove($curscr,$lines2,0);
&waddstr($curscr,$lines[$line+$lines2]); # &waddstr($curscr,$lines[$line+$lines2]);
} # }
&wmove($stdscr,0,0); &wmove($stdscr,0,0);
&wdeleteln($stdscr); &wdeleteln($stdscr);
&wmove($stdscr,$lines2,0); &wmove($stdscr,$lines2,0);
@ -104,12 +104,12 @@ sub pagearray {
elsif ($ch eq 'k') { elsif ($ch eq 'k') {
next if $line <= 0; next if $line <= 0;
$line -= 1; $line -= 1;
if ($al && $ho && $ce) { # if ($al && $ho && $ce) {
print $ho, $al, $ce, $lines[$line]; # print $ho, $al, $ce, $lines[$line];
&wmove($curscr,0,0); # &wmove($curscr,0,0);
&winsertln($curscr); # &winsertln($curscr);
&waddstr($curscr,$lines[$line]); # &waddstr($curscr,$lines[$line]);
} # }
&wmove($stdscr,0,0); &wmove($stdscr,0,0);
&winsertln($stdscr); &winsertln($stdscr);
&waddstr($stdscr,$lines[$line]); &waddstr($stdscr,$lines[$line]);