Packages

alara

0.1.5
0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

ALARA - Distributed Entropy Network System

HexDocs

Current section

Files

Jump to
Readme
9 Versions
0 Dependencies
Dependants
Files
Activity
alara src alara_node.erl
Raw

src/alara_node.erl 

-module(alara_node).

-behaviour(gen_server).



-include_lib("alara/include/alara.hrl").



%% API


-export([start_link/0]).



%% gen_server callbacks


-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).

-export([get_random/1, get_random_async/2]).





%%%===================================================================


%%% API


%%%===================================================================




start_link() ->

  gen_server:start_link(?MODULE, [], []).



%%%===================================================================


%%% gen_server callbacks


%%%===================================================================


init([]) ->

  {ok, #node{node_id = self()}}.



handle_call({get_random}, _From, State) ->

  {reply, rand:uniform(2) =:= 1, State};

handle_call(_Request, _From, State) ->

  Reply = ok,

  {reply, Reply, State}.



handle_cast({get_random, CallerPid}, State) ->

    Result = rand:uniform(2) =:= 1,

    CallerPid ! {random_result, self(), Result},

    {noreply, State};

handle_cast(_Msg, State) ->

  {noreply, State}.



handle_info(_Info, State) ->

  {noreply, State}.



terminate(_Reason, #node{node_id = _Id}) ->

  ok.



code_change(_OldVsn, State, _Extra) ->

  {ok, State}.



%%%===================================================================


%%% API


%%%===================================================================).




get_random(NodePid) ->

  gen_server:call(NodePid, {get_random}).



get_random_async(NodePid, CallerPid) ->

  gen_server:cast(NodePid, {get_random, CallerPid}).