Return to P.i CVS log

Up to [Research Unix] / researchv10no / cmd / ccom / vax / tests

Annotation of researchv10no/cmd/ccom/vax/tests/P.i, revision 1.1.1.1

1.1       root        1: typedef struct { int x, y;} Point;
                      2: extern Point map(), a, b, c;
                      3: main ()
                      4: {      register Point *pt, *ppt;
                      5:        Point x, y, z;
                      6:        x = y = z;
                      7:        *pt++ = map (*ppt++);
                      8:        a = b = c;
                      9:        (void) map(a = b = c);
                     10:        if((a = x = map()).y)
                     11:                ;
                     12:        if((b = a = map()).y)
                     13:                ;
                     14: }
                     15: struct a {long p, q; char s;};
                     16: struct a f();
                     17: x0x()
                     18: {      struct a v, x, y;
                     19:        if((v=f()).s);
                     20:        v = x = y;
                     21:        return(f().s);
                     22: }
                     23: a22(){
                     24:        double d;
                     25:        int i, j;
                     26:        short x, y;
                     27:        x = x/y;
                     28:        x /= y;
                     29:        i /= d;
                     30:        j = i / d;
                     31:        j = i * d; i *= d;
                     32: }

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