Return to m.i CVS log

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

Annotation of researchv10no/cmd/ccom/vax/tests/m.i, revision 1.1

1.1     ! root        1: struct defs {
        !             2:      int cbits;          
        !             3:      int ibits;          
        !             4:      int sbits;          
        !             5:      int lbits;          
        !             6:      int ubits;          
        !             7:      int fbits;          
        !             8:      int dbits;          
        !             9:      float fprec;        
        !            10:      float dprec;        
        !            11:      int flgs;           
        !            12:      int flgm;           
        !            13:      int flgd;           
        !            14:      int flgl;           
        !            15:      int rrc;            
        !            16:      int crc;            
        !            17:      char rfs[8];        
        !            18:    };
        !            19: extern struct  _iobuf {
        !            20:        int     _cnt;
        !            21:        unsigned char   *_ptr;
        !            22:        unsigned char   *_base;
        !            23:        short   _flag;
        !            24:        char    _file;
        !            25: } _iob[20];
        !            26: struct _iobuf  *fopen();
        !            27: struct _iobuf  *fdopen();
        !            28: struct _iobuf  *freopen();
        !            29: long   ftell();
        !            30: char   *fgets();
        !            31: struct record{
        !            32:        int field1,field2,field3;
        !            33:        };
        !            34:        struct list { int f1; double f2; float f3; } ;
        !            35:        union rec { int recf1; float recf2; double recf3; } ;
        !            36: struct list rfun(x)  struct list x;
        !            37: {
        !            38: x.f1=x.f1+100;
        !            39: x.f2=x.f2+200.0;
        !            40: x.f3=x.f3+300.0;
        !            41: return x;
        !            42: }
        !            43: union rec ufun(x) union rec x;
        !            44: {
        !            45: x.recf2=x.recf2+100.0;
        !            46: return x;
        !            47: }
        !            48: 
        !            49: s141(pd0)      
        !            50:        struct defs *pd0;
        !            51: {
        !            52: static char s141er[]="s141,er%d\n";
        !            53: static char qs141[8]="s141   ";
        !            54: struct list r1,r2,r3;
        !            55: union rec rec1, rec2;
        !            56: char *ps = qs141,
        !            57:      *pt = pd0->rfs;
        !            58: int rc = 0 ;
        !            59: 
        !            60:  while ( *(pt)++ = *(ps)++ );
        !            61: 
        !            62: r1.f1=1000; r1.f2=2000.0; r1.f3=3000.0;
        !            63: r3=r2=r1;
        !            64: 
        !            65: if (1000!=r2.f1 || 2000.0!=r2.f2 || 3000.0!=r2.f3
        !            66:    || r1.f1!=r3.f1 || r1.f2!=r3.f2 || r1.f3!=r3.f3)
        !            67:        { rc++; if (pd0->flgd) printf(s141er,1); }
        !            68: r2.f3=r2.f2=r2.f1=1;
        !            69: r3=rfun(r2=r1);
        !            70: 
        !            71: if (r3.f1!=r1.f1+100 || r1.f1!=r2.f1 || r1.f1!=1000 ||
        !            72:     r3.f2!=r1.f2+200.0 || r1.f2!=r2.f2 || r1.f2!=2000.0 ||
        !            73:     r3.f3!=r1.f3+300.0 || r1.f3!=r2.f3 || r1.f3!=3000.0 )
        !            74:        { rc+=2; if (pd0->flgd) printf(s141er,2); }
        !            75: if (r3.f3!=rfun(r1).f3)
        !            76:        { rc+=4; if (pd0->flgd) printf(s141er,4); }
        !            77: rec1.recf2=33.0;
        !            78: rec2=ufun(rec1);
        !            79: if (ufun(rec1).recf2!=133.0 || rec1.recf2!=33.0)
        !            80:        { rc +=8 ; if (pd0->flgd) printf(s141er,8); }
        !            81: return rc;
        !            82: }

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