From: Jean Privat <jean@pryen.org>
Date: Tue, 5 May 2015 18:22:53 +0000 (-0400)
Subject: lib/standard: use `NIT_SRAND` envvar to control the random number generator
X-Git-Tag: v0.7.5~76^2~4
X-Git-Url: http://nitlanguage.org

lib/standard: use `NIT_SRAND` envvar to control the random number generator

Signed-off-by: Jean Privat <jean@pryen.org>
---

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