Merge branch 'essen/remove-pg'

* essen/remove-pg:
  Remove the pg module and related documentation

OTP-11907

14 files changed, 4 insertions, 320 deletions

diff --git a/bootstrap/lib/stdlib/ebin/pg.beam b/bootstrap/lib/stdlib/ebin/pg.beam
deleted file mode 100644
index 31f30461d8..0000000000
--- a/bootstrap/lib/stdlib/ebin/pg.beam
+++ /dev/null
diff --git a/bootstrap/lib/stdlib/ebin/stdlib.app b/bootstrap/lib/stdlib/ebin/stdlib.app
index 1d255fb2c8..8b349c8122 100644
--- a/bootstrap/lib/stdlib/ebin/stdlib.app
+++ b/bootstrap/lib/stdlib/ebin/stdlib.app
@@ -77,7 +77,6 @@
 	     orddict,
 	     ordsets,
 	     otp_internal,
-	     pg,
 	     pool,
 	     proc_lib,
 	     proplists,
diff --git a/erts/test/erlc_SUITE_data/src/start_ok.script b/erts/test/erlc_SUITE_data/src/start_ok.script
index 4cd89f0439..7ef97dc3f3 100644
--- a/erts/test/erlc_SUITE_data/src/start_ok.script
+++ b/erts/test/erlc_SUITE_data/src/start_ok.script
@@ -52,7 +52,6 @@
 	     shell_default,
 	     timer,
 	     gen_fsm,
-	     pg,
 	     unix,
 	     dict,
 	     pool,
@@ -156,7 +155,6 @@
                                         {timer,1},
                                         {gen_fsm,1},
                                         {io_lib_pretty,1},
-                                        {pg,1},
                                         {slave,1},
                                         {unix,1},
                                         {dict,1},
diff --git a/lib/kernel/doc/src/pg2.xml b/lib/kernel/doc/src/pg2.xml
index 5eb63c1ef6..35cf85470a 100644
--- a/lib/kernel/doc/src/pg2.xml
+++ b/lib/kernel/doc/src/pg2.xml
@@ -34,11 +34,8 @@
   <module>pg2</module>
   <modulesummary>Distributed Named Process Groups</modulesummary>
   <description>
-    <p>This module implements process groups. The groups in this
-      module differ from the groups in the module <c>pg</c> in several
-      ways. In <c>pg</c>, each message is sent to all members in the
-      group. In this module, each message may be sent to one, some, or
-      all members.
+    <p>This module implements process groups. Each message may be sent
+      to one, some, or all members of the group.
       </p>
     <p>A group of processes can be accessed by a common name. For
       example, if there is a group named <c>foobar</c>, there can be a
@@ -160,8 +157,7 @@
 
   <section>
     <title>See Also</title>
-    <p><seealso marker="kernel_app">kernel(6)</seealso>, 
-       <seealso marker="stdlib:pg">pg(3)</seealso></p>
+    <p><seealso marker="kernel_app">kernel(6)</seealso></p>
   </section>
 </erlref>
 
diff --git a/lib/stdlib/doc/src/Makefile b/lib/stdlib/doc/src/Makefile
index ff77c3eea0..f5d8b2072a 100644
--- a/lib/stdlib/doc/src/Makefile
+++ b/lib/stdlib/doc/src/Makefile
@@ -76,7 +76,6 @@ XML_REF3_FILES = \
 	ms_transform.xml \
 	orddict.xml \
 	ordsets.xml \
-	pg.xml \
 	pool.xml \
 	proc_lib.xml \
 	proplists.xml \
