system/freebsd-src
system/freebsd-src
1
0
Fork 0
mirror of https://github.com/freebsd/freebsd-src synced 2024-09-25 19:28:10 +00:00
Code Issues Packages Projects Releases 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;
$cols = $COLS; $cols1 = $cols - 1; $cols2 = $cols - 2;;
$dl = &getcap('dl');
$al = &getcap('al');
$ho = &getcap('ho');
$ce = &getcap('ce');
# $dl = &getcap('dl');
# $al = &getcap('al');
# $ho = &getcap('ho');
# $ce = &getcap('ce');
}
sub slurpfile {
@ -84,15 +84,15 @@ sub pagearray {
elsif ($ch eq 'j') {
next if $percent >= 100;
$line += 1;
if ($dl && $ho) {
print $ho, $dl;
&mvcur(0,0,$lines2,0);
print $ce,$lines[$line+$lines2],$ce;
&wmove($curscr,0,0);
&wdeleteln($curscr);
&wmove($curscr,$lines2,0);
&waddstr($curscr,$lines[$line+$lines2]);
}
# if ($dl && $ho) {
# print $ho, $dl;
# &mvcur(0,0,$lines2,0);
# print $ce,$lines[$line+$lines2],$ce;
# &wmove($curscr,0,0);
# &wdeleteln($curscr);
# &wmove($curscr,$lines2,0);
# &waddstr($curscr,$lines[$line+$lines2]);
# }
&wmove($stdscr,0,0);
&wdeleteln($stdscr);
&wmove($stdscr,$lines2,0);
@ -104,12 +104,12 @@ sub pagearray {
elsif ($ch eq 'k') {
next if $line <= 0;
$line -= 1;
if ($al && $ho && $ce) {
print $ho, $al, $ce, $lines[$line];
&wmove($curscr,0,0);
&winsertln($curscr);
&waddstr($curscr,$lines[$line]);
}
# if ($al && $ho && $ce) {
# print $ho, $al, $ce, $lines[$line];
# &wmove($curscr,0,0);
# &winsertln($curscr);
# &waddstr($curscr,$lines[$line]);
# }
&wmove($stdscr,0,0);
&winsertln($stdscr);
&waddstr($stdscr,$lines[$line]);