defmodule Util do

  def plusminus(number) when number > 0, do: "+#{number}"
  def plusminus(0), do: "0"
  def plusminus(number) when number < 0, do: "#{number}"

  def float_paparse(float) when is_float(float), do: {float, ""}
  def float_paparse(int) when is_integer(int), do: {(int+0.0), ""}
  def float_paparse(string) when is_binary(string) do
    string
    |> String.replace(",", ".")
    |> Float.parse()
  end

  def ets_mutate_select_each(ets, table, spec \\ [{:"$1", [], [:"$1"]}], fun) do
    ets.safe_fixtable(table, true)
    first = ets.select(table, spec, 1)
    do_ets_mutate_select_each(ets, table, fun, first)
  after
    ets.safe_fixtable(table, false)
  end

  defp do_ets_mutate_select_each(_, _, _, :'$end_of_table') do
    :ok
  end

  defp do_ets_mutate_select_each(ets, table, fun, {objs, continuation}) do
    for obj <- objs, do: fun.(table, obj)
    do_ets_mutate_select_each(ets, table, fun, ets.select(continuation))
  end


  def ets_mutate_each(ets, table, fun) do
    ets.safe_fixtable(table, true)
    first = ets.first(table)
    do_ets_mutate_each(ets, table, fun, first)
  after
    ets.safe_fixtable(table, false)
  end

  defp do_ets_mutate_each(ets, table, fun, key) do
    case ets.lookup(table, key) do
      [elem] -> fun.(table, elem)
      _ -> nil
    end
    do_ets_mutate_each(ets, table, fun, ets.next(table, key))
  end

end