diff --git a/lib/stdlib/doc/src/pg.xml b/lib/stdlib/doc/src/pg.xml
deleted file mode 100644
index a3b69884b6..0000000000
--- a/lib/stdlib/doc/src/pg.xml
+++ /dev/null
@@ -1,114 +0,0 @@
-<?xml version="1.0" encoding="utf-8" ?>
-<!DOCTYPE erlref SYSTEM "erlref.dtd">
-
-<erlref>
-  <header>
-    <copyright>
-      <year>1996</year>
-      <year>2014</year>
-      <holder>Ericsson AB, All Rights Reserved</holder>
-    </copyright>
-    <legalnotice>
-  The contents of this file are subject to the Erlang Public License,
-  Version 1.1, (the "License"); you may not use this file except in
-  compliance with the License. You should have received a copy of the
-  Erlang Public License along with this software. If not, it can be
-  retrieved online at http://www.erlang.org/.
-
-  Software distributed under the License is distributed on an "AS IS"
-  basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-  the License for the specific language governing rights and limitations
-  under the License.
-
-  The Initial Developer of the Original Code is Ericsson AB.
-    </legalnotice>
-
-    <title>pg</title>
-    <prepared></prepared>
-    <docno></docno>
-    <date></date>
-    <rev></rev>
-  </header>
-  <module>pg</module>
-  <modulesummary>Distributed, Named Process Groups</modulesummary>
-  <description>
-    <warning>
-      <p>This module is deprecated and will be removed in Erlang/OTP 18.</p>
-    </warning>
-    <p>This (experimental) module implements process groups. A process
-      group is a group of processes that can be accessed by a common
-      name. For example, a group named <c>foobar</c> can include a set
-      of processes as members of this group and they can be located on
-      different nodes.</p>
-    <p>When messages are sent to the named group, all members of
-      the group receive the message. The messages are serialized. If
-      the process <c>P1</c> sends the message <c>M1</c> to the group,
-      and process <c>P2</c> simultaneously sends message <c>M2</c>, then
-      all members of the group receive the two messages in the same
-      order. If members of a group terminate, they are automatically 
-      removed from the group.</p>
-    <p>This module is not complete. The module is inspired by the ISIS
-      system and the causal order protocol of the ISIS system should 
-      also be implemented. At the moment, all messages are serialized
-      by sending them through a group master process.</p>
-  </description>
-  <funcs>
-    <func>
-      <name name="create" arity="1"/>
-      <fsummary>Create an empty group</fsummary>
-      <desc>
-        <p>Creates an empty group named <c><anno>PgName</anno></c> on the current
-          node.</p>
-      </desc>
-    </func>
-    <func>
-      <name name="create" arity="2"/>
-      <fsummary>Create an empty group on another node</fsummary>
-      <desc>
-        <p>Creates an empty group named <c><anno>PgName</anno></c> on the node
-          <c><anno>Node</anno></c>.</p>
-      </desc>
-    </func>
-    <func>
-      <name name="join" arity="2"/>
-      <fsummary>Join a pid to a process group</fsummary>
-      <desc>
-        <p>Joins the pid <c><anno>Pid</anno></c> to the process group
-          <c><anno>PgName</anno></c>.
-          Returns a list of all old members of the group.</p>
-      </desc>
-    </func>
-    <func>
-      <name name="send" arity="2"/>
-      <fsummary>Send a message to all members of a process group</fsummary>
-      <desc>
-        <p>Sends the tuple <c>{pg_message, From, PgName, Msg}</c> to
-          all members of the process group <c><anno>PgName</anno></c>.</p>
-        <p>Failure: <c>{badarg, {<anno>PgName</anno>, <anno>Msg</anno>}}</c>
-          if <c><anno>PgName</anno></c> is
-          not a process group (a globally registered name).</p>
-      </desc>
-    </func>
-    <func>
-      <name name="esend" arity="2"/>
-      <fsummary>Send a message to all members of a process group, except ourselves</fsummary>
-      <desc>
-        <p>Sends the tuple <c>{pg_message, From, PgName, Msg}</c> to
-          all members of the process group <c><anno>PgName</anno></c>, except
-          ourselves.</p>
-        <p>Failure: <c>{badarg, {<anno>PgName</anno>, <anno>Msg</anno>}}</c>
-          if <c><anno>PgName</anno></c> is
-          not a process group (a globally registered name).</p>
-      </desc>
-    </func>
-    <func>
-      <name name="members" arity="1"/>
-      <fsummary>Return a list of all members of a process group</fsummary>
-      <desc>
-        <p>Returns a list of all members of the process group
-          <c>PgName</c>.</p>
-      </desc>
-    </func>
-  </funcs>
-</erlref>
-
diff --git a/lib/stdlib/doc/src/ref_man.xml b/lib/stdlib/doc/src/ref_man.xml
index 6c35578bdf..ea4009dc3e 100644
--- a/lib/stdlib/doc/src/ref_man.xml
+++ b/lib/stdlib/doc/src/ref_man.xml
@@ -73,7 +73,6 @@
   <xi:include href="ms_transform.xml"/>
   <xi:include href="orddict.xml"/>
   <xi:include href="ordsets.xml"/>
-  <xi:include href="pg.xml"/>
   <xi:include href="pool.xml"/>
   <xi:include href="proc_lib.xml"/>
   <xi:include href="proplists.xml"/>
