7-fl

gs.erl:

-module(gf).
-behavior(gen_server).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
-export([start/0, allocate/0, deallocate/1, stop/0, client/2, test1/0, test2/0]).
-export([cast_report/0, call_report/0, add_frequencies/1]).

%%====== Server Internal Function Replacements ==========

gf.erl:

-module(gf).
-behavior(gen_server).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
-export([start/0, allocate/0, deallocate/1, stop/0, client/2, test1/0, test2/0]).
-export([cast_report/0, call_report/0]).

gf.erl:

-module(gf).
-behavior(gen_server).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
-export([start/0, allocate/0, deallocate/1, stop/0, client/2, test1/0, test2/0]).

%%====== Server Internal function Replacements ==========

init([]) ->

A shell script for running my erlang program:

run.sh:

#!/usr/bin/env sh

erlc -W gf.erl
erl -s gf test2

Start instructions for four distributed servers:

First shell (note all shells need to be started in node mode):

$ erl -sname s1
Erlang/OTP 19 [erts-8.2] [source] [64-bit] [smp:4:4] [async-threads:10] [hipe] [kernel-poll:false]

Eshell V8.2  (abort with ^G)
(s1@MyMBP)1>

Instead of sending server responses back to the router, which could potentially create a bottleneck at the router, I had the router keep count of the available frequencies. When an allocate request passes through the router, the router decreases the server's available count; and when a deallocate request passes through the router, the router increases the server's available count (I didn't address the case where a client tries to deallocate a frequency it doesn't own). I also let the clients, which are running infinite loops, fail after I stop the router/servers.

In my code, a server is a triple {ServerPid, Freqs, AvailableCount}. For allocate requests, the router sorts the servers using lists:keysort() on the third term to get the server with the highest AvailableCount. For deallocate requests, the router finds the server corresponding to the frequency: if no servers correspond to the frequency, then the router sends the client an error message; otherwise the router sends a deallcoate request

fs.erl:

%% Based on code from 
%%   Erlang Programming
%%   Francecso Cesarini and Simon Thompson
%%   O'Reilly, 2008
%%   http://oreilly.com/catalog/9780596518189/
%%   http://www.erlangprogramming.org/
%%   (c) Francesco Cesarini and Simon Thompson

original f4.erl:

I changed the original f4.erl server code to contain an additonal clause in loop():

-export([loop/1]).

loop(Frequencies) ->
    receive
        {request, _Pid, switch_code} ->

Correctness

If I kill the supervisor using the observer app, your code will print out erroneous information. When the supervisor is killed, your code executes:

        {'EXIT',Client,_} -> 
            io:format("server: #~p client exit ~p~n",[Number,Client]), 
            server(Number,exited(Frequencies,Client))

	%% Based on code from
	%% Erlang Programming
	%% Francecso Cesarini and Simon Thompson
	%% O'Reilly, 2008
	%% http://oreilly.com/catalog/9780596518189/
	%% http://www.erlangprogramming.org/
	%% (c) Francesco Cesarini and Simon Thompson

	-module(f3).
	-export([start/0,allocate/0,deallocate/1,stop/0]).