Return to ttyctl.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / pifuncs

Annotation of 43BSD/contrib/icon/pifuncs/ttyctl.c, revision 1.1

1.1     ! root        1: /*
        !             2: #      TTYCTL(3.icon)
        !             3: #
        !             4: #      Control of terminal attributes
        !             5: #
        !             6: #      Steven B. Wampler
        !             7: #
        !             8: #      Last modified 8/19/84
        !             9: #
        !            10: */
        !            11: 
        !            12: #include "../h/rt.h"
        !            13: #ifdef VAX
        !            14: #include <sgtty.h>
        !            15: #define TIOCQSIZ        (('t'<<8)|65)
        !            16: 
        !            17: int oldttyflags = -1234;
        !            18: 
        !            19: Xstty(nargs)                                            /* set tty device flags */
        !            20: int nargs;
        !            21:    {
        !            22:    register int oldflags, i, n;
        !            23:    long l;
        !            24:    struct sgttyb oldmodes;
        !            25:    struct descrip arg;
        !            26: 
        !            27:    ioctl(2,TIOCGETP,&oldmodes);                         /* old modes */
        !            28:    oldflags = oldmodes.sg_flags;
        !            29:    if (oldttyflags == -1234)                            /* save if 1st call */
        !            30:       oldttyflags = oldflags;
        !            31: 
        !            32:    for (n = 1; n <= nargs; n++) {
        !            33:       arg = ARG(n);
        !            34:       if (cvint(&arg, &l) == NULL)
        !            35:          runerr(101, &arg);
        !            36:       i = (int)l;
        !            37:       if (l < 0)                                        /* turn off flag */
        !            38:          oldmodes.sg_flags &= ~-(int)l;
        !            39:       else                                              /* turn on flag */
        !            40:          oldmodes.sg_flags |= (int)l;
        !            41:       }
        !            42: 
        !            43:    ioctl(2,TIOCSETP,&oldmodes);                         /* new modes */
        !            44:    mkint(oldflags, &ARG(0));                            /* return old modes */
        !            45:    }
        !            46: 
        !            47: Procblock(stty,-1)
        !            48: 
        !            49: Xrestty(nargs)                                          /* reset tty to original state */
        !            50: int nargs;
        !            51:    {                    /* if original state unknown, makes a guess */
        !            52:    register int oldflags;
        !            53:    struct sgttyb oldmodes;
        !            54: 
        !            55:    ioctl(2,TIOCGETP,&oldmodes);
        !            56:    oldflags = oldmodes.sg_flags;
        !            57:    oldmodes.sg_flags = (oldttyflags == -1234) ? 0330 : oldttyflags;
        !            58:    ioctl(2,TIOCSETP,&oldmodes);
        !            59:    mkint(oldflags, &ARG(0));                             /* return old modes */
        !            60:    }
        !            61: 
        !            62: Procblock(restty,0)
        !            63: 
        !            64: Xkeyin(nargs)
        !            65: int nargs;
        !            66:   {
        !            67:   long count;
        !            68:   count = 0;
        !            69:   ioctl(0, FIONREAD, &count);
        !            70: 
        !            71:   if (count == 0L)
        !            72:      fail();
        !            73: 
        !            74:   ARG(0) = nulldesc;
        !            75:   }
        !            76: 
        !            77: Procblock(keyin,0)
        !            78: #endif VAX

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