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 9875545142ac04553b5195b336b4593f)

Currently displaying revision 9875545142ac04553b5195b336b4593f , Show latest

From 952a2fe1403d4e14d75e97ab4cef43f500624c2e Mon Sep 17 00:00:00 2001
From: Led <ledest@gmail.com>
Date: Mon, 29 Oct 2018 13:56:15 +0200
Subject: [PATCH 01/13] replace quickrand to rand

diff --git a/mix.exs b/mix.exs
index 11cdf9c..67609df 100644
--- a/mix.exs
+++ b/mix.exs
@@ -30,9 +30,7 @@ defmodule CPG.Mixfile do
   end
 
   def application do
-    [applications: [
-       :quickrand,
-       :trie],
+    [applications: [:trie],
      mod: {:cpg_app, []},
      registered: [
        :cpg_default_scope,
@@ -49,8 +47,7 @@ defmodule CPG.Mixfile do
 
   defp deps do
     [{:trie, ">= 1.7.5"},
-     {:reltool_util, ">= 1.7.5"},
-     {:quickrand, ">= 1.7.5"}]
+     {:reltool_util, ">= 1.7.5"}]
   end
 
   defp description do
diff --git a/rebar.config b/rebar.config
index 80180fb..4f0bc0f 100644
--- a/rebar.config
+++ b/rebar.config
@@ -7,9 +7,6 @@
     {tag, "v1.7.5"}}},
   {reltool_util, ".*",
    {git, "https://github.com/okeuday/reltool_util.git",
-    {tag, "v1.7.5"}}},
-  {quickrand, ".*",
-   {git, "https://github.com/okeuday/quickrand.git",
     {tag, "v1.7.5"}}}]}.
 
 {erl_opts,
diff --git a/src/cpg.app.src b/src/cpg.app.src
index ef41d8a..77af3dc 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 664526a..4001dbb 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 c3f8461..ce7b5bd 100644
--- a/src/cpg_data.erl
+++ b/src/cpg_data.erl
@@ -917,7 +917,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, _) ->
@@ -949,7 +949,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);
@@ -1082,9 +1082,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.16.4

Places

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

Places