Return to r50.c CVS log

Up to [Research Unix] / researchv10no / netfs / serv

Annotation of researchv10no/netfs/serv/r50.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * ascii<>radix50
        !             3:  */
        !             4: 
        !             5: #define        BADC    0100
        !             6: 
        !             7: static char r50c[128] = {
        !             8:        BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,
        !             9:        BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,
        !            10:        BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,
        !            11:        BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   BADC,
        !            12:        000,    BADC,   BADC,   BADC,   033,    BADC,   BADC,   BADC,
        !            13:        BADC,   BADC,   BADC,   BADC,   BADC,   BADC,   034,    BADC,
        !            14:        036,    037,    040,    041,    042,    043,    044,    045,
        !            15:        046,    047,    BADC,   BADC,   BADC,   BADC,   BADC,   BADC,
        !            16:        BADC,   001,    002,    003,    004,    005,    006,    007,
        !            17:        010,    011,    012,    013,    014,    015,    016,    017,
        !            18:        020,    021,    022,    023,    024,    025,    026,    027,
        !            19:        030,    031,    032,    BADC,   BADC,   BADC,   BADC,   BADC,
        !            20:        BADC,   001,    002,    003,    004,    005,    006,    007,
        !            21:        010,    011,    012,    013,    014,    015,    016,    017,
        !            22:        020,    021,    022,    023,    024,    025,    026,    027,
        !            23:        030,    031,    032,    BADC,   BADC,   BADC,   BADC,   BADC
        !            24: };
        !            25: 
        !            26: static char r50a[] = " abcdefghijklmnopqrstuvwxyz$.?0123456789";
        !            27: 
        !            28: /*
        !            29:  * convert up to three characters
        !            30:  * from ascii to r50
        !            31:  * advances s; returns the r50
        !            32:  * -1 means an error
        !            33:  */
        !            34: int
        !            35: ator50(s)
        !            36: register char **s;
        !            37: {
        !            38:        register char c;
        !            39:        register int i;
        !            40:        register unsigned short r;
        !            41: 
        !            42:        r = 0;
        !            43:        for (i = 0; i < 3 && (c = **s) != 0 ; i++) {
        !            44:                if (c & 0200)
        !            45:                        return (-1);
        !            46:                if ((c = r50c[c]) == BADC)
        !            47:                        return (-1);
        !            48:                r *= 050;
        !            49:                r += c;
        !            50:                (*s)++;
        !            51:        }
        !            52:        for (; i < 3; i++)
        !            53:                r *= 050;               /* justify */
        !            54:        return (r);
        !            55: }
        !            56: 
        !            57: /*
        !            58:  * convert r50 to ascii,
        !            59:  * suppressing leading blanks
        !            60:  * s is where to put the string;
        !            61:  * the new s is returned.
        !            62:  * s had best have at least three characters remaining
        !            63:  */
        !            64: 
        !            65: char *
        !            66: r50toa(s, x)
        !            67: register unsigned short x;
        !            68: register char *s;
        !            69: {
        !            70:        register unsigned char  c;
        !            71: 
        !            72:        if (x) {
        !            73:                c = x % 050;
        !            74:                x /= 050;
        !            75:                if (x)
        !            76:                        s = r50toa(s, x);
        !            77:                *s++ = r50a[c];
        !            78:        }
        !            79:        return (s);
        !            80: }

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