2012-08-14 13:04:14 +00:00
|
|
|
/* xscreensaver, Copyright (c) 1997, 1998 by Jamie Zawinski <jwz@jwz.org>
|
|
|
|
|
*
|
|
|
|
|
* Permission to use, copy, modify, distribute, and sell this software and its
|
|
|
|
|
* documentation for any purpose is hereby granted without fee, provided that
|
|
|
|
|
* the above copyright notice appear in all copies and that both that
|
|
|
|
|
* copyright notice and this permission notice appear in supporting
|
|
|
|
|
* documentation. No representations are made about the suitability of this
|
|
|
|
|
* software for any purpose. It is provided "as is" without express or
|
|
|
|
|
* implied warranty.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#ifndef __YARANDOM_H__
|
|
|
|
|
#define __YARANDOM_H__
|
|
|
|
|
|
|
|
|
|
#undef random
|
|
|
|
|
#undef rand
|
|
|
|
|
#undef drand48
|
|
|
|
|
#undef srandom
|
|
|
|
|
#undef srand
|
|
|
|
|
#undef srand48
|
|
|
|
|
#undef frand
|
|
|
|
|
#undef RAND_MAX
|
|
|
|
|
|
|
|
|
|
#ifdef VMS
|
2012-08-14 13:04:20 +00:00
|
|
|
#include "vms-gtod.h"
|
2012-08-14 13:04:14 +00:00
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#define random() ya_random()
|
|
|
|
|
#define srandom(i) ya_rand_init(0)
|
|
|
|
|
#define RAND_MAX 0x7FFFFFFF
|
|
|
|
|
|
2012-08-14 13:04:20 +00:00
|
|
|
extern unsigned int ya_random(void);
|
|
|
|
|
extern void ya_rand_init(unsigned int);
|
2012-08-14 13:04:14 +00:00
|
|
|
|
|
|
|
|
#if defined (__GNUC__) && (__GNUC__ >= 2)
|
|
|
|
|
/* Implement frand using GCC's statement-expression extension. */
|
|
|
|
|
|
2012-08-14 13:04:20 +00:00
|
|
|
#define frand(f) \
|
2012-08-14 13:04:14 +00:00
|
|
|
({ double tmp = (((double) random()) / \
|
|
|
|
|
(((double) ((unsigned int)~0)) / ((double) (f)))); \
|
|
|
|
|
tmp < 0 ? (-tmp) : tmp; })
|
|
|
|
|
|
2012-08-14 13:04:20 +00:00
|
|
|
#else /* not GCC2 - implement frand using a global variable. */
|
2012-08-14 13:04:14 +00:00
|
|
|
|
|
|
|
|
static double _frand_tmp_;
|
2012-08-14 13:04:20 +00:00
|
|
|
#define frand(f) \
|
2012-08-14 13:04:14 +00:00
|
|
|
(_frand_tmp_ = (((double) random()) / \
|
|
|
|
|
(((double) ((unsigned int)~0)) / ((double) (f)))), \
|
|
|
|
|
_frand_tmp_ < 0 ? (-_frand_tmp_) : _frand_tmp_)
|
|
|
|
|
|
2012-08-14 13:04:20 +00:00
|
|
|
#endif /* not GCC2 */
|
2012-08-14 13:04:14 +00:00
|
|
|
|
2012-08-14 13:04:20 +00:00
|
|
|
#endif /* __YARANDOM_H__ */
|
