Demonstration of Don't lose your ETS Tables
Let It Crash...Except When You Shouldn't
When you create an ets table you can also name a process to inherit the table should the creating process die
Example Session
rebar co && erl -pz ebin -s etsgive
Eshell V5.9.2 (abort with ^G)
1> MGR(<0.38.0>) -> SRV(<0.37.0>) getting TableId: 16400
etsgive_srv:count().
ok
Counter: 1
2> etsgive_srv:count().
ok
2> etsgive_srv:count().
Counter: 2
ok
3> etsgive_srv:count().
Counter: 3
ok
4> etsgive_srv:count().
Counter: 4
ok
5> etsgive_srv:count().
Counter: 5
ok
6> exit(whereis(etsgive_srv), kill).
true
7> Warning TableId: 16400 OwnerPid: <0.37.0> is dying
SRV(<0.37.0>) => MGR(<0.38.0>) handing TableId: 16400
SRV(<0.37.0>) !! is now dead, farewell TableId: 16400
MGR(<0.38.0>) -> SRV(<0.44.0>) getting TableId: 16400
7> etsgive_srv:count().
ok
Counter: 6
8> etsgive_srv:count().
ok
Counter: 7
9> etsgive_srv:die().
ok
10> Warning TableId: 16400 OwnerPid: <0.44.0> is dying
SRV(<0.44.0>) => MGR(<0.38.0>) handing TableId: 16400
=ERROR REPORT==== 24-Apr-2013::11:01:48 ===
** Generic server etsgive_srv terminating
** Last message in was {'$gen_cast',die}
** When Server state == {state,true,16400}
** Reason for termination ==
** killed
SRV(<0.44.0>) !! is now dead, farewell TableId: 16400
MGR(<0.38.0>) -> SRV(<0.48.0>) getting TableId: 16400
10> etsgive_srv:count().
Counter: 8
ok
11> [ exit(whereis(etsgive_srv), kill) || _ <- lists:seq(1, 20) ].
[true,true,true,true,true,true,true,true,true,true,true,
true,true,true,true,true,true,true,true,true]
12> Warning TableId: 16400 OwnerPid: <0.48.0> is dying
SRV(<0.48.0>) => MGR(<0.38.0>) handing TableId: 16400
SRV(<0.48.0>) !! is now dead, farewell TableId: 16400
MGR(<0.38.0>) -> SRV(<0.51.0>) getting TableId: 16400
12> etsgive_srv:count().
ok
13> Counter: 9