pd.if.org Git - pdclib/blob - functions/stdlib/rand.c

   1 /* ----------------------------------------------------------------------------
   2  * $Id$
   3  * ----------------------------------------------------------------------------
   4  * Public Domain C Library - http://pdclib.sourceforge.net
   5  * This code is Public Domain. Use, modify, and redistribute at will.
   6  * --------------------------------------------------------------------------*/
   7
   8 int rand( void ) { /* TODO */ };
   9 void srand( unsigned int seed ) { /* TODO */ };
  10
  11 /* PDPC code - unreviewed
  12 static unsigned long myseed = 1;
  13
  14 void srand(unsigned int seed)
  15 {
  16     myseed = seed;
  17     return;
  18 }
  19
  20 int rand(void)
  21 {
  22     int ret;
  23
  24     myseed = myseed * 1103515245UL + 12345;
  25     ret = (int)((myseed >> 16) & 0x8fff);
  26     return (ret);
  27 }
  28 */