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

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.