Return to makvar.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / c / common

Annotation of coherent/b/bin/c/common/makvar.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Given a pointer to an argv entry, parse the variants into
        !             3:  * the array of characters.
        !             4:  */
        !             5: #ifdef vax
        !             6: #include       "INC$LIB:var.h"
        !             7: #else
        !             8: #include "var.h"
        !             9: #endif
        !            10: 
        !            11: 
        !            12: makvariant(p)
        !            13: register char *p;
        !            14: {
        !            15:        register int i, j;
        !            16:        unsigned int u;
        !            17:        static char digit[] = "0123456789ABCDEF";
        !            18: 
        !            19:        for (i = 0; i < VMAXIM/VGRANU; i += 1) {
        !            20:                for (j = 4; j >= 0; j -= 4) {
        !            21:                        u = (variant[i] >> j) & 0xF;
        !            22:                        *p++ = digit[u];
        !            23:                }
        !            24:        }
        !            25:        *p = 0;
        !            26: }

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