exporter.ex

defmodule Exporter do
  require Logger
  def filter(file_from, file_to) do
    { :ok, ets } = :ets.file2tab(file_from)
    { :ok, ets2 } = :ets.file2tab(file_from)
    try do
      :ets.delete_all_objects ets2
      codes = [
        :"RqCharMoveStart", :"RqCharMove", :"RqCharMoveStop"
      ]
      result = :ets.foldl fn
        { _, data } = item, acc when :erlang.is_tuple(data) ->
          opcode = Opcodes.opcode :erlang.element(3, data)
          case :lists.member(opcode, codes) do
            true ->
              Logger.info("#{inspect item}")
              [ item | acc ]
            false -> acc
          end
        _, acc -> acc
      end, [], ets
      Logger.info("Result: #{inspect result}")
      :ets.insert ets2, result
      :ets.tab2file ets2, file_to
    after
      :ets.delete ets
      :ets.delete ets2
    end
  end
end