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

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.