Return to ac.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / src

Annotation of 43BSD/contrib/apl/src/ac.c, revision 1.1.1.1

1.1       root        1: static char Sccsid[] = "ac.c @(#)ac.c  1.1     10/1/82 Berkeley ";
                      2: #include "apl.h"
                      3: 
                      4: ex_rot0()
                      5: {
                      6: 
                      7:        fetch2();
                      8:        rotk(0);
                      9: }
                     10: 
                     11: ex_rotk()
                     12: {
                     13:        register k;
                     14: 
                     15:        k = topfix() - thread.iorg;
                     16:        fetch2();
                     17:        rotk(k);
                     18: }
                     19: 
                     20: ex_rot()
                     21: {
                     22:        register struct item *p;
                     23: 
                     24:        fetch2();
                     25:        p = sp[-2];
                     26:        rotk(p->rank-1);
                     27: }
                     28: 
                     29: rotk(k)
                     30: {
                     31:        register struct item *p, *q;
                     32:        register param;
                     33:        int rot1();
                     34: 
                     35:        p = sp[-1];
                     36:        bidx(sp[-2]);
                     37:        if(k < 0 || k >= idx.rank)
                     38:                error("rotate X");
                     39:        param = 0;
                     40:        colapse(k);
                     41:        if(idx.size != p->size) {
                     42:                if(p->size != 1)
                     43:                        error("rotate C");
                     44:                param++;
                     45:                datum = getdat(p);
                     46:        }
                     47:        p = newdat(idx.type, 1, idx.dimk);
                     48:        *sp++ = p;
                     49:        forloop(rot1, param);
                     50:        pop();
                     51:        pop();
                     52: }
                     53: 
                     54: rot1(param)
                     55: {
                     56:        register struct item *p, *q;
                     57:        register i;
                     58:        int o, n;
                     59: 
                     60:        if(param == 0)
                     61:                datum = getdat(sp[-2]);
                     62:        o = fix(datum);
                     63:        if(o < 0)
                     64:                o = idx.dimk - (-o % idx.dimk);
                     65:        q = sp[-1];
                     66:        p = sp[-3];
                     67:        q->index = 0;
                     68:        n = access();
                     69:        for(i=0; i<idx.dimk; i++) {
                     70:                p->index = n + (o%idx.dimk)*idx.delk;
                     71:                putdat(q, getdat(p));
                     72:                o++;
                     73:        }
                     74:        for(i=0; i<idx.dimk; i++) {
                     75:                p->index = n;
                     76:                putdat(p, getdat(q));
                     77:                n += idx.delk;
                     78:        }
                     79: }

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