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!bonnie!akgua!gatech!seismo!mcvax!enea!erix!erisun!leif
From: leif@erisun.UUCP (Leif Samuelsson)
Newsgroups: net.sources
Subject: Sysline on a vt100
Message-ID: <395@erisun.UUCP>
Date: Fri, 22-Nov-85 10:18:43 EST
Article-I.D.: erisun.395
Posted: Fri Nov 22 10:18:43 1985
Date-Received: Mon, 25-Nov-85 06:49:35 EST
Organization: ERICSSON Information Systems, Sundbyberg, Sweden
Lines: 32
Keywords: VT100 TERMCAP 4.2BSD

Here is a csh script for running sysline on a vt100. It seems to
work with most programs, but it might interfere with editors
like GNUMACS. Put it in your .login, not .cshrc!


Leif Samuelsson

Ericsson Information Systems AB			..enea!erix!erisun!leif
Advanced Workstations Division
S-172 93  SUNDBYBERG				59 19 N / 17 57 E
SWEDEN

----Cut here------
if ($term == vt100) then

# Call tset to get TERMCAP entry
    set noglob
    eval `tset -Q -s`

# Insert some new fields in the TERMCAP entry and remove padding on
# some capabilities. Sysline can't handle them.
    set noglob
    setenv TERMCAP `echo "$TERMCAP" | sed -e 's/:/:li#23:i2=\\E[1;23r\\E[23;1H: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'`
    unset noglob

# We want current dir on status line
    alias cd 'cd \!*; echo $cwd > ~/.who'
    cd .

# Now start sysline
    sysline -q +30
    endif