Return to T.i CVS log

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

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

1.1       root        1: int x;  float f;
                      2: struct {
                      3:      int  d;
                      4:      int  x;
                      5: } s, *sp;
                      6: 
                      7: main() {
                      8:      sp->x = x + f * x;
                      9: }
                     10: extern struct  _iobuf {
                     11:        int     _cnt;
                     12:        char    *_ptr;
                     13:        char    *_base;
                     14:        short   _flag;
                     15:        char    _file;
                     16: } _iob[20];
                     17: struct _iobuf  *fopen();
                     18: struct _iobuf  *fdopen();
                     19: struct _iobuf  *freopen();
                     20: long   ftell();
                     21: char   *fgets();
                     22:   struct _Point {
                     23:        int     x;
                     24:        int     y;
                     25: };
                     26: struct _Rectangle {
                     27:          struct _Point ll;
                     28:          struct _Point ur;
                     29: };
                     30:   struct _Object {
                     31:          struct _Object        *link;
                     32: };
                     33:   struct _Pool {
                     34:          struct _Object        *freelist;
                     35:          struct _Object        *arealist;
                     36:        int     objsize;
                     37: };
                     38:   struct _Vpool {
                     39:          struct _Object        *next;
                     40:          struct _Object        *arealist;
                     41:        int     left;
                     42:        int     quantum;
                     43: };
                     44:          struct _SEQFILE {
                     45:                int     hidden;
                     46:        };
                     47: extern char *myname;
                     48: extern int nullstring;
                     49: extern char *stringtab;
                     50: extern char *execname();
                     51: extern struct _iobuf *chkfopen();
                     52: extern   struct _Pool *newpool();
                     53: extern   struct _Vpool *newvpool();
                     54: extern char *maketemp();
                     55: extern char *permspace();
                     56: extern   struct _SEQFILE *seqopen();
                     57: extern char *nettoname();
                     58: extern char *strchr();
                     59: extern char *strrchr();
                     60: extern char debug;
                     61: typedef struct {
                     62:        float   x;
                     63:        float   y;
                     64: } FPT;
                     65: typedef struct {
                     66:        FPT     ll;
                     67:        FPT     ur;
                     68: } FRECT;
                     69:   struct _Traphd {
                     70:        int magicnumb;
                     71:        int nrows, ncols;
                     72:        int xdelta, ydelta;     
                     73:        struct _Rectangle bb;           
                     74:        struct _Rectangle rbb ;         
                     75:        char empty;
                     76: };
                     77: struct _Trapezoid {
                     78:        int net;
                     79:        int xmin, xmax, lby, lty, rby, rty;
                     80: };
                     81: struct _Traplabel {
                     82:        int net;
                     83:        int x, y;
                     84:        char label[4*sizeof(int)];
                     85: };
                     86: extern char intrflag;
                     87: extern   struct _Point center;
                     88: extern struct _Rectangle iuwind;
                     89: extern double supiu;
                     90: extern char debug;
                     91: extern short netcolor;
                     92: extern char debug;
                     93: int iuplu =    1000;
                     94: short nlayers = 40;
                     95: short color [40];
                     96: char *layername [40];
                     97: char *colorfile;
                     98: char *fullname [40];
                     99: static   struct _Traphd *header;
                    100: static int **index;
                    101: static int identify (i, p)
                    102:   struct _Point p;
                    103: {
                    104:        register   struct _Traphd *h;
                    105:        register struct _iobuf *f;
                    106:        int col, row, pos, addr, stop;
                    107:        float w, x, slope;
                    108:        struct _Trapezoid t;
                    109:        h = &header[i];
                    110:        col =   (((p.x) - ( h)->rbb.ll.x) / ( h)->xdelta);
                    111:        row =   (((p.y) - ( h)->rbb.ll.y) / ( h)->ydelta);
                    112:        if (col < 0 || col >= h->ncols) return -1;
                    113:        if (row < 0 || row >= h->nrows) return -1;
                    114:        pos = col * h->nrows + row;
                    115:        addr = index[i][pos];
                    116:        stop = index[i][pos + 1];
                    117:        if (addr >= stop) return -1;
                    118:        f = (struct _iobuf *) forceopen(i);
                    119:        fseek (f, addr, 0);
                    120:        while (addr < stop) {
                    121:                if (intrflag) return -1;
                    122:                chkfread (&t, sizeof(struct _Trapezoid), 1, f);
                    123:                addr += sizeof(struct _Trapezoid);
                    124:                if (p.x < t.xmin || t.xmax < p.x) continue;
                    125:                x = p.x - t.xmin;
                    126:                w = t.xmax - t.xmin;
                    127:                
                    128:                  slope = (t.rby - t.lby) / w;
                    129:                  if (p.y < t.lby + x*slope) continue;
                    130:                
                    131:                  slope = (t.rty - t.lty) / w;
                    132:                  if (p.y > t.lty + x*slope) continue;
                    133:                
                    134:                return t.net;
                    135:        }
                    136:        return -1;
                    137: }
                    138: m()
                    139: {      register unsigned char a, b;
                    140:        a/=b;
                    141: }

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