1%% 2%% %CopyrightBegin% 3%% 4%% Copyright Ericsson AB 1999-2016. All Rights Reserved. 5%% 6%% Licensed under the Apache License, Version 2.0 (the "License"); 7%% you may not use this file except in compliance with the License. 8%% You may obtain a copy of the License at 9%% 10%% http://www.apache.org/licenses/LICENSE-2.0 11%% 12%% Unless required by applicable law or agreed to in writing, software 13%% distributed under the License is distributed on an "AS IS" BASIS, 14%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 15%% See the License for the specific language governing permissions and 16%% limitations under the License. 17%% 18%% %CopyrightEnd% 19%% 20%% 21%%---------------------------------------------------------------------- 22%% File : client.erl 23%% Purpose : 24%%---------------------------------------------------------------------- 25 26-module(client). 27 28-export([produce/0,init/3,call/0]). 29 30-define(SERVER,{rmod_random_impl, 31 list_to_atom("babbis@"++hd(tl(string:tokens(atom_to_list(node()),"@"))))}). 32-define(CLIENTMOD,'rmod_random'). 33 34produce() -> 35 ?CLIENTMOD:produce(?SERVER). 36 37 38init(Seed1, Seed2, Seed3) -> 39 io:format("Init..."), 40 ?CLIENTMOD:init(?SERVER,Seed1, Seed2, Seed3), 41 io:format("ok\n"). 42 43 44call() -> 45 init(1,2,3), 46 produce(0). 47 48 49produce(10) -> 50 ok; 51produce(Ctr) -> 52 N = produce(), 53 io:format("Random~p = ~p\n",[Ctr,N]), 54 produce(Ctr+1). 55