Return to random.c CVS log

Up to [Research Unix] / researchv10no / cmd

researchv10 Norman

#include <stdio.h>
float fract = 2;
double	atof(), frand();
long time();
int eflag;
char line[BUFSIZ];
main(argc,argv) char **argv;
{
	int i,c;
	for(i=1;i<argc;i++)
	{	if(*argv[i]!='-')
			fract=atof(argv[i]);
		else if((c=argv[i][1])=='e')
			eflag=1;
	}
	srand((int)time(0));
	if(eflag==0)
		while(gets(line,sizeof(line))) {
			if(frand()*fract<1)
				puts(line);
		}
	else
		return(nrand((int)fract));
	return(0);
}

gets(s,n)
char *s;
{
	int c;
	for(;;) {
		c = getchar();
		if(c==EOF)
			return 0;
		if(c=='\n')
			break;
		*s++ = c;
	}
	*s = 0;
	return 1;
}

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