home *** CD-ROM | disk | FTP | other *** search
- #!/bin/sh
-
- # make referring termcap entries, one for a status-line on the bottom line,
- # and one with the status-line on the top line -- bjd
-
- how_many()
- {
- echo -en "hardware has how many $1? " >&2
- read answer
- }
-
- echo >&2
- echo "('make.termcap-entry >file' to write output to file)" >&2
- echo >&2
- how_many "columns"
- columns=$answer
- how_many "rows "
- rows=$answer
- echo >&2
-
- cat <<EOT
- # ${columns}x${rows} capable of displaying a status-line on the bottom line
- # note 1: the names "lx" and "con-unk" might have to be replaced
- # note 2: name carries the suffix "-s"
- lx|con${columns}x${rows}-s:\\
- :co#${columns}:li#${rows}:\\
- :hs:\\
- :es:\\
- :ts=\E7\E[m\E[%i${rows};%dH\E[1K:\\
- :fs=\E[0K\E8:\\
- :ds=\E7\E[${rows};1H\E[2K\E8:\\
- :i2=\E[1;$((${rows}-1))r\E[H\E[J:\\
- :cs=\E[%i%d;%dr:\\
- :cl=\E[$((${rows}-1));${columns}H\E[1J\E[H:\\
- :cd=\E[K:\\
- :tc=con-unk:
-
- # ${columns}x${rows} capable of displaying a status-line on the top line
- # note 1: the names "lx" and "con-unk" might have to be replaced
- # note 2: name carries the suffix "-top-s"
- lx|con${columns}x${rows}-top-s:\\
- :co#${columns}:li#${rows}:\\
- :hs:\\
- :es:\\
- :ts=\E7\E[m\E[%i1;%dH\E[1K:\\
- :fs=\E[0K\E8:\\
- :ds=\E7\E[1;1H\E[2K\E8:\\
- :i2=\E[2;${rows}r\E[2;1H\E[J:\\
- :.cs=\E[2;${rows}r:\\
- :cs=\E[%i%i%d;%dr:\\
- :cl=\E[2;1H\E[J:\\
- :cm=\E[%i%a+c\001%d;%dH:\\
- :ho=\E[2;1H:\\
- :tc=con-unk:
- EOT
-