File gproc-0.9.0-git.patch of Package gproc

Overview Repositories Revisions Requests Users Attributes Meta

File gproc-0.9.0-git.patch of Package gproc (Revision 1f91fd09c9e1d89ef2ebc83bb7623636)

Currently displaying revision 1f91fd09c9e1d89ef2ebc83bb7623636 , Show latest

diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
new file mode 100644
index 0000000..e86150f
--- /dev/null
+++ b/.github/workflows/ci.yml
@@ -0,0 +1,24 @@
+name: CI
+
+on:
+  push:
+  pull_request:
+    branches: [ $default-branch ]
+  release:
+    types:
+      - created
+
+jobs:
+  test:
+    name: "Erlang Test"
+    runs-on: ubuntu-latest
+    strategy:
+      matrix:
+        otp: [21, 22, 23, 24, 25]
+      fail-fast: false
+    container:
+      image: erlang:${{ matrix.otp }}
+    steps:
+    - uses: actions/checkout@v3
+    - name: Test
+      run: make
diff --git a/.travis.yml b/.travis.yml
deleted file mode 100644
index 1222f82..0000000
--- a/.travis.yml
+++ /dev/null
@@ -1,7 +0,0 @@
-language: erlang
-script: "GPROC_DIST=true rebar get-deps compile eunit"
-otp_release:
-    - 23.0.3
-    - 22.3
-    - 21.3
-    - 20.3.8.22
diff --git a/README.md b/README.md
index df786c4..5791454 100644
--- a/README.md
+++ b/README.md
@@ -6,7 +6,7 @@ __Authors:__ Ulf Wiger ([`ulf@wiger.net`](mailto:ulf@wiger.net)), Joseph Wayne N
 
 Extended process dictionary
 
