1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
/* $OpenBSD: rf_randmacros.h,v 1.1 1999/01/11 14:29:45 niklas Exp $ */
/* $NetBSD: rf_randmacros.h,v 1.1 1998/11/13 04:20:33 oster Exp $ */
/*
* Copyright (c) 1995 Carnegie-Mellon University.
* All rights reserved.
*
* Author: Mark Holland
*
* Permission to use, copy, modify and distribute this software and
* its documentation is hereby granted, provided that both the copyright
* notice and this permission notice appear in all copies of the
* software, derivative works or modified versions, and any portions
* thereof, and that both notices appear in supporting documentation.
*
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
* FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
*
* Carnegie Mellon requests users of this software to return to
*
* Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
* School of Computer Science
* Carnegie Mellon University
* Pittsburgh PA 15213-3890
*
* any improvements or extensions that they make and grant Carnegie the
* rights to redistribute these changes.
*/
/* rf_randmacros.h
* some macros to simplify using random in a multithreaded environment
*/
/* :
* Log: rf_randmacros.h,v
* Revision 1.17 1996/08/12 22:37:57 jimz
* use regular random() stuff for AIX
*
* Revision 1.16 1996/08/11 00:41:03 jimz
* fix up for aix4
*
* Revision 1.15 1996/07/29 05:22:34 jimz
* use rand/srand on hpux
*
* Revision 1.14 1996/07/28 20:31:39 jimz
* i386netbsd port
* true/false fixup
*
* Revision 1.13 1996/07/27 23:36:08 jimz
* Solaris port of simulator
*
* Revision 1.12 1996/07/22 19:52:16 jimz
* switched node params to RF_DagParam_t, a union of
* a 64-bit int and a void *, for better portability
* attempted hpux port, but failed partway through for
* lack of a single C compiler capable of compiling all
* source files
*
* Revision 1.11 1996/07/18 22:57:14 jimz
* port simulator to AIX
*
* Revision 1.10 1996/07/15 17:22:18 jimz
* nit-pick code cleanup
* resolve stdlib problems on DEC OSF
*
* Revision 1.9 1996/06/09 02:36:46 jimz
* lots of little crufty cleanup- fixup whitespace
* issues, comment #ifdefs, improve typing in some
* places (esp size-related)
*
* Revision 1.8 1996/06/03 23:28:26 jimz
* more bugfixes
* check in tree to sync for IPDS runs with current bugfixes
* there still may be a problem with threads in the script test
* getting I/Os stuck- not trivially reproducible (runs ~50 times
* in a row without getting stuck)
*
* Revision 1.7 1996/05/23 21:46:35 jimz
* checkpoint in code cleanup (release prep)
* lots of types, function names have been fixed
*
* Revision 1.6 1996/05/21 18:52:56 jimz
* mask out highest bit from RANDOM (was causing angst)
*
* Revision 1.5 1996/05/18 19:51:34 jimz
* major code cleanup- fix syntax, make some types consistent,
* add prototypes, clean out dead code, et cetera
*
* Revision 1.4 1995/12/06 15:05:41 root
* added copyright info
*
*/
#ifndef _RF__RF_RANDMACROS_H_
#define _RF__RF_RANDMACROS_H_
#ifndef KERNEL
#ifdef __osf__
/*
* Okay, here's the deal. The DEC man page for initstate_r() sez:
*
* int initstate_r(unsigned seed, char *state, int size, char **retval,
* struct random_data *rand_data);
*
* That wouldn't bug me so much, if /usr/include/random.h on the alpha
* didn't say:
*
* int initstate_r(unsigned, char *, int, RANDMOD *);
*
* Most of the other random functions have similar problems (docs
* don't match random.h). This is the case for random_r(), for
* instance. Generally, I'm inclined to trust the code over the
* documentation. Problem is, I have no clue what the arguments for
* the prototyped versions are, since they don't have descriptive names
* comma the bastards.
*
* Update: I looked at the DU sources to get this straightened out.
* The docs are correct. and everything in random.h is wrong. Uh, that's
* really cool or something. Not. I'm going to try slapping in prototypes
* that match my view of the universe, here.
*
* Okay, now let's have some more fun. /usr/include/stdlib.h also defines
* all this stuff, only differently. I mean differently from random.h,
* _and_ differently from the source. How cool is _that_?
*
* --jimz
*/
#ifndef _NO_PROTO
#define _NO_PROTO
#define _RF_SPANKME
#endif /* !_NO_PROTO */
#include <random.h>
#ifdef _RF_SPANKME
#undef _NO_PROTO
#undef _RF_SPANKME
#endif /* _RF_SPANKME */
extern int initstate_r(unsigned seed, char *arg_state, int n, char **retval,
struct random_data *rand_data);
extern int random_r(int *retval, struct random_data *rand_data);
#endif /* __osf__ */
#ifdef SIMULATE
#if defined(DEC_OSF) || defined(hpux)
extern int random(void);
extern int srandom(unsigned);
#endif /* DEC_OSF || hpux */
#if defined(AIX) && RF_AIXVERS == 3
extern int random(void);
extern int srandom(unsigned);
#endif /* AIX && RF_AIXVERS == 3 */
#endif /* SIMULATE */
#define RF_FASTRANDOM 0 /* when >0 make RANDOM a macro instead of a function */
#ifdef __osf__
long rf_do_random(long *rval, struct random_data *rdata); /* in utils.c */
#endif /* __osf__ */
#ifndef SIMULATE
#ifdef __osf__
/*
* Mark's original comment about this rigamarole was, "What a pile of crap."
*/
#define RF_DECLARE_RANDOM \
struct random_data randdata; \
long randstate[64+1]; \
char *stptr = ((char *) randstate)+4; \
char *randst; \
long randval
#define RF_DECLARE_STATIC_RANDOM \
static struct random_data randdata_st; \
static long randstate_st[64+1]; \
static char *stptr_st = ((char *) randstate_st)+4; \
static char *randst_st; \
long randval_st;
#define RF_INIT_RANDOM(_s_) \
randdata.state = NULL; \
initstate_r((unsigned) (_s_), stptr, 64, &randst, &randdata);
#define RF_INIT_STATIC_RANDOM(_s_) \
randdata_st.state = NULL; \
initstate_r((unsigned) (_s_), stptr_st, 64, &randst_st, &randdata_st);
#if RF_FASTRANDOM > 0
#define RF_RANDOM() (random_r(&randval, &randdata),randval)
#define RF_STATIC_RANDOM() (random_r(&randval_st, &randdata_st),randval_st)
#else /* RF_FASTRANDOM > 0 */
#define RF_RANDOM() (rf_do_random(&randval, &randdata)&0x7fffffffffffffff)
#define RF_STATIC_RANDOM() rf_do_random(&randval_st, &randdata_st)
#endif /* RF_FASTRANDOM > 0 */
#define RF_SRANDOM(_s_) srandom_r((_s_), &randdata)
#define RF_STATIC_SRANDOM(_s_) srandom_r((_s_), &randdata_st)
#endif /* __osf__ */
#ifdef AIX
#define RF_INIT_STATIC_RANDOM(_s_)
#define RF_DECLARE_STATIC_RANDOM static int rf_rand_decl##__LINE__
#define RF_DECLARE_RANDOM int rf_rand_decl##__LINE__
#define RF_RANDOM() random()
#define RF_STATIC_RANDOM() random()
#define RF_INIT_RANDOM(_n_) srandom(_n_)
#endif /* AIX */
#else /* !SIMULATE */
#define RF_INIT_STATIC_RANDOM(_s_)
#define RF_DECLARE_STATIC_RANDOM static int rf_rand_decl##__LINE__
#define RF_DECLARE_RANDOM int rf_rand_decl##__LINE__
#if defined(sun) || defined(hpux)
#define RF_RANDOM() rand()
#define RF_STATIC_RANDOM() rand()
#define RF_INIT_RANDOM(_n_) srand(_n_)
#else /* sun || hpux */
#define RF_RANDOM() random()
#define RF_STATIC_RANDOM() random()
#define RF_INIT_RANDOM(_n_) srandom(_n_)
#endif /* sun || hpux */
#endif /* !SIMULATE */
#endif /* !KERNEL */
#endif /* !_RF__RF_RANDMACROS_H_ */
|
