BSD 4 development

[unix-history] / .ref-BSD-3 / usr / src / libI77 / ftest.c

#include "fio.h"
#define FLOAT double
cilist x,y;
main(argc,argv) char **argv;
{       FLOAT dd[20];
       int ret[22];
       long one=1;
       int i,n,j;
       if(argc<2)
       {       fprintf(stderr,"%s infmt [outfmt] [n]\n",argv[0]);
               exit(1);
       }
       setcilist(&x,5,argv[1],0,1,1);
       argc--;
       argv++;
       if(argc<2 || argv[1][0]!='(')
               setcilist(&y,6,argv[0],0,1,1);
       else
       {       setcilist(&y,6,argv[1],0,1,1);
               argc--;
               argv++;
       }
       if(argc>=2) n=atoi(argv[1]);
       else n=1;
       j=0;
       ret[j++]=s_rsfe(&x);
       for(i=0;i<n;i++)
       {       ret[j++]=do_fio(&one,&dd[i],(long)sizeof(FLOAT));
       }
       ret[j++]=e_rsfe();
       for(i=0;i<j;i++) fprintf(stderr,"%d ",ret[i]);
       putc('\n',stderr);
       j=0;
       ret[j++]=s_wsfe(&y);
       for(i=0;i<n;i++)
               ret[j++]=do_fio(&one,&dd[i],(long)sizeof(FLOAT));
       ret[j++]=e_wsfe();
       for(i=0;i<j;i++) fprintf(stderr,"%d ",ret[i]);
       putc('\n',stderr);
       f_exit();
       exit(0);
}