Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 alpha 4/15/85; site erisun.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!panda!talcott!harvard!seismo!mcvax!enea!erix!erisun!leif
From: leif@erisun.UUCP (Leif Samuelsson)
Newsgroups: net.sources.bugs
Subject: Re: Sysline on a vt100
Message-ID: <401@erisun.UUCP>
Date: Mon, 25-Nov-85 10:13:19 EST
Article-I.D.: erisun.401
Posted: Mon Nov 25 10:13:19 1985
Date-Received: Thu, 28-Nov-85 04:42:51 EST
References: <395@erisun.UUCP> <396@erisun.UUCP> <398@erisun.UUCP>
Reply-To: leif@erisun.UUCP (Leif Samuelsson)
Organization: Ericsson Information Systems AB, Sundbyberg, Sweden
Lines: 50
Keywords: VT100 TERMCAP 4.2BSD


Well, life isn't always as simple a one would think. It turned out
that I hadn't tested my TERMCAP with VI properly. VI has 24 lines
hard-coded in at least one place which defeats the new definition.

A work-around is to fool VI to think that we don't have region scroll,
without fooling any other programs (like scame). We can do this by
turning off the set/restore cursor capabilities. Unfortunately, VI no
longer does any scrolling, but puts '@' on removed lines instead.

It's easy to fix VI for those who have source. Just replace '23' with
'LINES-1' in file ex_vadj.c, function vdelline(). Then remove the
':sc@:rc@:' below.

Here is the revised TERMCAP line for my script:

    setenv TERMCAP `echo "$TERMCAP" | sed -e 's/:/:li#23:i2=\\E[1;23r\\E[23;1H:is=\\E[1;23r\\E[23;1H:sc@:rc@:cl=50\\E[24;1H\\E[1J\\E[1;23r:hs:es:ts=\\E7\\E[24;%dH\\E[1K:fs=\\E8:/' -e 's/=2\\E/=\\E/g'`

And here is the full TERMCAP entry for those who prefer:

dj|vt100-s-bot|f4431|dec vt100 with status line at bottom:\
	:li#23:cl=50\E[24;1H\E[1J\E[1;23r:\
	:so=\E[7m:se=\E[m:\
	:is=\E[1;23r\E[23;1H:\
	:sc@:rc@:i2=\E[1;23r\E[23;1H:\
	:hs:es:ts=\E7\E[24;%dH\E[1K:fs=\E8:tc=vt100-am:
#
d0|vt100|vt100-am|dec vt100:\
	:cr=^M:do=^J:nl=^J:bl=^G:co#80:li#24:cl=50\E[;H\E[2J:\
	:le=^H:bs:am:cm=5\E[%i%d;%dH:nd=2\E[C:up=2\E[A:\
	:ce=3\E[K:cd=50\E[J:so=2\E[7m:se=2\E[m:us=2\E[4m:ue=2\E[m:\
	:md=2\E[1m:mr=2\E[7m:mb=2\E[5m:me=2\E[m:is=\E[1;24r\E[24;1H:\
	:rf=/usr/lib/tabset/vt100:\
	:rs=\E>\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h:ks=\E[?1h\E=:ke=\E[?1l\E>:\
	:ku=\EOA:kd=\EOB:kr=\EOC:kl=\EOD:kb=^H:\
	:ho=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:ta=^I:pt:sr=5\EM:vt#3:xn:\
	:sc=\E7:rc=\E8:cs=\E[%i%d;%dr:


------
Leif Samuelsson				..enea!erix!erisun!leif
Ericsson Information Systems AB, Advanced Workstations Division
S-172 93  SUNDBYBERG, Sweden		(59 19' N / 17 57' E)

----------------------
!		     !
!	  |	     !
!		     !
! This is not a pipe !
----------------------