You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@couchdb.apache.org by va...@apache.org on 2017/10/05 17:15:18 UTC
[1/2] couchdb-khash git commit: Handle deprecated random module
Repository: couchdb-khash
Updated Branches:
refs/heads/master 0fece209e -> 02f3da23b
Handle deprecated random module
Use a compile time check for platform versions, then a macro conditional in a
separate rand module.
Removed redunant beam file compile rule from Makefile as it prevented erl_opts
rebar options form taking effect.
Project: http://git-wip-us.apache.org/repos/asf/couchdb-khash/repo
Commit: http://git-wip-us.apache.org/repos/asf/couchdb-khash/commit/7cacece3
Tree: http://git-wip-us.apache.org/repos/asf/couchdb-khash/tree/7cacece3
Diff: http://git-wip-us.apache.org/repos/asf/couchdb-khash/diff/7cacece3
Branch: refs/heads/master
Commit: 7cacece3668fcbbccdf5533ef27190a00fecb3cc
Parents: 0fece20
Author: Nick Vatamaniuc <va...@apache.org>
Authored: Tue Oct 3 02:03:19 2017 -0400
Committer: Nick Vatamaniuc <va...@apache.org>
Committed: Tue Oct 3 15:12:14 2017 -0400
----------------------------------------------------------------------
Makefile | 2 --
rebar.config | 9 ++++++++
test/gen_term.erl | 37 ++++++++++++-------------------
test/khash_rand.erl | 57 ++++++++++++++++++++++++++++++++++++++++++++++++
test/khash_test.erl | 13 ++---------
5 files changed, 82 insertions(+), 36 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/couchdb-khash/blob/7cacece3/Makefile
----------------------------------------------------------------------
diff --git a/Makefile b/Makefile
index 754165e..ccc4a8a 100644
--- a/Makefile
+++ b/Makefile
@@ -42,5 +42,3 @@ help:
@egrep "^# target:" Makefile | sed -e 's/^# target: //g' | sort
-%.beam: %.erl
- erlc -o test/ $<
http://git-wip-us.apache.org/repos/asf/couchdb-khash/blob/7cacece3/rebar.config
----------------------------------------------------------------------
diff --git a/rebar.config b/rebar.config
index cfbeaeb..bb9a1e5 100644
--- a/rebar.config
+++ b/rebar.config
@@ -11,3 +11,12 @@
{"win32", "CFLAGS", "$CFLAGS /O2 /DNDEBUG /Wall"}
]}.
+{erl_opts, [
+ {platform_define, "^R16", 'NORANDMODULE'},
+ {platform_define, "^17", 'NORANDMODULE'}
+]}.
+
+{eunit_compile_opts, [
+ {platform_define, "^R16", 'NORANDMODULE'},
+ {platform_define, "^17", 'NORANDMODULE'}
+]}.
http://git-wip-us.apache.org/repos/asf/couchdb-khash/blob/7cacece3/test/gen_term.erl
----------------------------------------------------------------------
diff --git a/test/gen_term.erl b/test/gen_term.erl
index bf5acb6..2937113 100644
--- a/test/gen_term.erl
+++ b/test/gen_term.erl
@@ -42,18 +42,18 @@ gen_atom(MaxSize) ->
gen_integer(_) ->
- Value = case random_uniform() < 0.5 of
- true -> random_uniform(127);
- false -> random_uniform(16#FFFFFFFF)
+ Value = case khash_rand:uniform() < 0.5 of
+ true -> khash_rand:uniform(127);
+ false -> khash_rand:uniform(16#FFFFFFFF)
end,
- case random_uniform() < 0.5 of
+ case khash_rand:uniform() < 0.5 of
true -> -1 * Value;
false -> Value
end.
gen_float(_) ->
- random_uniform() * float(16#FFFFFFFF).
+ khash_rand:uniform() * float(16#FFFFFFFF).
gen_reference(_) ->
@@ -62,12 +62,12 @@ gen_reference(_) ->
gen_port(_) ->
Ports = erlang:ports(),
- lists:nth(random_uniform(length(Ports)), Ports).
+ lists:nth(khash_rand:uniform(length(Ports)), Ports).
gen_pid(_) ->
Pids = erlang:processes(),
- lists:nth(random_uniform(length(Pids)), Pids).
+ lists:nth(khash_rand:uniform(length(Pids)), Pids).
gen_tuple(MaxSize) ->
@@ -75,18 +75,18 @@ gen_tuple(MaxSize) ->
gen_list(MaxSize) ->
- Width = random_uniform(MaxSize),
+ Width = khash_rand:uniform(MaxSize),
[any(MaxSize-Width) || _ <- lists:seq(1, Width)].
gen_short_string(_) ->
- Size = random_uniform(255),
- [random_uniform(127) || _ <- lists:seq(1, Size)].
+ Size = khash_rand:uniform(255),
+ [khash_rand:uniform(127) || _ <- lists:seq(1, Size)].
gen_string(_) ->
- Size = random_uniform(4096),
- [random_uniform(127) || _ <- lists:seq(1, Size)].
+ Size = khash_rand:uniform(4096),
+ [khash_rand:uniform(127) || _ <- lists:seq(1, Size)].
gen_binary(MaxSize) ->
@@ -99,7 +99,7 @@ gen_bitstring(MaxSize) ->
gen_bignum(_) ->
- 16#FFFFFFFFFFFFFFFF + random_uniform(16#FFFFFFFF).
+ 16#FFFFFFFFFFFFFFFF + khash_rand:uniform(16#FFFFFFFF).
gen_function(_) ->
@@ -107,7 +107,7 @@ gen_function(_) ->
choice(Options) ->
- lists:nth(random_uniform(length(Options)), Options).
+ lists:nth(khash_rand:uniform(length(Options)), Options).
value_types() ->
@@ -129,12 +129,3 @@ value_types() ->
all_types() ->
value_types() ++ [gen_tuple, gen_list].
-
-
-random_uniform() ->
- Range = 1 bsl 32,
- crypto:rand_uniform(0, Range) / Range.
-
-
-random_uniform(N) ->
- crypto:rand_uniform(1, N + 1).
http://git-wip-us.apache.org/repos/asf/couchdb-khash/blob/7cacece3/test/khash_rand.erl
----------------------------------------------------------------------
diff --git a/test/khash_rand.erl b/test/khash_rand.erl
new file mode 100644
index 0000000..76b7e38
--- /dev/null
+++ b/test/khash_rand.erl
@@ -0,0 +1,57 @@
+% Licensed under the Apache License, Version 2.0 (the "License"); you may not
+% use this file except in compliance with the License. You may obtain a copy of
+% the License at
+%
+% http://www.apache.org/licenses/LICENSE-2.0
+%
+% Unless required by applicable law or agreed to in writing, software
+% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
+% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
+% License for the specific language governing permissions and limitations under
+% the License.
+
+-module(khash_rand).
+
+
+-export([
+ uniform/0,
+ uniform/1
+]).
+
+
+-ifdef(NORANDMODULE).
+
+
+uniform() ->
+ maybe_set_random_seed(),
+ random:uniform().
+
+
+uniform(N) ->
+ maybe_set_random_seed(),
+ random:uniform(N).
+
+
+maybe_set_random_seed() ->
+ case get(random_seed) of
+ undefined ->
+ {_, Sec, USec} = os:timestamp(),
+ Seed = {erlang:phash2(self()), Sec, USec},
+ random:seed(Seed);
+ _ ->
+ ok
+ end.
+
+
+-else.
+
+
+uniform() ->
+ rand:uniform().
+
+
+uniform(N) ->
+ rand:uniform(N).
+
+
+-endif.
http://git-wip-us.apache.org/repos/asf/couchdb-khash/blob/7cacece3/test/khash_test.erl
----------------------------------------------------------------------
diff --git a/test/khash_test.erl b/test/khash_test.erl
index f19c858..1f116d3 100644
--- a/test/khash_test.erl
+++ b/test/khash_test.erl
@@ -366,7 +366,7 @@ run_to_list({D, H}) ->
weighted_choice(Items0) ->
Items = lists:sort(Items0),
Sum = lists:sum([W || {W, _} <- Items]),
- Choice = random_uniform() * Sum,
+ Choice = khash_rand:uniform() * Sum,
weighted_choice(Items, 0.0, Choice).
weighted_choice([], _, _) ->
@@ -378,16 +378,7 @@ weighted_choice([{_, I} | _], _, _) ->
random_key(D) ->
Keys = lists:usort(dict:fetch_keys(D) ++ [foo]),
- lists:nth(random_uniform(length(Keys)), Keys).
+ lists:nth(khash_rand:uniform(length(Keys)), Keys).
random_val() ->
gen_term:any().
-
-
-random_uniform() ->
- Range = 1 bsl 32,
- crypto:rand_uniform(0, Range) / Range.
-
-
-random_uniform(N) ->
- crypto:rand_uniform(1, N + 1).
[2/2] couchdb-khash git commit: Merge branch 'rand-compat'
Posted by va...@apache.org.
Merge branch 'rand-compat'
Fixes #9
Project: http://git-wip-us.apache.org/repos/asf/couchdb-khash/repo
Commit: http://git-wip-us.apache.org/repos/asf/couchdb-khash/commit/02f3da23
Tree: http://git-wip-us.apache.org/repos/asf/couchdb-khash/tree/02f3da23
Diff: http://git-wip-us.apache.org/repos/asf/couchdb-khash/diff/02f3da23
Branch: refs/heads/master
Commit: 02f3da23b737fd064f464af521aecb13cbd11e71
Parents: 0fece20 7cacece
Author: Nick Vatamaniuc <va...@apache.org>
Authored: Thu Oct 5 13:15:00 2017 -0400
Committer: Nick Vatamaniuc <va...@apache.org>
Committed: Thu Oct 5 13:15:00 2017 -0400
----------------------------------------------------------------------
Makefile | 2 --
rebar.config | 9 ++++++++
test/gen_term.erl | 37 ++++++++++++-------------------
test/khash_rand.erl | 57 ++++++++++++++++++++++++++++++++++++++++++++++++
test/khash_test.erl | 13 ++---------
5 files changed, 82 insertions(+), 36 deletions(-)
----------------------------------------------------------------------