Packages

dtu

0.1.2
0.1.3 0.1.2 0.1.1 0.1.0

Data the Ultimate

HexDocs

Current section

Files

Jump to
Readme
4 Versions
0 Dependencies
Dependants
Files
Activity
dtu src dtu_util.erl
Raw

src/dtu_util.erl 

-module(dtu_util).



-export([print_errors_and_warnings/1,

         print_errors/1,

         print_warnings/1,

         node_line/1]).



print_errors_and_warnings(State) ->

    print_warnings(State),

    print_errors(State).



print_warnings(State) ->

    Warns = dtu_walk:get_warnings(State),

    print_msgs(<<"Warning: ">>, Warns).



print_errors(State) ->

    Errors = dtu_walk:get_errors(State),

    print_msgs(<<"Error: ">>, Errors).



node_line(Node) ->

    element(2, Node).



print_msgs(Prefix, Msgs) ->

    [io:format("~s~p: ~p~n", [Prefix, node_line(Node), Msg])

     || {Node, Msg} <- lists:reverse(Msgs)],

    ok.