Return to ptopen.c CVS log

Up to [Research Unix] / researchv9 / libc / gen

Annotation of researchv9/libc/gen/ptopen.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *     fd = ptopen (buf)
        !             3:  *
        !             4:  *     Attempt to open an odd pt - if successful, return the
        !             5:  *     file descriptor in fd and place the name of the corresponding
        !             6:  *     even pt in buf.  Buf must be large enough.
        !             7:  *
        !             8:  *     We assume that the digits 0-9 are consecutive in the
        !             9:  *     machine's character set.
        !            10:  */
        !            11: 
        !            12: #include <errno.h>
        !            13: 
        !            14: #define PTNAME "/dev/pt/pt01"
        !            15: 
        !            16: extern int errno;
        !            17: 
        !            18: int
        !            19: ptopen (name)
        !            20:        char *name;
        !            21: {
        !            22:        register int fd;
        !            23:        register char *p, *q;
        !            24: 
        !            25:        /*
        !            26:         *      copy the initial name to user's buffer
        !            27:         *      leave p pointing at the last character
        !            28:         */
        !            29:        p = name;
        !            30:        q = PTNAME;
        !            31:        while ((*p++ = *q++) != '\0')
        !            32:                ;
        !            33:        p -= 2;
        !            34:        
        !            35:        /* try to open pt files until success or we run out */
        !            36:        for (;;) {
        !            37:                fd = open (name, 2);
        !            38: 
        !            39:                /* check for success */
        !            40:                if (fd >= 0) {
        !            41:                        --*p;
        !            42:                        return fd;
        !            43:                }
        !            44: 
        !            45:                /* check for run-out */
        !            46:                if (errno != ENXIO)
        !            47:                        return -1;
        !            48: 
        !            49:                /* this pt is busy, try the next */
        !            50:                if (*p != '9')
        !            51:                        *p += 2;
        !            52:                else {
        !            53:                        /* propagate carry from low-order digit */
        !            54:                        *p = '1';
        !            55:                        q = p - 1;
        !            56:                        while (*q == '9')
        !            57:                                *q-- = '0';
        !            58:                        if (*q >= '0' && *q <= '9')
        !            59:                                ++*q;
        !            60:                        else {
        !            61:                                /* insert a leading digit */
        !            62:                                register char *r = ++p;
        !            63:                                while (r > q) {
        !            64:                                        r[1] = r[0];
        !            65:                                        --r;
        !            66:                                }
        !            67:                                q[1] = '1';
        !            68:                        }
        !            69:                }
        !            70:        }
        !            71: }

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