lang/cem/libcc.ansi/stdlib/rand.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: rand.c,v 1.4 1994/06/24 11:54:05 ceriel Exp $ */
   6
   7 #include        <stdlib.h>
   8
   9 static unsigned long int next = 1;
  10
  11 int rand(void)
  12 {
  13         next = next * 1103515245 + 12345;
  14         return (unsigned int)(next/(2 * (RAND_MAX +1L)) % (RAND_MAX+1L));
  15 }
  16
  17 void srand(unsigned int seed)
  18 {
  19         next = seed;
  20 }