Return to arc.c CVS log

Up to [Research Unix] / researchv10no / cmd / mk / export

Annotation of researchv10no/cmd/mk/export/arc.c, revision 1.1

1.1     ! root        1: #include       "mk.h"
        !             2: 
        !             3: Arc *
        !             4: newarc(n, r, stem, match)
        !             5:        Node *n;
        !             6:        Rule *r;
        !             7:        char *stem;
        !             8:        regsubexp *match;
        !             9: {
        !            10:        register Arc *a;
        !            11: 
        !            12:        a = (Arc *)Malloc(sizeof(Arc));
        !            13:        a->n = n;
        !            14:        a->r = r;
        !            15:        a->stem = strdup(stem);
        !            16:        memcpy((char *)a->match, (char *)match, sizeof a->match);
        !            17:        a->next = 0;
        !            18:        a->flag = 0;
        !            19:        a->prog = r->prog;
        !            20:        return(a);
        !            21: }
        !            22: 
        !            23: dumpa(s, a)
        !            24:        char *s;
        !            25:        register Arc *a;
        !            26: {
        !            27:        char buf[1024];
        !            28: 
        !            29:        sprint(buf, "%s    ", (*s == ' ')? s:"");
        !            30:        Fprint(1, "%sArc@%ld: n=%ld r=%ld flag=0x%x stem='%s'",
        !            31:                s, a, a->n, a->r, a->flag, a->stem);
        !            32:        if(a->prog)
        !            33:                Fprint(1, " prog='%s'", a->prog);
        !            34:        Fprint(1, "\n");
        !            35:        if(a->n)
        !            36:                dumpn(buf, a->n);
        !            37: }
        !            38: 
        !            39: nrep()
        !            40: {
        !            41:        register Symtab *sym;
        !            42: 
        !            43:        if(sym = symlook("NREP", S_VAR, (char *)0))
        !            44:                nreps = atoi(sym->value);
        !            45:        if(nreps < 1)
        !            46:                nreps = 1;
        !            47:        if(DEBUG(D_GRAPH))
        !            48:                Fprint(1, "nreps = %d\n", nreps);
        !            49: }

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