fork download

copy

-module(the_duke).
-behaviour(gen_sovereign).
-export([rule/0]).
 
start(Pars) -> 
    io:format("The duke is dead. Long live the duke ~p!~n",[Pars]),
    gen_sovereign:start_link({local, ?MODULE}, ?MODULE, [Pars], []).
 
stop() ->
    io:format("I'm a powerful duke, you can't stope my rule!~n"),
    gen_sovereign:cast(?MODULE, revolt).
 
coronation([Pars]) ->
    io:format("I am the ruler of duchy ~p!~n",[Pars]),
    process_flag(trap_exit, true),
    {ok, coronated}.
 
handle_call_to_arms(Message, From, State) when is_ally(From) -> 
    {accept, raise_grand_army(), State};
 
handle_call_to_arms(Message, king, State) ->
    {decline, start_revolt(), State}.
 
handle_info({vassal_doesnt_pay_taxes, Vassal}, State) ->
    {send_to_prison, Vassal, State}.

prog.erl:3: function rule/0 undefined
prog.erl:18: illegal guard expression
prog.erl:19: function raise_grand_army/0 undefined
prog.erl:22: function start_revolt/0 undefined
prog.erl:2: Warning: behaviour gen_sovereign undefined
prog.erl:5: Warning: function start/1 is unused
prog.erl:9: Warning: function stop/0 is unused
prog.erl:13: Warning: function coronation/1 is unused
prog.erl:18: Warning: function handle_call_to_arms/3 is unused
prog.erl:18: Warning: variable 'Message' is unused
prog.erl:21: Warning: variable 'Message' is unused
prog.erl:24: Warning: function handle_info/2 is unused

Standard output is empty