Return to tdump.c CVS log

Up to [XINU] / xinu / sys

Annotation of xinu/sys/tdump.c, revision 1.1

1.1     ! root        1: /* tdump.c - tdump, tdumph, tdump1 */
        !             2: 
        !             3: #include <conf.h>
        !             4: #include <kernel.h>
        !             5: #include <tty.h>
        !             6: 
        !             7: /*
        !             8:  * routines to dump contents of tty control block
        !             9:  */
        !            10: static char    *unctrl[]       = {     /* unctrl codes for ttys        */
        !            11:        "^@", "^A", "^B", "^C", "^D", "^E", "^F", "^G", "^H", "^I", "^J", "^K",
        !            12:        "^L", "^M", "^N", "^O", "^P", "^Q", "^R", "^S", "^T", "^U", "^V", "^W",
        !            13:        "^X", "^Y", "^Z", "^[", "^\\", "^]", "^~", "^_",
        !            14:        " ", "!", "\"", "#", "$",  "%", "&", "'", "(", ")", "*", "+", ",", "-",
        !            15:        ".", "/", "0",  "1", "2",  "3", "4", "5", "6", "7", "8", "9", ":", ";",
        !            16:        "<", "=", ">",  "?", "@",  "A", "B", "C", "D", "E", "F", "G", "H", "I",
        !            17:        "J", "K", "L",  "M", "N",  "O", "P", "Q", "R", "S", "T", "U", "V", "W",
        !            18:        "X", "Y", "Z",  "[", "\\", "]", "^", "_", "`", "a", "b", "c", "d", "e",
        !            19:        "f", "g", "h",  "i", "j",  "k", "l", "m", "n", "o", "p", "q", "r", "s",
        !            20:        "t", "u", "v",  "w", "x",  "y", "z", "{", "|", "}", "~", "^?"
        !            21: };
        !            22: 
        !            23: /*------------------------------------------------------------------------
        !            24:  *  tdump  --  dump the tty control blocks
        !            25:  *------------------------------------------------------------------------
        !            26:  */
        !            27: tdump()
        !            28: {
        !            29:        int i;
        !            30: 
        !            31:        for (i=0 ; i<Ntty ; i++)
        !            32:                tdump1(i);
        !            33: }
        !            34: 
        !            35: /*------------------------------------------------------------------------
        !            36:  *  tdumph  --  dump the tty control block
        !            37:  *------------------------------------------------------------------------
        !            38:  */
        !            39: tdumph()
        !            40: {
        !            41:        tdump();
        !            42: }
        !            43: 
        !            44: /*------------------------------------------------------------------------
        !            45:  *  tdump1  --  dump one tty control block
        !            46:  *------------------------------------------------------------------------
        !            47:  */
        !            48: tdump1(tnum)
        !            49: int tnum;
        !            50: {
        !            51:         register struct tty *iptr;
        !            52:         PStype ps;
        !            53:        int i;
        !            54: 
        !            55:         disable(ps);
        !            56:         iptr = &tty[tnum];
        !            57:        kprintf("Tty %d CSR at %o\n",tnum,iptr->ioaddr);
        !            58:         kprintf("INPUT -- tail at %d head at %d sem # %d value %d\n",
        !            59:                iptr->itail,iptr->ihead,iptr->isem,i=scount(iptr->isem));
        !            60:        if (i<0)
        !            61:                i=0;
        !            62:        else if (i > IBUFLEN)
        !            63:                i = IBUFLEN;
        !            64:        tqdump(iptr->itail,i,IBUFLEN,iptr->ibuff);
        !            65:         kprintf("OUTPUT -- tail at %d head at %d sem # %d value %d\n",
        !            66:                iptr->otail,iptr->ohead,iptr->osem,i=scount(iptr->osem));
        !            67:        i = OBUFLEN - i;
        !            68:        if (i < 0)
        !            69:                i = 0;
        !            70:        else if (i>OBUFLEN)
        !            71:                i = OBUFLEN;
        !            72:        tqdump(iptr->otail,i,OBUFLEN,iptr->obuff);
        !            73:         restore(ps);
        !            74: }
        !            75: static tqdump(start, len, maxlen, buff)
        !            76: int start,len,maxlen;
        !            77: char *buff;
        !            78: {
        !            79:        register int i;
        !            80:         for ( i=start ; len>0 ; len-- ) {
        !            81:                 if ( buff[i]&0200 ) kprintf("M-");
        !            82:                 kprintf("%s",unctrl[buff[i]&0177]);
        !            83:                if (++i >= maxlen)
        !            84:                        i = 0;
        !            85:         }
        !            86:        kprintf("\n");
        !            87: }

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