Return to random.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/random.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: float fract = 2;
                      3: double atof(), frand();
                      4: long time();
                      5: int eflag;
                      6: char line[BUFSIZ];
                      7: main(argc,argv) char **argv;
                      8: {
                      9:        int i,c;
                     10:        for(i=1;i<argc;i++)
                     11:        {       if(*argv[i]!='-')
                     12:                        fract=atof(argv[i]);
                     13:                else if((c=argv[i][1])=='e')
                     14:                        eflag=1;
                     15:        }
                     16:        srand((int)time(0));
                     17:        if(eflag==0)
                     18:                while(gets(line,sizeof(line))) {
                     19:                        if(frand()*fract<1)
                     20:                                puts(line);
                     21:                }
                     22:        else
                     23:                return(nrand((int)fract));
                     24:        return(0);
                     25: }
                     26: 
                     27: gets(s,n)
                     28: char *s;
                     29: {
                     30:        int c;
                     31:        for(;;) {
                     32:                c = getchar();
                     33:                if(c==EOF)
                     34:                        return 0;
                     35:                if(c=='\n')
                     36:                        break;
                     37:                *s++ = c;
                     38:        }
                     39:        *s = 0;
                     40:        return 1;
                     41: }

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