A simple finite state machine implemented with gen_fsm

simples_fsm.erl

%% finite state machine

-module(simples_fsm).
-behaviour(gen_fsm).

-export([start_link/1, dispara_evento/1]).
-export([init/1]).
-export([estado_um/2, estado_dois/2, estado_tres/2]).

%% api

start_link(DadosEstadoInicial) ->
  gen_fsm:start_link({local, ?MODULE}, ?MODULE, DadosEstadoInicial, []).

dispara_evento(Evento) ->
  gen_fsm:send_event(?MODULE, {evento, Evento}).

%% callbacks

init(DadosEstadoInicial) ->
  io:format("init: ~s~n", [DadosEstadoInicial]),
  {ok, estado_um, {dados_estado, DadosEstadoInicial}}.

%% estados

estado_um({evento, evento_um} = EventoOcorrido, {dados_estado, DadosEstadoAtual} = EstadoAtual) ->
  NovoEstado = {dados_estado, DadosEstadoAtual ++ "+1"},
  
  imprime_estado(estado_um, EventoOcorrido, EstadoAtual, NovoEstado),
            
  {next_state, estado_dois, NovoEstado, 10000}.

estado_dois({evento, evento_dois} = EventoOcorrido, {dados_estado, DadosEstadoAtual} = EstadoAtual) ->
  NovoEstado = {dados_estado, DadosEstadoAtual ++ "+2"},
  
  imprime_estado(estado_dois, EventoOcorrido, EstadoAtual, NovoEstado),
            
  {next_state, estado_tres, NovoEstado};

estado_dois(timeout, {dados_estado, DadosEstadoAtual} = _EstadoAtual) ->
  NovoEstado = {dados_estado, DadosEstadoAtual ++ "+X"},
  
  {next_state, estado_um, NovoEstado}.

estado_tres({evento, evento_tres} = EventoOcorrido, {dados_estado, DadosEstadoAtual} = EstadoAtual) ->
  NovoEstado = {dados_estado, DadosEstadoAtual ++ "+3"},
  
  imprime_estado(estado_tres, EventoOcorrido, EstadoAtual, NovoEstado),
            
  {next_state, estado_um, NovoEstado}.

imprime_estado(NomeEstadoAtual, EventoOcorrido, EstadoAtual, NovoEstado) ->
  {_, DadosEstadoAtual} = EstadoAtual,
  {_, DadosNovoEstado}  = NovoEstado,

  io:format("~s => evento: ~w, estado atual: ~s, novo estado: ~s~n",
            [NomeEstadoAtual, EventoOcorrido, DadosEstadoAtual, DadosNovoEstado]).