42 lines
1 KiB
Rust
42 lines
1 KiB
Rust
|
|
|
|
|
|
/**
|
|
* Bindings the runtime's random number generator (ISAAC).
|
|
*/
|
|
native "c-stack-cdecl" mod rustrt {
|
|
type rctx;
|
|
fn rand_new() -> rctx;
|
|
fn rand_next(c: rctx) -> u32;
|
|
fn rand_free(c: rctx);
|
|
}
|
|
|
|
type rng =
|
|
obj {
|
|
fn next() -> u32;
|
|
fn next_float() -> float;
|
|
};
|
|
|
|
resource rand_res(c: rustrt::rctx) { rustrt::rand_free(c); }
|
|
|
|
fn mk_rng() -> rng {
|
|
obj rt_rng(c: @rand_res) {
|
|
fn next() -> u32 { ret rustrt::rand_next(**c); }
|
|
fn next_float() -> float {
|
|
let u1 = rustrt::rand_next(**c) as float;
|
|
let u2 = rustrt::rand_next(**c) as float;
|
|
let u3 = rustrt::rand_next(**c) as float;
|
|
let scale = u32::max_value() as float;
|
|
ret ((u1 / scale + u2) / scale + u3) / scale;
|
|
}
|
|
}
|
|
ret rt_rng(@rand_res(rustrt::rand_new()));
|
|
}
|
|
// Local Variables:
|
|
// mode: rust;
|
|
// fill-column: 78;
|
|
// indent-tabs-mode: nil
|
|
// c-basic-offset: 4
|
|
// buffer-file-coding-system: utf-8-unix
|
|
// compile-command: "make -k -C $RBUILD 2>&1 | sed -e 's/\\/x\\//x:\\//g'";
|
|
// End:
|