Return to t CVS log

Up to [Research Unix] / researchv10dc / 630 / bin

Annotation of researchv10dc/630/bin/t, revision 1.1.1.1

1.1       root        1: #! /bin/sh
                      2: #
                      3: #      mw - initiate a research-style mux window on the 630
                      4: #
                      5: #      mw [-c] [-f fontname]
                      6: 
                      7: font=
                      8: fontname=
                      9: 
                     10: while :
                     11: do
                     12:        case $# in
                     13:        0)      break;;
                     14:        esac
                     15: 
                     16:        case "$1" in
                     17:        -f)     font=$1;  shift;
                     18:                case $# in
                     19:                0)      echo "$0: fontname missing"; exit 1;;
                     20:                *)      fontname=$1; shift
                     21:                esac;;
                     22:        *)      echo "usage: $0 [-c] [-f fontname]"; exit 1;;
                     23:        esac
                     24: done
                     25:                        
                     26: 
                     27: # hack to extract some interesting stty modes. This is V9-dependent.
                     28: # first, extract current `nl' and `echo' settings...
                     29: 
                     30: resettty=`stty | sed -n 4p | cut -f3,4 -d" "`
                     31: 
                     32: # now, some characters of interest to the mux window (this is
                     33: # a _real_ kludge: mw.m doesn't know if we change it after
                     34: # this because it is not a terminal driver.)
                     35: 
                     36: chars=`        stty            |
                     37:        tr ';' '\012'   |
                     38:        sed -e "/ = /!d
                     39:                s/[ ]*\([a-z]*\) = \(.*\)/\1 \2/"`
                     40: 
                     41: case $font in
                     42: -f)    if [ -r /usr/630/termfonts/$fontname ]
                     43:        then
                     44:                loadfont -c $fontname
                     45:        else
                     46:                (cd /usr/jerq/font; loadfont -c $fontname)
                     47:        fi;;
                     48: esac
                     49:        
                     50: 
                     51: trap 'stty $resettty' 0 3 13 15
                     52: stty nl -echo
                     53: exec sh

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.