mirror of
https://github.com/filebrowser/filebrowser.git
synced 2025-05-09 11:42:57 +00:00
0afb9e732c
Former-commit-id: bdede6ed1b6f578f2ef046c338caf02d0b29d453 [formerly 7187de361b53e9c8ec121df379b762f2db736ea2] Former-commit-id: 447d58460fbbfd05ffe08428a1288e392637561d
20 lines
487 B
Erlang
20 lines
487 B
Erlang
%% 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). |