File 0001-replace-quickrand-to-rand.patch of Package cpg

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-replace-quickrand-to-rand.patch of Package cpg (Revision b91f913ba10a8c06c157f5228c5abfc4)

Currently displaying revision b91f913ba10a8c06c157f5228c5abfc4 , Show latest

From 346ce41ebf131bba8eef6f101fb48cd30145d348 Mon Sep 17 00:00:00 2001
From: Led <ledest@gmail.com>
Date: Sun, 24 Sep 2017 16:42:55 +0300
Subject: [PATCH 1/4] replace quickrand to rand

diff --git a/mix.exs b/mix.exs
index 7074089..bd2c40f 100644
--- a/mix.exs
+++ b/mix.exs
@@ -14,9 +14,7 @@ defmodule CPG.Mixfile do
   end
 
   def application do
-    [applications: [
-       :quickrand,
-       :trie],
+    [applications: [:trie],
      mod: {:cpg_app, []},
      registered: [
        :cpg_default_scope,
@@ -33,8 +31,7 @@ defmodule CPG.Mixfile do
 
   defp deps do
     [{:trie, "~> 1.7.2"},
-     {:reltool_util, "~> 1.7.2"},
-     {:quickrand, "~> 1.7.2"}]
+     {:reltool_util, "~> 1.7.2"}]
   end
 
   defp description do
diff --git a/rebar.config b/rebar.config
index ffaafda..a5cf05f 100644
--- a/rebar.config
+++ b/rebar.config
@@ -7,9 +7,6 @@
     {tag, "v1.7.2"}}},
   {reltool_util, ".*",
    {git, "https://github.com/okeuday/reltool_util.git",
-    {tag, "v1.7.2"}}},
-  {quickrand, ".*",
-   {git, "https://github.com/okeuday/quickrand.git",
     {tag, "v1.7.2"}}}]}.
 
 {require_otp_vsn, "19|20"}.
diff --git a/src/cpg.app.src b/src/cpg.app.src
index 993eb90..0f3d0b5 100644
--- a/src/cpg.app.src
+++ b/src/cpg.app.src
@@ -22,7 +22,6 @@
         groups_scope2
         ]},
    {applications, [
-        quickrand,
         trie,
         stdlib,
         kernel
diff --git a/src/cpg.erl b/src/cpg.erl
index 7b501b3..f87def2 100644
--- a/src/cpg.erl
+++ b/src/cpg.erl
@@ -2679,7 +2679,6 @@ init([Scope]) ->
         % Groups coming from other nodes if this server
         % has restarted and wants previous state
     end, Nodes),
-    quickrand:seed(),
     {ok, #state{scope = Scope,
                 groups = cpg_data:get_empty_groups(),
                 listen = Listen}}.
@@ -3639,7 +3638,7 @@ monitor_remote(Pid, GroupName, OldMonitors, OldNodeMonitors) ->
 whereis_name_random(1, [Pid]) ->
     Pid;
 whereis_name_random(N, L) ->
-    lists:nth(random(N), L).
+    lists:nth(rand:uniform(N), L).
 
 count(Elem, List) ->
     count(List, 0, Elem).
@@ -3649,9 +3648,3 @@ count([Elem | T], I, Elem) ->
     count(T, I + 1, Elem);
 count([_ | T], I, Elem) ->
     count(T, I, Elem).
-
--compile({inline, [{random,1}]}).
-
-random(N) ->
-    quickrand:uniform(N).
-
diff --git a/src/cpg_data.erl b/src/cpg_data.erl
index 0184e4b..c2f237e 100644
--- a/src/cpg_data.erl
+++ b/src/cpg_data.erl
@@ -918,7 +918,7 @@ pick(1, [Pid], Pattern) ->
     {ok, Pattern, Pid};
 
 pick(N, L, Pattern) ->
-    Pid = lists:nth(random(N), L),
+    Pid = lists:nth(rand:uniform(N), L),
     {ok, Pattern, Pid}.
 
 pick_i(I, I, _, [], [], _, GroupName, _) ->
@@ -950,7 +950,7 @@ pick(0, [], _, GroupName, _) ->
     {error, {'no_process', GroupName}};
 
 pick(N, L, Exclude, GroupName, Pattern) ->
-    pick_i(1, random(N), 0, [], L, Exclude, GroupName, Pattern).
+    pick_i(1, rand:uniform(N), 0, [], L, Exclude, GroupName, Pattern).
 
 pick(0, [], N2, L2, Exclude, GroupName, Pattern) ->
     pick(N2, L2, Exclude, GroupName, Pattern);
@@ -1083,9 +1083,3 @@ history_remote_newest_pid([_ | History], Exclude, Node, GroupName, Pattern) ->
     history_remote_newest_pid(History, Exclude, Node, GroupName, Pattern).
 history_remote_newest([_ | _] = History, Exclude, GroupName, Pattern) ->
     history_remote_newest_pid(History, Exclude, node(), GroupName, Pattern).
-
--compile({inline, [{random,1}]}).
-
-random(N) ->
-    quickrand:uniform(N).
-
-- 
2.14.1

Places

File 0001-replace-quickrand-to-rand.patch of Package cpg (Revision b91f913ba10a8c06c157f5228c5abfc4)

Places