lecture 07

lectures/07/counter.erl

@@ -0,0 +1,23 @@
+-module(conuter).
+-behaviour(gen_server).
+-export([init/1, handle_cast/2, handle_call/3]).
+-export([start/1, value/1, inc/1, inc/2]).
+
+start(N) ->
+	gen_server.start(?MODULE, N, []).
+
+inc(Pid) -> inc(Pid, 1).
+inc(Pid, Amt) ->
+	gen_server:cast(Pid, {inc, Amt}).
+
+value(Pid) ->
+	gen_server:call(Pid, value).
+
+init(N) ->
+	{ok, N}.
+
+handle_call(value, _From, N) ->
+	{reply, N, N}. % {reply, actual_reply, state}
+
+handle_cast({inc, Amt}, N) ->
+	{noreply, N + Amt}.