add demo docs

This commit is contained in:
nightwing 2013-04-06 12:53:21 +04:00
commit 73f299d3f0
12 changed files with 243 additions and 9 deletions

View file

@ -0,0 +1,20 @@
%% A process whose only job is to keep a counter.
%% First version
-module(counter).
-export([start/0, codeswitch/1]).
start() -> loop(0).
loop(Sum) ->
receive
{increment, Count} ->
loop(Sum+Count);
{counter, Pid} ->
Pid ! {counter, Sum},
loop(Sum);
code_switch ->
?MODULE:codeswitch(Sum)
% Force the use of 'codeswitch/1' from the latest MODULE version
end.
codeswitch(Sum) -> loop(Sum).