leif@erisun.UUCP (Leif Samuelsson) (11/22/85)
In article <396@erisun.UUCP> hans@erisun.UUCP (Hans Albertson) writes: >Shucks, Leif, but if sysline can't handle padding, then sysline >has a bug, and, ipso facto, sysline should be corrected. > >Source code for ever! (Jag trodde att jag f|rklarade detta, men jag tar g{rna om det inf|r hela n{tet) First, we don't have source code for sysline, as far as I know. Second, I don't intend to support bug fixes for 4.2 if I can help it. Anyone who wants to fix sysline, can just remove the TERMCAP patch in my script. I really prefer writing software that works on existing systems, instead of having to change every system it is likely to run on. Besides, sysline isn't the only program in 4.2 that can't handle padding. Try using "rain" on a vt100, for instance. /Leif
leif@erisun.UUCP (Leif Samuelsson) (11/25/85)
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 !
----------------------