Packages
credo
1.5.5
1.7.19
1.7.18
1.7.17
1.7.16
1.7.15
1.7.14
1.7.13
1.7.12
1.7.11
1.7.10
1.7.9
1.7.8
1.7.7
1.7.7-rc.0
1.7.6
1.7.5
1.7.4
1.7.3
1.7.2
1.7.2-rc.4
1.7.2-rc.3
1.7.2-rc.2
1.7.2-rc.1
1.7.2-rc.0
1.7.1
1.7.0
1.7.0-rc.2
1.7.0-rc.1
1.6.7
1.6.6
1.6.5
1.6.4
1.6.3
1.6.2
1.6.1
1.6.0
1.6.0-rc.1
1.6.0-rc.0
1.5.6
1.5.5
1.5.4
1.5.3
1.5.2
1.5.1
1.5.0
1.5.0-rc.5
1.5.0-rc.4
1.5.0-rc.3
1.5.0-rc.2
1.5.0-rc.1
1.4.1
1.4.0
1.4.0-rc.2
1.4.0-rc.1
1.3.2
1.3.1
1.3.0
1.3.0-rc3
1.3.0-rc2
1.3.0-rc1
1.2.3
1.2.2
1.2.1
1.2.0
1.2.0-rc4
1.2.0-rc3
1.2.0-rc2
1.2.0-rc1
1.1.5
1.1.4
1.1.3
1.1.2
1.1.1
1.1.0
1.1.0-rc3
1.1.0-rc2
1.1.0-rc1
1.0.5
1.0.4
1.0.3
1.0.2
1.0.1
1.0.1-rc1
1.0.0
1.0.0-rc1
0.10.2
0.10.1
0.10.0
0.9.3
0.9.2
0.9.1
0.9.0
0.9.0-rc8
0.9.0-rc7
0.9.0-rc6
0.9.0-rc5
0.9.0-rc4
0.9.0-rc3
0.9.0-rc2
0.9.0-rc1
0.8.10
0.8.9
0.8.8
0.8.7
0.8.6
0.8.5
0.8.4
0.8.3
0.8.2
0.8.1
0.8.0
0.8.0-rc7
0.8.0-rc6
0.8.0-rc5
0.8.0-rc4
0.8.0-rc3
0.8.0-rc2
0.8.0-rc1
0.7.4
0.7.3
0.7.2
0.7.1
0.7.0
0.6.1
0.6.0
0.6.0-rc2
0.6.0-rc1
0.5.3
0.5.2
0.5.1
0.5.0
0.4.14
0.4.13
0.4.12
0.4.11
0.4.10
0.4.10-dev
0.4.9
0.4.8
0.4.7
0.4.6
0.4.5
0.4.4
0.4.3
0.4.2
0.4.1
0.4.0
0.4.0-beta5
0.4.0-beta4
0.4.0-beta3
0.4.0-beta2
0.4.0-beta1
0.3.13
0.3.12
0.3.11
0.3.10
0.3.9
0.3.8
0.3.7
0.3.6
0.3.5
0.3.4
0.3.3
0.3.2
0.3.1
0.3.0
0.3.0-dev2
0.3.0-dev
0.2.6
0.2.5
0.2.4
0.2.3
0.2.2
0.2.1
0.2.0
0.1.10
0.1.9
0.1.8
0.1.7
0.1.6
0.1.5
0.1.4
0.1.3
0.1.2
0.1.1
0.1.0
0.0.1-dev
A static code analysis tool with a focus on code consistency and teaching.
Current section
Files
Jump to
Current section
Files
lib/credo/exs_loader.ex
defmodule Credo.ExsLoader do
@moduledoc false
def parse(exs_string, safe \\ false)
def parse(exs_string, true) do
case Code.string_to_quoted(exs_string) do
{:ok, ast} ->
{:ok, process_exs(ast)}
{:error, {line_meta, message, trigger}} when is_list(line_meta) ->
{:error, {line_meta[:line], message, trigger}}
{:error, value} ->
{:error, value}
end
end
def parse(exs_string, false) do
{result, _binding} = Code.eval_string(exs_string)
{:ok, result}
rescue
error ->
case error do
%SyntaxError{description: "syntax error before: " <> trigger, line: line_meta}
when is_list(line_meta) ->
{:error, {line_meta[:line], "syntax error before: ", trigger}}
%SyntaxError{description: "syntax error before: " <> trigger, line: line_no} ->
{:error, {line_no, "syntax error before: ", trigger}}
error ->
{:error, error}
end
end
@doc false
def parse_safe(exs_string) do
case Code.string_to_quoted(exs_string) do
{:ok, ast} ->
process_exs(ast)
_ ->
%{}
end
end
defp process_exs(v)
when is_atom(v) or is_binary(v) or is_float(v) or is_integer(v),
do: v
defp process_exs(list) when is_list(list) do
Enum.map(list, &process_exs/1)
end
defp process_exs({:sigil_w, _, [{:<<>>, _, [list_as_string]}, []]}) do
String.split(list_as_string, ~r/\s+/)
end
# TODO: support regex modifiers
defp process_exs({:sigil_r, _, [{:<<>>, _, [regex_as_string]}, []]}) do
Regex.compile!(regex_as_string)
end
defp process_exs({:%{}, _meta, body}) do
process_map(body, %{})
end
defp process_exs({:{}, _meta, body}) do
process_tuple(body, {})
end
defp process_exs({:__aliases__, _meta, name_list}) do
Module.safe_concat(name_list)
end
defp process_exs({{:__aliases__, _meta, name_list}, options}) do
{Module.safe_concat(name_list), process_exs(options)}
end
defp process_exs({key, value}) when is_atom(key) or is_binary(key) do
{process_exs(key), process_exs(value)}
end
defp process_tuple([], acc), do: acc
defp process_tuple([head | tail], acc) do
acc = process_tuple_item(head, acc)
process_tuple(tail, acc)
end
defp process_tuple_item(value, acc) do
Tuple.append(acc, process_exs(value))
end
defp process_map([], acc), do: acc
defp process_map([head | tail], acc) do
acc = process_map_item(head, acc)
process_map(tail, acc)
end
defp process_map_item({key, value}, acc)
when is_atom(key) or is_binary(key) do
Map.put(acc, key, process_exs(value))
end
end