Packages

mariaex

0.4.1
0.9.1 0.9.0 0.9.0-rc.0 0.8.4 0.8.3 0.8.2 0.8.1 0.8.0 0.7.9 0.7.8 0.7.7 0.7.6 0.7.5 0.7.4 0.7.3 0.7.2 0.7.1 0.7.0 0.6.5 0.6.4 0.6.3 0.6.2 0.6.1 0.6.0 0.5.0 0.4.4 0.4.3 0.4.2 0.4.1 0.4.0 0.3.2 0.3.1 0.3.0 0.2.2 0.2.1 0.2.0 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

Pure elixir database driver for MariaDB / MySQL.

HexDocs

Current section

Files

Jump to
Readme
44 Versions
1 Dependency
Dependants
Files
Activity
mariaex lib mariaex cache.ex
Raw

lib/mariaex/cache.ex 

defmodule Mariaex.Cache do

  import :os, only: [timestamp: 0]



  def new(size) do

    {size, :ets.new(:cache, [])}

  end



  def lookup({_, cache}, statement) do

    case :ets.lookup(cache, statement) do

      [{_, _, info}] -> info

      _ -> nil

    end

  end



  def delete({_, cache}, statement, cleanup) do

    case :ets.lookup(cache, statement) do

      [{_, _, info}] ->

        :ets.delete(cache, statement)

        cleanup.(statement, info)

      _ ->

        nil

    end

  end



  def insert({size, cache}, statement, data, cleanup) do

    if :ets.info(cache, :size) > size, do: remove_oldest(cache, cleanup)

    :ets.insert(cache, {statement, timestamp, data})

  end



  def update({_, cache}, statement, data) do

    :ets.insert(cache, {statement, timestamp, data})

  end



  defp remove_oldest(cache, cleanup) do

    {statement, _, data} = :ets.foldl(fn({statement, timestamp, data}, nil) ->

                                          {statement, timestamp, data}

                                        ({_, timestamp, _} = actual, {_, acc_timestamp, _} = acc) ->

                                          if timestamp < acc_timestamp do actual else acc end

                                      end, nil, cache)

    cleanup.(statement, data)

    :ets.delete(cache, statement)

  end

end