anchor.diff:  
   
   %% System probe functions that might be handy to check from the shell
  --export([unix_free/1, memsize/0, bsd_memsize/1, win_memsize/1]).
  +-export([unix_free/1, memsize/0, bsd_memsize/1]).
   
   -include_lib("test_server/include/test_server.hrl").
   -include_lib("kernel/include/file.hrl").
  
positive.code: 	    0
      end.
  
  win_memsize(Mem) ->
      Lines = re:split(Mem, "\\R+", [trim,{return,list}]),
      {ok,RE} = re:compile("^\\s*(\\d+)"),
      REOpts = [{capture,all_but_first,list}],
      Numbers =
  	[case re:run(Line, RE, REOpts) of
  	     nomatch ->
  		 0;
  	     {match,[Digits]} ->
  		 list_to_integer(Digits)
  	 end || Line <- Lines],
      lists:foldl(fun erlang:max/2, 0, Numbers).
  
  strip_prefix([X|Prefix], [X|List]) ->
      strip_prefix(Prefix, List);
  strip_prefix([], List) ->
  
negative.code: 		    0
  	    end;
  	{win32,_} ->
  	    enough; % atom() > integer(); assume (64-bit) windows have enough
  	_ ->
  	    0
      end.
  