diff --git a/lib/stdlib/doc/src/specs.xml b/lib/stdlib/doc/src/specs.xml
index 60a04ed5e7..fd77b52da6 100644
--- a/lib/stdlib/doc/src/specs.xml
+++ b/lib/stdlib/doc/src/specs.xml
@@ -39,7 +39,6 @@
   <xi:include href="../specs/specs_ms_transform.xml"/>
   <xi:include href="../specs/specs_orddict.xml"/>
   <xi:include href="../specs/specs_ordsets.xml"/>
-  <xi:include href="../specs/specs_pg.xml"/>
   <xi:include href="../specs/specs_pool.xml"/>
   <xi:include href="../specs/specs_proc_lib.xml"/>
   <xi:include href="../specs/specs_proplists.xml"/>
diff --git a/lib/stdlib/src/Makefile b/lib/stdlib/src/Makefile
index 9ab2cd4134..1b3744b6fb 100644
--- a/lib/stdlib/src/Makefile
+++ b/lib/stdlib/src/Makefile
@@ -97,7 +97,6 @@ MODULES= \
 	otp_internal \
 	orddict \
 	ordsets \
-	pg \
 	re \
 	pool \
 	proc_lib \
diff --git a/lib/stdlib/src/otp_internal.erl b/lib/stdlib/src/otp_internal.erl
index c0ee8799c8..662a0aca74 100644
--- a/lib/stdlib/src/otp_internal.erl
+++ b/lib/stdlib/src/otp_internal.erl
@@ -577,8 +577,6 @@ obsolete_1(asn1rt, utf8_binary_to_list, 1) ->
     {deprecated,{unicode,characters_to_list,1}};
 obsolete_1(asn1rt, utf8_list_to_binary, 1) ->
     {deprecated,{unicode,characters_to_binary,1}};
-obsolete_1(pg, _, _) ->
-    {deprecated,"deprecated; will be removed in OTP 18"};
 
 obsolete_1(_, _, _) ->
     no.
