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

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.