Return to random.c CVS log

Up to [Research Unix] / researchv8dc / cmd

Annotation of researchv8dc/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)) {
                     19:                        if(frand()*fract<1)
                     20:                                puts(line);
                     21:                }
                     22:        else
                     23:                return(nrand((int)fract));
                     24:        return(0);
                     25: }
                     26: 

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