From 6ac475fa8f362b2cd7f7bd44d849a0b456288705 Mon Sep 17 00:00:00 2001 From: Jean Privat Date: Tue, 5 May 2015 14:22:53 -0400 Subject: [PATCH] lib/standard: use `NIT_SRAND` envvar to control the random number generator Signed-off-by: Jean Privat --- lib/standard/environ.nit | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lib/standard/environ.nit b/lib/standard/environ.nit index 2f6ae46..0abe7f3 100644 --- a/lib/standard/environ.nit +++ b/lib/standard/environ.nit @@ -60,3 +60,11 @@ redef class NativeString private fun get_environ: NativeString is extern "string_NativeString_NativeString_get_environ_0" private fun setenv( v : NativeString ) is extern "string_NativeString_NativeString_setenv_1" end + +redef class Sys + redef init + do + var x = "NIT_SRAND".environ + if x != "" then srand_from(x.to_i) + end +end -- 1.7.9.5