Return to field.c CVS log

Up to [Research Unix] / researchv10no / cmd / efl

Annotation of researchv10no/cmd/efl/field.c, revision 1.1.1.1

1.1       root        1: #include "defs"
                      2: 
                      3: 
                      4: 
                      5: ptr mkfield(q)
                      6: register ptr q;
                      7: {
                      8: register ptr p;
                      9: 
                     10: if(!instruct)
                     11:        goto err;
                     12: else if(q->upperb == 0)
                     13:        dclerr("must have upper bound in field spcification", "");
                     14: else
                     15:        {
                     16:        p = (int *)ALLOC(fieldspec);
                     17:        p->tag = TFIELD;
                     18:        if(q->lowerb)
                     19:                {
                     20:                p->flbound = q->lowerb;
                     21:                p->frange = mknode(TAROP,OPPLUS,mknode(TAROP,OPMINUS,
                     22:                                q->upperb, cpexpr(q->lowerb)),
                     23:                                mkconst(TYINT,"1") );
                     24:                }
                     25:        else    {
                     26:                p->flbound = mkconst(TYINT,"1");
                     27:                p->frange = q->upperb;
                     28:                }
                     29:        p->frange = simple(RVAL,p->frange);
                     30:        if(((struct headbits *)p->frange)->tag != TCONST)
                     31:                {
                     32:                dclerr("field range must be constant", "");
                     33:                cfree(p);
                     34:                goto err;
                     35:                }
                     36:        cfree(q);
                     37:        return(p);
                     38:        }
                     39: 
                     40: err:
                     41:        cfree(q);
                     42:        return( errnode() );
                     43: }
                     44: 
                     45: 
                     46: 
                     47: 
                     48: 
                     49: ptr extrfield(p)
                     50: register ptr p;
                     51: {
                     52: register ptr t;
                     53: 
                     54: t = p->vtypep;
                     55: p->vtype = TYINT;
                     56: p->vtypep = 0;
                     57: 
                     58: if(t->frshift)
                     59:        p = mknode(TAROP,OPSLASH, p, cpexpr(t->frshift));
                     60: if(t->fanymore)
                     61:        p = mkcall(builtin(TYINT, "mod"), arg2(p, cpexpr(t->frange)) );
                     62: p = mknode(TAROP,OPPLUS, p, cpexpr(t->flbound));
                     63: return(p);
                     64: }
                     65: 
                     66: 
                     67: 
                     68: 
                     69: ptr setfield(e)
                     70: ptr e;
                     71: {
                     72: ptr lp, rp;
                     73: register ptr f, p;
                     74: int subt;
                     75: 
                     76: lp = cpexpr(e->leftp);
                     77: rp = e->rightp;
                     78: subt = e->subtype;
                     79: f = lp->vtypep;
                     80: lp->vtype = TYINT;
                     81: lp->vtypep = 0;
                     82: 
                     83: if(subt==OPPLUS || subt==OPMINUS)
                     84:        {
                     85:        if(f->frshift)
                     86:                rp = mknode(TAROP,OPSTAR,rp,cpexpr(f->frshift));
                     87:        }
                     88: else   {
                     89:        if(subt != OPASGN)
                     90:                {
                     91:                rp = mknode(TAROP,subt, extrfield(cpexpr(e->leftp)), rp);
                     92:                subt = OPASGN;
                     93:                }
                     94:        rp = coerce(TYINT,rp);
                     95:        if(f->flbound)
                     96:                rp = simple(RVAL, mknode(TAROP,OPMINUS,rp,cpexpr(f->flbound)) );
                     97:        
                     98:        if(f->frshift==0)
                     99:                {
                    100:                if(f->fanymore)
                    101:                        {
                    102:                        p = mknode(TAROP,OPSLASH,cpexpr(lp),cpexpr(f->frange));
                    103:                        p->needpar = YES;
                    104:                        p = mknode(TAROP,OPSTAR,cpexpr(f->frange),p);
                    105:                        rp = mknode(TAROP,OPPLUS,p,rp);
                    106:                        }
                    107:                }
                    108:        else if(f->fanymore==0)
                    109:                {
                    110:                rp = mknode(TAROP,OPSTAR,cpexpr(f->frshift),rp);
                    111:                p = mkcall(builtin(TYINT,"mod"),
                    112:                        arg2(cpexpr(lp),cpexpr(f->frshift)) );
                    113:                rp = mknode(TAROP,OPPLUS, p,rp);
                    114:                }
                    115:        else    {
                    116:                p = mknode(TAROP,OPSLASH,cpexpr(lp),cpexpr(f->frshift));
                    117:                p = mkcall(builtin(TYINT,"mod"), 
                    118:                        arg2(p, cpexpr(f->frange)) );
                    119:                if( rp->tag!=TCONST || !equals(rp->leftp, "0") )
                    120:                        p = mknode(TAROP,OPMINUS, p, rp);
                    121:                rp = mknode(TAROP,OPSTAR, cpexpr(f->frshift), p);
                    122:                rp = mknode(TAROP,OPMINUS, cpexpr(lp), rp);
                    123:                }
                    124:        }
                    125: frexpr( simple(LVAL, mknode(TASGNOP,subt,lp,rp) ));
                    126: return(extrfield(e->leftp));
                    127: }

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