Packages

ex_spirit

0.2.7
0.4.0 0.3.5 0.3.4 0.3.3 0.3.2 0.3.1 0.3.0 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.3 0.1.2 0.1.1 0.1.0

Spirit-style PEG-like parsing library for Elixir.

HexDocs

Current section

Files

Jump to
Readme
19 Versions
0 Dependencies
Dependants
Files
Activity
ex_spirit lib ex_spirit detail tree_map.ex
Raw

lib/ex_spirit/detail/tree_map.ex 

defmodule ExSpirit.TreeMap do



  defstruct root: %{}



  def new(), do: %__MODULE__{}



  def add_text(tm, str, value) when is_binary(str), do: add(tm, String.to_charlist(str), value)

  def add(tm, bin, value) when is_binary(bin), do: add(tm, :erlang.binary_to_list(bin), value)

  def add(tm, list, value) when is_list(list) do

    %{tm |

      root: add_(tm.root, list, value)

    }

  end



  defp add_(map, [], value), do: Map.put(map, [], value)

  defp add_(map, [c | rest], value) do

    case map[c] do

      nil -> Map.put_new(map, c, add_(%{}, rest, value))

      submap -> Map.put(map, c, add_(submap, rest, value))

    end

  end





end