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