public

maxlapshin / parse_erlang.erl

Created 2012-04-29

parse(Text) when is_binary(Text) ->
  parse(binary_to_list(Text));
 
parse(Text) when is_list(Text) ->
  parse(Text, [], 0, []).
 
parse(Text, Env, Line, Acc) ->
  case erl_scan:tokens([], Text, Line) of
    {done, {ok, Scanned, NewLine}, Rest} ->
      {ok, Parsed} = erl_parse:parse_exprs(Scanned),
      {value, Out, NewEnv} = erl_eval:exprs(Parsed, Env),
      parse(Rest, NewEnv, NewLine, [Out|Acc]);
    {more, _} ->
      lists:reverse(Acc)
  end.