jason-carter

%% 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(gf).
-behaviour(gen_server).

jason-carter

Eshell V8.2  (abort with ^G)
1> c(f7).
{ok,f7}
2> f7:start_sim().
[<0.62.0>] Router starting servers...
[<0.62.0>] Router forwarding message to server server1
[<0.63.0>] Server allocating frequency to <0.55.0>
[<0.62.0>] Router forwarding message to server server2
[<0.64.0>] Server allocating frequency to <0.55.0>
[<0.62.0>] Router forwarding message to server server1

jason-carter

Eshell V8.2  (abort with ^G)
1> cd("f6_original").
C:/Git/FLErlangConcurrency/f6_original
ok
2> c(f6).
{ok,f6}
3> f6:start().
true
4> f6:allocate().
{ok,10}

jason-carter

%% 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(f5).
-export([start_sim/0]).

jason-carter

%% 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(freqsupervisor).
-export([start_simulation/0]).

jason-carter

%% 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_simulation/0,start_server/0,start_client/2,allocate/0,deallocate/1,stop/0]).

jason-carter

%% 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(frequency2).
-export([start/0,allocate/0,deallocate/1,stop/0,clear/0]).

jason-carter

%% 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(frequency).
-export([init/0]).

jason-carter

-module(mailbox).
-export([receiver/0, receiver2/0, receiver_order/0]).

% receiver mailbox test
%
% Pid = spawn(mailbox, receiver, []).
%   or
% Pid = spawn(mailbox, receiver2, []).
%
% Test with:

jason-carter

-module(palin).
-export([palin/1,nopunct/1,palindrome/1]).
-export([server/1]).


% palindrome server
%
% To Call:
%
%   IsPalin = spawn(palin, server, [self()]).