%%%-------------------------------------------------------------------
%%% @author cheese
%%% @copyright (C) 2015, <COMPANY>
%%% @doc
%%%
%%% @end
%%% Created : 25. Nov 2015 8:30
%%%-------------------------------------------------------------------
-module(string_utilites).
-author("cheese").

%% API
-export([plain_string/1, to_string/1]).

%% Internal
-export([internal_plain_string/2]).
plain_string(String) ->
  internal_plain_string(String, <<>>).

internal_plain_string(<<>>, OutString) ->
  OutString;
internal_plain_string(<<Bt, Other/binary>>, OutString) when Bt == 10 ; Bt == 13 ; Bt == 9  ->
  internal_plain_string(Other, OutString);
internal_plain_string(<<Bt, Other/binary>>, OutString) ->
  internal_plain_string(Other, <<OutString/binary, Bt>>).

to_string(Int) when is_integer(Int) ->
  integer_to_binary(Int);
to_string({{_Year, _Month, _Day}, {_Hour, _Min, _Second}}=Date) ->
  time_utilites:time_to_string(Date);
to_string(Other) ->
  list_to_binary(io_lib:fwrite("~p", [Other])).