Playing around with HiPE compilation

all_to_hipe.ex

defmodule HiPE.Loader do
  @doc "Returns `module_info`s for all loaded modules, with `native: true|false`"
  def all_modules(native \\ false) do
    :code.all_loaded()
    |> Enum.map(&elem(&1, 0))
    |> Enum.map(&Kernel.apply(&1, :module_info, []))
    |> Enum.map(&Enum.into(&1, %{}))
    |> Enum.filter(fn %{compile: compile} ->
      !match?([], compile)
    end)
    |> Enum.filter(&(&1.native == native))
  end
  
  @doc "HiPE compile the given modules (as returned by `all_modules/1`) with the given options. See the `:hipe` Erlang module for more info"
  def to_hipe(modules, opts \\ [:load, :o3, :verbose]) do
    modules
    |> Enum.map(& &1.module)
    |> Enum.map(&:hipe.c(&1, opts))
  end

  @doc "Compile all modules"
  def all_to_hipe(native \\ false) do
    all_modules(native) |> to_hipe()
  end
end