Return to ftest.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / notused

Annotation of researchv10dc/libI77/notused/ftest.c, revision 1.1

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

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