104 lines
2.8 KiB
Elixir
104 lines
2.8 KiB
Elixir
defmodule Code do
|
|
def version, do: "0.4.0.dev"
|
|
|
|
# Returns the current ARGV.
|
|
def argv do
|
|
server_call :argv
|
|
end
|
|
|
|
# Returns all the loaded files.
|
|
def loaded_files do
|
|
server_call :loaded
|
|
end
|
|
|
|
# Evalutes the quotes contents.
|
|
#
|
|
# ## Examples
|
|
#
|
|
# contents = quote { a + b }
|
|
# Code.eval_quoted contents, [a: 1, b: 2], __FILE__, __LINE__ # => 3
|
|
#
|
|
def eval_quoted(quoted, binding, filename, _line) do
|
|
Erlang.elixir.eval_quoted([quoted], binding, to_list(filename))
|
|
end
|
|
|
|
# Loads the given `file`. Accepts `relative_to` as an argument to tell
|
|
# where the file is located. If the file was already required/loaded,
|
|
# loads it again. It returns the full path of the loaded file.
|
|
#
|
|
# When loading a file, you may skip passing .exs as extension as Elixir
|
|
# automatically adds it for you.
|
|
def load_file(file, relative_to // nil) do
|
|
load_and_push_file find_file(file, relative_to)
|
|
end
|
|
|
|
# Requires the given `file`. Accepts `relative_to` as an argument to tell
|
|
# where the file is located. If the file was already required/loaded,
|
|
# returns nil, otherwise the full path of the loaded file.
|
|
#
|
|
# When requiring a file, you may skip passing .exs as extension as
|
|
# Elixir automatically adds it for you.
|
|
def require_file(file, relative_to // nil) do
|
|
file = find_file(file, relative_to)
|
|
if Erlang.lists.member(file, loaded_files) do
|
|
nil
|
|
else:
|
|
load_and_push_file file
|
|
end
|
|
end
|
|
|
|
# Compiles `file` and returns a list of tuples where the first element
|
|
# is the module name and the second one is its binary.
|
|
def compile_file(file, binding // []) do
|
|
Erlang.elixir_compiler.file to_list(file), binding
|
|
end
|
|
|
|
# Compiles `file` and add the result to the given `destination`.
|
|
# Destination needs to be a directory.
|
|
def compile_file_to_dir(file, destination) do
|
|
Erlang.elixir_compiler.file_to_path to_list(file), to_list(destination)
|
|
end
|
|
|
|
# Get the stacktrace.
|
|
def stacktrace do
|
|
Erlang.erlang.get_stacktrace
|
|
end
|
|
|
|
## Helpers
|
|
|
|
defp load_and_push_file(file) do
|
|
server_call { :loaded, file }
|
|
Erlang.elixir.file to_list(file)
|
|
file
|
|
end
|
|
|
|
# Finds the file given the relative_to path.
|
|
# If the file is found, returns its path in binary, fails otherwise.
|
|
defp find_file(file, relative_to) do
|
|
file = to_binary(file)
|
|
|
|
file = if relative_to do
|
|
File.expand_path(file, relative_to)
|
|
else:
|
|
File.expand_path(file)
|
|
end
|
|
|
|
if File.regular?(file) do
|
|
file
|
|
else:
|
|
file = "#{file}.exs"
|
|
if File.regular?(file) do
|
|
file
|
|
else:
|
|
error { :enoent, file }
|
|
end
|
|
end
|
|
end
|
|
|
|
defp to_list(list) when is_list(list), do: list
|
|
defp to_list(bin) when is_binary(bin), do: binary_to_list(bin)
|
|
|
|
defp server_call(args) do
|
|
Erlang.gen_server.call(:elixir_code_server, args)
|
|
end
|
|
end |