kill.erl

-module(kill).
-export([kill_demo/0]).


listen() ->
  receive
    Message -> io:format("~p has caught a system message: ~p~n~n", [self(), Message]),
    listen()
  after 1000 ->
    io:format("I, ~p, live on~n", [self()]),
    listen()
  end.

kill_demo() ->
  Pid = spawn_link(fun()->
    process_flag(trap_exit, true),
    listen()
  end),

  % this will fail, the recipient process traps all exit signals
  timer:sleep(3000),
  io:format("Sending exit(Pid, please_die) ~p to ~n", [Pid]),
  exit(Pid, please_die),

  % "The kill reason acts as a special signal that can't be trapped."
  % this will succeed
  timer:sleep(4000),
  io:format("Sending exit(Pid, kill) ~p to ~n", [Pid]),
  exit(Pid, kill).