44 lines
1,004 B
Erlang
44 lines
1,004 B
Erlang
|
%% Generalized random module that offers a backwards compatible API
|
||
|
|
%% around some of the changes in rand, crypto and for time units.
|
||
|
|
|
||
|
|
-module(leveled_rand).
|
||
|
|
|
||
|
|
%% API
|
||
|
|
-export([
|
||
|
|
uniform/1,
|
||
|
|
seed/0,
|
||
|
|
rand_bytes/1
|
||
|
|
]).
|
||
|
|
|
||
|
|
%%%===================================================================
|
||
|
|
%%% New (r19+) rand style functions
|
||
|
|
%%%===================================================================
|
||
|
|
-ifndef(old_rand).
|
||
|
|
uniform(N) ->
|
||
|
|
rand:uniform(N).
|
||
|
|
|
||
|
|
seed() ->
|
||
|
|
ok.
|
||
|
|
|
||
|
|
rand_bytes(Size) ->
|
||
|
|
crypto:strong_rand_bytes(Size).
|
||
|
|
|
||
|
|
-else.
|
||
|
|
%%%===================================================================
|
||
|
|
%%% Old (r18) random style functions
|
||
|
|
%%%===================================================================
|
||
|
|
uniform(N) ->
|
||
|
|
random:uniform(N).
|
||
|
|
|
||
|
|
uniform_s(N, State) ->
|
||
|
|
random:uniform_s(N, State).
|
||
|
|
|
||
|
|
seed() ->
|
||
|
|
SW = os:timestamp(),
|
||
|
|
random:seed(erlang:phash2(self()), element(2, SW), element(3, SW)).
|
||
|
|
|
||
|
|
rand_bytes(Size) ->
|
||
|
|
crypto:strong_rand(Size).
|
||
|
|
|
||
|
|
-endif.
|