-[![Build Status](https://travis-ci.org/uwiger/gproc.png?branch=master)](https://travis-ci.org/uwiger/gproc)
+[![Build Status](https://github.com/uwiger/gproc/actions/workflows/ci.yml/badge.svg?branch=master)](https://github.com/uwiger/gproc/actions/workflows/ci.yml)
 [![Hex pm](http://img.shields.io/hexpm/v/gproc.svg?style=flat)](https://hex.pm/packages/gproc)
 
 
@@ -127,4 +127,3 @@ Freiburg 2007 ([Paper available here](http://github.com/uwiger/gproc/blob/uw-cha
 <tr><td><a href="http://github.com/uwiger/gproc/blob/uw-change-license/doc/gproc_ps.md" class="module">gproc_ps</a></td></tr>
 <tr><td><a href="http://github.com/uwiger/gproc/blob/uw-change-license/doc/gproc_pt.md" class="module">gproc_pt</a></td></tr>
 <tr><td><a href="http://github.com/uwiger/gproc/blob/uw-change-license/doc/gproc_sup.md" class="module">gproc_sup</a></td></tr></table>
-
diff --git a/doc/gproc.md b/doc/gproc.md
index f8fda36..c0aee61 100644
--- a/doc/gproc.md
+++ b/doc/gproc.md
@@ -383,7 +383,7 @@ await(Key::<a href="#type-key">key()</a>, Timeout) -&gt; {pid(), Value}
 
 Wait for a name or aggregated counter to be registered.
 The function raises an exception if the timeout expires. Timeout must be
-either an interger > 0 or 'infinity'.
+either an integer > 0 or 'infinity'.
 A small optimization: we first perform a lookup, to see if the name
 is already registered. This way, the cost of the operation will be
 roughly the same as of where/1 in the case where the name is already
@@ -687,7 +687,7 @@ sense to use multiple times is `{default, Value}`.
 
 The return value will be one of:
 
-* The value of the first matching alternative, or `error` eception,
+* The value of the first matching alternative, or `error` exception,
 whichever comes first
 * The last instance of `{default, Value}`, or `undefined`, if there is no
 matching alternative, default or `error` entry in the list.
@@ -1504,7 +1504,7 @@ Add/modify `{Key, Value}` attributes associated with a registration.
 Gproc registration objects can have `{Key, Value}` attributes associated with
 them. These are stored in a way that doesn't affect the cost of name lookup.
 
-Attributs can be retrieved using `gproc:get_attribute/3` or
+Attributes can be retrieved using `gproc:get_attribute/3` or
 `gproc:get_attributes/2`.
 
 <a name="set_attributes_shared-2"></a>
diff --git a/doc/gproc_pool.md b/doc/gproc_pool.md
index ad2cdf1..464071f 100644
--- a/doc/gproc_pool.md
+++ b/doc/gproc_pool.md
@@ -108,7 +108,7 @@ This function allows the pool maintainer to exactly position each worker
 inside the pool. An exception is raised if the position is already taken,
 or if `Name` already exists in the pool. If `Slot` is larger than the current
 size of the pool, an exception is raised iff `auto_size` is `false`;
-otherwise the pool is expanded to accomodate the new position.
+otherwise the pool is expanded to accommodate the new position.
 
 <a name="claim-2"></a>
 
@@ -277,7 +277,7 @@ Create a new pool.
 The pool starts out empty. If a size is not given, the pool size is set to
 0 initially. `auto_size` is `true` by default if size is not specified, but
 `false` by default otherwise. If `auto_size == true`, the pool will be
-enlarged to accomodate new workers, when necessary. Otherwise, trying to add
+enlarged to accommodate new workers, when necessary. Otherwise, trying to add
 a worker when the pool is full will raise an exception, as will trying to add
 a worker on a specific position beyond the current size of the pool.
 
diff --git a/doc/overview.edoc b/doc/overview.edoc
index e3f4b05..141c8f5 100644
--- a/doc/overview.edoc
+++ b/doc/overview.edoc
@@ -3,7 +3,7 @@
 
 @doc Extended process dictionary
 
-[![Build Status](https://travis-ci.org/uwiger/gproc.png?branch=master)](https://travis-ci.org/uwiger/gproc)
+[![Build Status](https://github.com/uwiger/gproc/actions/workflows/ci.yml/badge.svg?branch=master)](https://github.com/uwiger/gproc/actions/workflows/ci.yml)
 [![Hex pm](http://img.shields.io/hexpm/v/gproc.svg?style=flat)](https://hex.pm/packages/gproc)
 
 
diff --git a/patches/stdlib/gen_fsm.erl b/patches/stdlib/gen_fsm.erl
index 899dc2c..21117cc 100644
--- a/patches/stdlib/gen_fsm.erl
+++ b/patches/stdlib/gen_fsm.erl
@@ -224,7 +224,7 @@ start_timer(Time, Msg) ->
 send_event_after(Time, Event) ->
     erlang:start_timer(Time, self(), {'$gen_event', Event}).
 
-%% Returns the remaing time for the timer if Ref referred to 
+%% Returns the remaining time for the timer if Ref referred to 
 %% an active timer/send_event_after, false otherwise.
 cancel_timer(Ref) ->
     case erlang:cancel_timer(Ref) of
diff --git a/patches/stdlib/gen_server.erl b/patches/stdlib/gen_server.erl
index 54aca0d..270372b 100644
--- a/patches/stdlib/gen_server.erl
+++ b/patches/stdlib/gen_server.erl
@@ -194,7 +194,7 @@ reply({To, Tag}, Reply) ->
     catch To ! {Tag, Reply}.
 
 %% ----------------------------------------------------------------- 
-%% Asyncronous broadcast, returns nothing, it's just send'n prey
+%% Asynchronous broadcast, returns nothing, it's just send'n prey
 %%-----------------------------------------------------------------  
 abcast(Name, Request) when is_atom(Name) ->
     do_abcast([node() | nodes()], Name, cast_msg(Request)).
@@ -324,7 +324,7 @@ loop(Parent, Name, State, Mod, Time, Debug) ->
     end.
 
 %%% ---------------------------------------------------
-%%% Send/recive functions
+%%% Send/receive functions
 %%% ---------------------------------------------------
 do_send(Dest, Msg) ->
     case catch erlang:send(Dest, Msg, [noconnect]) of
@@ -345,7 +345,7 @@ do_multi_call(Nodes, Name, Req, Timeout) ->
 	spawn(
 	  fun() ->
 		  %% Middleman process. Should be unsensitive to regular
-		  %% exit signals. The sychronization is needed in case
+		  %% exit signals. The synchronization is needed in case
 		  %% the receiver would exit before the caller started
 		  %% the monitor.
 		  process_flag(trap_exit, true),
diff --git a/patches/stdlib/supervisor.erl b/patches/stdlib/supervisor.erl
index fac763d..30c96c0 100644
--- a/patches/stdlib/supervisor.erl
+++ b/patches/stdlib/supervisor.erl
@@ -858,7 +858,7 @@ validMods(Mods) -> throw({invalid_modules, Mods}).
 %%% Add a new restart and calculate if the max restart
 %%% intensity has been reached (in that case the supervisor
 %%% shall terminate).
-%%% All restarts accured inside the period amount of seconds
+%%% All restarts occurred inside the period amount of seconds
 %%% are kept in the #state.restarts list.
 %%% Returns: {ok, State'} | {terminate, State'}
 %%% ------------------------------------------------------
diff --git a/src/gproc.erl b/src/gproc.erl
index fe5291c..01d90ef 100644
--- a/src/gproc.erl
+++ b/src/gproc.erl
@@ -417,7 +417,7 @@ get_env(Scope, App, Key) ->
 %%
 %% The return value will be one of:
 %%
-%% * The value of the first matching alternative, or `error' eception,
+%% * The value of the first matching alternative, or `error' exception,
 %%   whichever comes first
 %% * The last instance of `{default, Value}', or `undefined', if there is no
 %%   matching alternative, default or `error' entry in the list.
@@ -675,7 +675,7 @@ await(Key) ->
 %%
 %% @doc Wait for a name or aggregated counter to be registered.
 %% The function raises an exception if the timeout expires. Timeout must be
-%% either an interger &gt; 0 or 'infinity'.
+%% either an integer &gt; 0 or 'infinity'.
 %% A small optimization: we first perform a lookup, to see if the name
 %% is already registered. This way, the cost of the operation will be
 %% roughly the same as of where/1 in the case where the name is already
@@ -1343,7 +1343,7 @@ unreg_other1({T,l,_} = Key, Pid) when is_pid(Pid) ->
 %% Gproc registration objects can have `{Key, Value}' attributes associated with
 %% them. These are stored in a way that doesn't affect the cost of name lookup.
 %%
-%% Attributs can be retrieved using `gproc:get_attribute/3' or
+%% Attributes can be retrieved using `gproc:get_attribute/3' or
 %% `gproc:get_attributes/2'.
 %% @end
 set_attributes(Key, Props) ->
diff --git a/src/gproc_pool.erl b/src/gproc_pool.erl
index 407f03d..709f323 100644
--- a/src/gproc_pool.erl
+++ b/src/gproc_pool.erl
@@ -114,7 +114,7 @@ new(Pool) ->
 %% The pool starts out empty. If a size is not given, the pool size is set to
 %% 0 initially. `auto_size' is `true' by default if size is not specified, but
 %% `false' by default otherwise. If `auto_size == true', the pool will be
-%% enlarged to accomodate new workers, when necessary. Otherwise, trying to add
+%% enlarged to accommodate new workers, when necessary. Otherwise, trying to add
 %% a worker when the pool is full will raise an exception, as will trying to add
 %% a worker on a specific position beyond the current size of the pool.
 %%
@@ -182,7 +182,7 @@ add_worker(Pool, Name) ->
 %% inside the pool. An exception is raised if the position is already taken,
 %% or if `Name' already exists in the pool. If `Slot' is larger than the current
 %% size of the pool, an exception is raised iff `auto_size' is `false';
-%% otherwise the pool is expanded to accomodate the new position.
+%% otherwise the pool is expanded to accommodate the new position.
 %% @end
 add_worker(Pool, Name, Slot) ->
     call({add_worker, Pool, Name, Slot}).
@@ -377,7 +377,7 @@ pick(Pool, Sz, round_robin, Ret) ->
             end
     end;
 pick(Pool, Sz, random, Ret) ->
-    pick_near(Pool, rand:uniform(Sz + 1), Ret).
+    pick_near(Pool, rand:uniform(Sz), Ret).
 
 pick(Pool, Sz, hash, Val, Ret) ->
     pick_near(Pool, erlang:phash2(Val, Sz) + 1, Ret);
@@ -557,7 +557,7 @@ execute_claim(F, K, Pid) ->
 setup_wait(nowait, _) ->
     nowait;
 setup_wait({busy_wait, MS}, Pool) ->
-    Ref = erlang:send_after(MS, self(), {claim, Pool}),
+    Ref = erlang:start_timer(MS, self(), {claim, Pool}),
     {busy_wait, Ref}.
 
 do_wait(nowait) ->
@@ -569,7 +569,9 @@ do_wait({busy_wait, Ref} = W) ->
     erlang:yield(),
     case erlang:read_timer(Ref) of
 	false ->
-	    erlang:cancel_timer(Ref),
+            receive {timeout, Ref, _} -> ok
+            after 0 -> ok
+            end,
 	    timeout;
 	_ ->
 	    W
@@ -604,7 +606,7 @@ randomize(Pool) ->
         0 -> 0;
         1 -> 1;
         Sz ->
-            incr(Pool, rand:uniform(Sz + 1) - 1, Sz)
+            incr(Pool, rand:uniform(Sz) - 1, Sz)
     end.
 
 %% @spec pool_size(Pool::any()) -> integer()

Places

File gproc-0.9.0-git.patch of Package gproc (Revision 1f91fd09c9e1d89ef2ebc83bb7623636)

Places