Return to getvar.c CVS log

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

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

1.1     ! root        1: /*
        !             2:  * Given a pointer to an argv entry, parse its contents into
        !             3:  * this phase's variant data structure.
        !             4:  */
        !             5: #ifdef vax
        !             6: #include       "INC$LIB:var.h"
        !             7: #else
        !             8: #include "var.h"
        !             9: #endif
        !            10: 
        !            11: 
        !            12: getvariant(p)
        !            13: register char *p;
        !            14: {
        !            15:        register int i, j;
        !            16:        unsigned int u;
        !            17: 
        !            18:        for (i = 0; i < VMAXIM/VGRANU; i += 1) {
        !            19:                for (j = 4; j >= 0; j -= 4) {
        !            20:                        if ((u = *p++) != 0
        !            21:                         && ((u -= '0') < 10
        !            22:                         || (u += '0' - 'A' + 10) < 16))
        !            23:                                variant[i] |= u << j;
        !            24:                        else
        !            25:                                return;
        !            26:                }
        !            27:        }
        !            28: }

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