2 -- Copyright (C) 2008-2014 Matthew Wild
3 -- Copyright (C) 2008-2014 Waqas Hussain
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
9 local tostring = tostring;
10 local os_time = os.time;
11 local os_clock = os.clock;
12 local ceil = math.ceil;
13 local H = require "util.hashes".sha512;
15 local last_uniq_time = 0;
16 local function uniq_time()
17 local new_uniq_time = os_time();
18 if last_uniq_time >= new_uniq_time then new_uniq_time = last_uniq_time + 1; end
19 last_uniq_time = new_uniq_time;
23 local function new_random(x)
24 return H(x..os_clock()..tostring({}));
27 local buffer = new_random(uniq_time());
29 local function seed(x)
30 buffer = new_random(buffer..x);
33 local function bytes(n)
34 if #buffer < n+4 then seed(uniq_time()); end
35 local r = buffer:sub(1, n);
36 buffer = buffer:sub(n+1);