Return to ctol.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / gen

Annotation of coherent/b/lib/libc/gen/ctol.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Convert a comp_t style number to a long.
        !             3:  * A comp_t contains 3 bits of base-8 exponent
        !             4:  * and a 13-bit mantissa.  Only unsigned
        !             5:  * numbers can be comp_t numbers.
        !             6:  */
        !             7: 
        !             8: #include <sys/types.h>
        !             9: #include <acct.h>
        !            10: #define        MAXMANT         017777          /* 2^13-1 - largest mantissa */
        !            11: 
        !            12: long
        !            13: ctol(c)
        !            14: comp_t c;
        !            15: {
        !            16:        register exp;
        !            17:        long mant;
        !            18: 
        !            19:        mant = c&MAXMANT;
        !            20:        exp = (c>>13)&07;
        !            21:        while (exp--)
        !            22:                mant <<= 3;
        !            23:        return (mant);
        !            24: }

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