anchor.diff:  get_number_of_vms() ->
       length(get_vms()).
   
  --spec add_vms(integer()) -> ok.
  +-spec add_vms(non_neg_integer()) -> ok.
   add_vms(N) ->
       BaseScalarisPort = config:read(port),
       BaseYawsPort = config:read(yaws_port),
  
positive.code: init() ->
      case config:read(cloud_local_min_vms) of
          failed ->
              config:write(cloud_local_min_vms, 1),
              config:write(cloud_local_max_vms, ?PLUS_INFINITY);
          X -> X
      end,
  
negative.code: -author('michels@zib.de').
  -vsn('$Id$').
  
  %-define(TRACE(X,Y), io:format(X,Y)).
  -define(TRACE(_X,_Y), ok).
  
  -include("scalaris.hrl").
  
  -behavior(cloud_beh).
  
  -export([init/0, get_number_of_vms/0, add_vms/1, remove_vms/1]).
  
  