diff --git a/lib/stdlib/src/pg.erl b/lib/stdlib/src/pg.erl
deleted file mode 100644
index a41fd329c2..0000000000
--- a/lib/stdlib/src/pg.erl
+++ /dev/null
@@ -1,187 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1996-2014. All Rights Reserved.
-%% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% %CopyrightEnd%
-%%
--module(pg).
--deprecated(module).
-
-%% pg provides a process group facility. Messages 
-%% can be multicasted to all members in the group
-
--export([create/1,
-	 create/2,
-	 standby/2,
-	 join/2,
-	 send/2,
-	 esend/2,
-	 members/1,
-	 name_to_pid/1,
-	 master/1]).
-
-
-%% Create a brand new empty process group with the master residing 
-%% at the local node
-
--spec create(PgName) -> 'ok' | {'error', Reason} when
-      PgName :: term(),
-      Reason :: 'already_created' | term().
-
-create(PgName) -> 
-    catch begin check(PgName),
-    Pid = spawn(pg,master,[PgName]),
-    global:register_name(PgName,Pid),
-    ok end.
-
-%% Create a brand new empty process group with the master 
-%% residing at Node
-
--spec create(PgName, Node) -> 'ok' | {'error', Reason} when
-      PgName :: term(),
-      Node :: node(),
-      Reason :: 'already_created' | term().
-
-create(PgName, Node) ->
-    catch begin check(PgName),
-    Pid = spawn(Node,pg,master,[PgName]),
-    global:register_name(PgName,Pid),
-    ok end.
-
-%% Have a process on Node that will act as a standby for the process
-%% group manager. So if the node where the manager runs fails, the
-%% process group will continue to function.
-
--spec standby(term(), node()) -> 'ok'.
-
-standby(_PgName, _Node) ->
-    ok.
-
-%% Tell process group PgName that Pid is a new member of the group
-%% synchronously return a list of all old members in the group
-
--spec join(PgName, Pid) -> Members when
-      PgName :: term(),
-      Pid :: pid(),
-      Members :: [pid()].
-
-join(PgName, Pid) when is_atom(PgName) -> 
-    global:send(PgName, {join,self(),Pid}),
-    receive
-	{_P,{members,Members}} ->
-	    Members
-    end.
-
-%% Multi cast Mess to all members in the group
-
--spec send(PgName, Msg) -> 'ok' when
-      PgName :: term(),
-      Msg :: term().
-
-send(PgName, Mess) when is_atom(PgName) ->
-    global:send(PgName, {send, self(), Mess}),
-    ok;
-send(Pg, Mess) when is_pid(Pg) ->
-    Pg ! {send,self(),Mess},
-    ok.
-
-%% multi cast a message to all members in the group but ourselves
-%% If we are a member
-
--spec esend(PgName, Msg) -> 'ok' when
-      PgName :: term(),
-      Msg :: term().
-
-esend(PgName, Mess) when is_atom(PgName) ->
-    global:send(PgName, {esend,self(),Mess}),
-    ok;
-esend(Pg, Mess) when is_pid(Pg) ->
-    Pg ! {esend,self(),Mess},
-    ok.
-
-%% Return the members of the group
-
--spec members(PgName) -> Members when
-      PgName :: term(),
-      Members :: [pid()].
-
-members(PgName) when is_atom(PgName) ->
-    global:send(PgName, {self() ,members}),
-    receive
-	{_P,{members,Members}} ->
-	    Members
-    end;
-members(Pg) when is_pid(Pg) ->
-    Pg ! {self,members},
-    receive
-	{_P,{members,Members}} ->
-	    Members
-    end.
-
--spec name_to_pid(atom()) -> pid() | 'undefined'.
-
-name_to_pid(PgName) when is_atom(PgName) ->
-    global:whereis_name(PgName).
-
--spec master(term()) -> no_return().
-
-master(PgName) ->
-    process_flag(trap_exit, true),
-    master_loop(PgName, []).
-
-master_loop(PgName,Members) ->
-    receive
-	{send,From,Message} ->
-	    send_all(Members,{pg_message,From,PgName,Message}),
-	    master_loop(PgName,Members);
-	{esend,From,Message} ->
-	    send_all(lists:delete(From,Members),
-		     {pg_message,From,PgName,Message}),
-	    master_loop(PgName,Members);
-	{join,From,Pid} ->
-	    link(Pid),
-	    send_all(Members,{new_member,PgName,Pid}),
-	    From ! {self(),{members,Members}},
-	    master_loop(PgName,[Pid|Members]);
-	{From,members} ->
-	    From ! {self(),{members,Members}},
-	    master_loop(PgName,Members);
-	{'EXIT',From,_} ->
-	    L =
-		case lists:member(From,Members) of
-		    true ->
-			NewMembers = lists:delete(From,Members),
-			send_all(NewMembers, {crashed_member,PgName,From}),
-			NewMembers;
-		    false ->
-			Members
-		end,
-	    master_loop(PgName,L)  
-    end.
-
-send_all([], _) -> ok;
-send_all([P|Ps], M) ->
-    P ! M,
-    send_all(Ps, M).
-
-%% Check if the process group already exists
-
-check(PgName) ->
-    case global:whereis_name(PgName) of
-        Pid when is_pid(Pid) -> 
-            throw({error,already_created});
-        undefined ->
-	    ok
-    end.
diff --git a/lib/stdlib/src/stdlib.app.src b/lib/stdlib/src/stdlib.app.src
index d388410de0..42a787dacf 100644
--- a/lib/stdlib/src/stdlib.app.src
+++ b/lib/stdlib/src/stdlib.app.src
@@ -77,7 +77,6 @@
 	     orddict,
 	     ordsets,
 	     otp_internal,
-	     pg,
 	     pool,
 	     proc_lib,
 	     proplists,
diff --git a/system/doc/design_principles/distributed_applications.xml b/system/doc/design_principles/distributed_applications.xml
index 2886f06b53..4d4ba3136e 100644
--- a/system/doc/design_principles/distributed_applications.xml
+++ b/system/doc/design_principles/distributed_applications.xml
@@ -43,7 +43,7 @@
       addressing mechanism is required to ensure that it can be
       addressed by other applications, regardless on which node it
       currently executes. This issue is not addressed here, but the
-      Kernel module <c>global</c> or STDLIB module <c>pg</c> can be
+      Kernel modules <c>global</c> or <c>pg2</c> can be
       used for this purpose.</p>
   </section>
 
diff --git a/system/doc/tutorial/distribution.xml b/system/doc/tutorial/distribution.xml
index 6a0ea759c4..ced8e4a545 100644
--- a/system/doc/tutorial/distribution.xml
+++ b/system/doc/tutorial/distribution.xml
@@ -58,7 +58,6 @@
       <item>global_group - Grouping nodes to global name registration groups.</item>
       <item>net_adm - Various net administration routines.</item>
       <item>net_kernel - Networking kernel.</item>
-      <item>pg - Distributed named process groups, experimental implementation.</item>
       <item>pg2 - Distributed named process groups.</item>
       <item>pool - Load distribution facility.</item>
       <item>slave - Functions for starting and controlling slave nodes.</item>