44 lines
1.3 KiB
Elixir
44 lines
1.3 KiB
Elixir
# Implement error_handler pattern for Erlang
|
|
# which is integrated with Kernel.ParallelCompiler
|
|
defmodule Kernel.ErrorHandler do
|
|
@moduledoc false
|
|
|
|
@spec undefined_function(module, atom, list) :: term
|
|
def undefined_function(module, fun, args) do
|
|
ensure_loaded(module) or ensure_compiled(module, :module, :raise)
|
|
:error_handler.undefined_function(module, fun, args)
|
|
end
|
|
|
|
@spec undefined_lambda(module, fun, list) :: term
|
|
def undefined_lambda(module, fun, args) do
|
|
ensure_loaded(module) or ensure_compiled(module, :module, :raise)
|
|
:error_handler.undefined_lambda(module, fun, args)
|
|
end
|
|
|
|
@spec ensure_loaded(module) :: boolean
|
|
def ensure_loaded(module) do
|
|
case :code.ensure_loaded(module) do
|
|
{:module, _} -> true
|
|
{:error, _} -> false
|
|
end
|
|
end
|
|
|
|
@spec ensure_compiled(module, atom, atom) :: :found | :not_found | :deadlock
|
|
# Never wait on nil because it should never be defined.
|
|
def ensure_compiled(nil, _kind, _deadlock) do
|
|
:not_found
|
|
end
|
|
|
|
def ensure_compiled(module, kind, deadlock) do
|
|
parent = :erlang.get(:elixir_compiler_pid)
|
|
ref = :erlang.make_ref()
|
|
modules = :elixir_module.compiler_modules()
|
|
send(parent, {:waiting, kind, self(), ref, module, modules, deadlock})
|
|
:erlang.garbage_collect(self())
|
|
|
|
receive do
|
|
{^ref, value} -> value
|
|
end
|
|
end
|
|
end
|