]> pd.if.org Git - pdclib/blob - functions/stdlib/rand.c
Whitespace cleanups.
[pdclib] / functions / stdlib / rand.c
1 /* rand( void )
2
3    This file is part of the Public Domain C Library (PDCLib).
4    Permission is granted to use, modify, and / or redistribute at will.
5 */
6
7 #include <stdlib.h>
8
9 #ifndef REGTEST
10
11 int rand( void )
12 {
13     _PDCLIB_seed = _PDCLIB_seed * 1103515245 + 12345;
14     return (int)( _PDCLIB_seed / 65536 ) % 32768;
15 }
16
17 #endif
18
19 #ifdef TEST
20
21 #include "_PDCLIB_test.h"
22
23 int main( void )
24 {
25     int rnd1, rnd2;
26     TESTCASE( ( rnd1 = rand() ) < RAND_MAX );
27     TESTCASE( ( rnd2 = rand() ) < RAND_MAX );
28     srand( 1 );
29     TESTCASE( rand() == rnd1 );
30     TESTCASE( rand() == rnd2 );
31     return TEST_RESULTS;
32 }
33
34 #endif