Return to ftest.c CVS log

Up to [CSRG BSD Unix] / 41BSD / lib / libI77

Annotation of 41BSD/lib/libI77/ftest.c, revision 1.1

1.1     ! root        1: #include "fio.h"
        !             2: #define FLOAT double
        !             3: cilist x,y;
        !             4: main(argc,argv) char **argv;
        !             5: {      FLOAT dd[20];
        !             6:        int ret[22];
        !             7:        long one=1;
        !             8:        int i,n,j;
        !             9:        if(argc<2)
        !            10:        {       fprintf(stderr,"%s infmt [outfmt] [n]\n",argv[0]);
        !            11:                exit(1);
        !            12:        }
        !            13:        setcilist(&x,5,argv[1],0,1,1);
        !            14:        argc--;
        !            15:        argv++;
        !            16:        if(argc<2 || argv[1][0]!='(')
        !            17:                setcilist(&y,6,argv[0],0,1,1);
        !            18:        else
        !            19:        {       setcilist(&y,6,argv[1],0,1,1);
        !            20:                argc--;
        !            21:                argv++;
        !            22:        }
        !            23:        if(argc>=2) n=atoi(argv[1]);
        !            24:        else n=1;
        !            25:        j=0;
        !            26:        ret[j++]=s_rsfe(&x);
        !            27:        for(i=0;i<n;i++)
        !            28:        {       ret[j++]=do_fio(&one,&dd[i],(long)sizeof(FLOAT));
        !            29:        }
        !            30:        ret[j++]=e_rsfe();
        !            31:        for(i=0;i<j;i++) fprintf(stderr,"%d ",ret[i]);
        !            32:        putc('\n',stderr);
        !            33:        j=0;
        !            34:        ret[j++]=s_wsfe(&y);
        !            35:        for(i=0;i<n;i++)
        !            36:                ret[j++]=do_fio(&one,&dd[i],(long)sizeof(FLOAT));
        !            37:        ret[j++]=e_wsfe();
        !            38:        for(i=0;i<j;i++) fprintf(stderr,"%d ",ret[i]);
        !            39:        putc('\n',stderr);
        !            40:        f_exit();
        !            41:        exit(0);
        !            42: }

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