anchor.diff:  -spec to_float(integer()|binary()|string()|float()) ->
       integer() | error.
   
  -to_float(F) when is_float(F) -> 
  +to_float(F) when is_float(F) ->
       F;
  -to_float(I) when is_integer(I) -> 
  +to_float(I) when is_integer(I) ->
       I * 1.0;
  -to_float(L) when is_list(L) -> 
  +to_float(L) when is_list(L) ->
       case catch list_to_float(L) of
  -        F when is_float(F) -> 
  +        F when is_float(F) ->
               F;
  -        _ -> 
  +        _ ->
               case to_integer(L) of
                   I when is_integer(I) -> I * 1.0;
                   error -> error
               end
       end;
  -to_float(B) when is_binary(B) -> 
  +to_float(B) when is_binary(B) ->
       to_float(binary_to_list(B));
   to_float(_) ->
       error.
  
positive.code: -spec to_integer(integer()|binary()|string()) ->
      integer() | error.
  
  to_integer(I) when is_integer(I) -> 
      I;
  to_integer(F) when is_float(F) ->
      round(F);
  to_integer(B) when is_binary(B) ->
      to_integer(binary_to_list(B));
  to_integer(L) when is_list(L) -> 
      case catch list_to_integer(L) of
          I when is_integer(I) -> I;
          _ -> error
  
negative.code: 
  
  %% @doc Converts a `timestamp()' to a gmt `datetime()'.
  -spec timestamp_to_gmt(timestamp()) ->
      calendar:datetime().
  
  timestamp_to_gmt(Secs) ->
      calendar:now_to_universal_time({0, Secs, 0}).
  
  %% @doc Generates a float representing `HHMMSS.MicroSecs' for a high resolution timer.
  -spec l_timestamp_to_float(l_timestamp()) ->
      float().
  
  l_timestamp_to_float(LStamp) ->
  