anchor.diff:  		_ -> fail
   	end.
   
  --spec get_ssh_args() -> string().
  -get_ssh_args() ->
  -    case config:read(cloud_ssh_args) of
  -        failed -> "";
  -        Args -> Args
  -    end.
  -
   -spec get_scalaris_service() ->  tuple(string(), string()).
   get_scalaris_service() ->
       Path =
  
positive.code: %%%% Helper methods
  %%%%%%%%%%%%%%%%%%%
  
  -spec killall_vms() -> ok.
  killall_vms() ->
  	case get_hosts() of
  		{_, Hosts} ->
      		lists:foreach(fun({Hostname, _}) ->
                            Cmd = lists:flatten(io_lib:format("ssh ~s ~s killall -9 beam.smp",
                                                              [get_ssh_args(), Hostname])),
                            exec(Cmd)
              end, Hosts);
  		fail -> fail
      end.
  
  start_scalaris_vm(Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
                            {StartCmd, _} = Service,
                            Cmd = format("ssh ~s ~s \"~s\"", [get_ssh_args(), Hostname, StartCmd]),
                            io:format("Executing: ~p~n", [Cmd]),
                            _ = exec(Cmd)
                    end, Services),
      ok.
  
  stop_scalaris_vm(Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
                            {_, StopCmd} = Service,
                            Cmd = format("ssh ~s ~s \"~s\"", [get_ssh_args(), Hostname, StopCmd]),
                            io:format("Executing: ~p~n", [Cmd]),
                            _ = exec(Cmd)
                    end, Services),
  
negative.code: -export([init/0, get_number_of_vms/0, add_vms/1, remove_vms/1, killall_vms/0]).
  
  -define(cloud_ssh_key, "2a42cb863313526fca96098a95020db2a904b01157f191a9bb3200829f8596c7").
  -define(scalaris_start, "bin/./scalarisctl -e -detached -s -p 14915 -y 8000 -n node1 start").
  -define(scalaris_stop, "bin/./scalarisctl -n node1 gstop").
  
  -type status() :: active | inactive.
  -type host() :: tuple(string(), status()).
  