Return to rect.C CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j / drek

Annotation of researchv9/jerq/src/lib/j/drek/rect.C, revision 1.1

1.1     ! root        1: typedef struct {
        !             2:        short x;
        !             3:        short y;
        !             4: } Point;
        !             5: typedef struct {
        !             6:        Point origin;
        !             7:        Point corner;
        !             8: } Rectangle;
        !             9: 
        !            10: Rectangle
        !            11: Rect(a,b,c,d)
        !            12: short a,b,c,d;
        !            13: {
        !            14:        Rectangle temp;
        !            15:        temp.origin.x = a;
        !            16:        temp.origin.y = b;
        !            17:        temp.corner.x = c;
        !            18:        temp.corner.y = d;
        !            19:        return(temp);
        !            20: }
        !            21: Point
        !            22: Pt(a,b)
        !            23: short a,b;
        !            24: {
        !            25:        Point temp;
        !            26: 
        !            27:        temp.x = a;
        !            28:        temp.y = b;
        !            29:        return(temp);
        !            30: }
        !            31: Rectangle
        !            32: Rpt(p,q)
        !            33: Point p,q;
        !            34: {
        !            35:        Rectangle temp;
        !            36: 
        !            37:        temp.origin.x = p.x;
        !            38:        temp.origin.y = p.y;
        !            39:        temp.corner.x = q.x;
        !            40:        temp.corner.y = q.y;
        !            41:        return(temp);
        !            42: }
        !            43: main()
        !            44: {      
        !            45:        Point Pt();
        !            46:        register Point p;
        !            47: 
        !            48:        int x,y;
        !            49: 
        !            50:        x=0;
        !            51:        y=0;
        !            52: 
        !            53:        p = Pt(x,y);
        !            54: }

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